excel vba 启动word 宏

在word vba工具-引用中选中Ms Excel就可以正常打开EXCEL进行操作了Dim xlapp As Excel.Application "代表excel程序Dim wkBook As Excel.Workbook "代表excelworkbook（也就是excel工作簿文件 .xls .xlsx）Dim wkSheet As Excel.Worksheet "代表excel的工作页xlapp.Application.EnableEvents = False "禁止宏等提示的运行Set wkBook = xlapp.Workbooks.Open(ExcelFileName)

如何在EXECL中用VBa打开Word,并输出数据到WORD中,保存,关...

在EXcel的VB编辑器中插入一个模块，输入如下代码试试看。

Sub ExcelToWord() Dim WordObject As Object "声明一个对象变量，这里即将声明为Word对象 On Error Resume Next Set WordObject = CreateObject(＂Word.Application＂) "用set来创建Word对象，这里是运行Word程序，但未新建文档 WordObject.Visible = 0 "后台运行Word对象，只在任务管理器中存在WinWord.exe进程，但在任务栏上看不到word；如果为1或者True则可以看到word运行界面 WordObject.Documents.Add DocumentType:=wdNewBlankDocument "新建一word文档 "以下为获取Excel表格中的内容，准备把数据传送给Word，可以根据自己的实际需要定制代码，这里只是示例代码 Excel.Application.Sheets(1).Activate "切换当前电子表格的表1为当前激活表 Excel.Application.Sheets(1).UsedRange.Select "选中当前激活表的所有数据 Selection.Copy "将选中的区域进行复制 WordObject.Application.Activate "将后台运行的Word激活为当前窗口 WordObject.ActiveWindow.Selection.Paste "将刚才从Excel中复制进剪贴板中的内容粘贴进word中来 WordObject.Saved = True "将保存文档的Saved属性设置为True，这样后台运行的Word在保存文档时就不会弹出是否保存的对话框了，达到悄无声息的效果 WordObject.ActiveDocument.SaveAs ＂D:\temp\导出数据.doc＂ "调用saveas命令保存文档，根据实际，指定文档的保存路径和名称 WordObject.Application.Quit "退出并关闭程序文档 Set WordObject = Nothing "释放对象End Sub...

excel vba打开excel文件

dim mypath as string,svalue "定义变量mypath=＂d:\excel.xls＂ "把路径赋值给一个字符串Workbooks.Open Filename:=mypath "这句是打开文件activeworkbook.visible=false "这句是隐藏文件svalue=activeworkbook.sheets(1).range(＂a1＂).value "这句是用变量取得该文件表1中a1单元格的值activeworkbook.viseble=true"显示文件activeworkbook.close true"/false，这句是关闭文件，close有两个参数，true是关闭保存修改，false是关闭时不保存修改

VBA word打开excel 并取数

首先alt+f11，工具引用，勾选microsoft excel 11.0 object library，然后插入模块 Sub op()Dim app As New Excel.ApplicationDim wb As Excel.WorkbookSet wb = app.Workbooks.Open(＂d:/tt.xls＂)MsgBox wb.Sheets(＂sheet1＂).Range(＂c5＂)app.QuitEnd Sub子易空间站 - Excel培训专家