您的用户名未注册
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入门教程 雄网
转载请注明出处51数据库 » vb自动升成word文档
