摘要：excel用vba自动生成wordSub GenDocfromExcel() excel控制word，生成新文件，插入图片和文件名，保存 office 2003, VBA工具 引用中要勾选Micros...

excel用vba自动生成word

Sub GenDocfromExcel()"excel控制word，生成新文件，插入图片和文件名，保存"office 2003, VBA工具/引用中要勾选Microsoft Word 11.0 Object Library"office 2007, VBA工具/引用中要勾选Microsoft Word 12.0 Object Library"...Range(＂A1:B13＂).Copy "复制当前内容Dim WordApp As Word.Application "定义变量Set WordApp = CreateObject(＂Word.Application＂) "生成WORD对象WordApp.Documents.Add "新建文件WordApp.Selection.Paste "粘贴fn$ = ＂D:\＂ & Range(＂b1＂) "生成文件名WordApp.ActiveDocument.SaveAs fn$ "保存文件WordApp.Quit "退出Set WordApp = Nothing "取消变量End Sub...

打开word总是自动出现vb界面？

Imports Word"打开Dim mWordapp As Word.Application "word 应用程序Dim mobjDoc As Word.Document "word 文档Dim fullFileName as string "文件路径mWordapp = CreateObject(”Word.Application”)mobjDoc = mWordapp.Documents.Add(FullFileName)"关闭Dim missing As Object = System.Reflection.Missing.ValuemWordapp.Application.Quit()If Not mobjDoc Is Nothing Then"垃圾回收System.Runtime.InteropServices.Marshal.ReleaseComObject(mobjDoc)mobjDoc = NothingEnd IfIf Not mWordapp Is Nothing ThenSystem.Runtime.InteropServices.Marshal.ReleaseComObject(mWordapp)mWordapp = NothingEnd If"真正释放word进程GC.Collect()学习更多教程，请浏览： VB.NET入门教程 雄网