excel vba 启动word 宏
展开全部 '首先要在vba中引用Microsoft Word 11.0 Object LibraryDim Wdapp As Word.ApplicationDim WdDocument As Word.DocumentDim UserFile As StringPrivate Sub CommandButton1_Click() Set Wdapp = New Word.Application UserFile = Wdapp.Path & "\1.doc" Set WdDocument = Wdapp.Documents.Open("c:\1.doc") Wdapp.Visible = TrueEnd Sub...
如何在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 获取打开的word文件名
展开全部 一、打开word文件代码:Set wo = CreateObject("Word.Application")wo.Documents.Open ThisWorkbook.Path & "\流程.doc"wo.Visible = True二、打开ppt文件代码:方法1:Set wo = CreateObject("Powerpoint.Application")wo.Visible = Truewo.Presentations.Open ThisWorkbook.Path & filename方法2:Sub dd()Dim filepath$, filename$filepath = Chr(34) & ThisWorkbook.Path & filename & Chr(34)Shell "POWERPNT.EXE " & filepathEnd Sub附:双击打开PPS文件,在演示完后退出PPS时并没有PowerPoint主窗口保留,但在Excel中使用VBA打开的PPS文件,在演示完PPS退出后,PowerPoint主窗口仍然打开。
这里使用一个循环判断演示窗口是否存在,加上错误捕捉程序来处理上面这个问题。
PrivateSub CommandButton1_Click()Dim wo AsObject Dim app AsObject' 创建PowerPoint应用实例Set app = CreateObject("Powerpoint.Application")' 使PowerPoint可见app.Visible = True ' 打开PPS文件Set wo = app.Presentations.Open(ThisWorkbook.Path & "\a.pps")' 当PPS演示结束时,wo对象的SlideShowWindow不存在,捕捉到错误OnErrorGoTo errHandle' PPS演示时全屏...
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培训专家
如何Word中用VBA打开Excel表格,读取其中的内容写入到Word
可用CreateObject函数创建对EXCEL的引用,然后就可打开EXCEL工作簿,将表格中的数据复制到WORD中,参考代码如下:Set xlapp = CreateObject("excel.application")With xlapp.Open("带路径的EXCEL文件名").Sheets(1).Range("A1:H8").Copy'粘贴到WORD指定位置End Withxlapp.Quit
请教,使用Excel2003的VBA,如何判断有Word文档打开?
在EXCEL窗体,CommandButton1中输入代码:Private Sub CommandButton1_Click()Dim wordapp As New Word.ApplicationDim worddoc As New Word.DocumentSet wordapp = CreateObject("Word.Application")wordapp.Visible = TrueSet worddoc = wordapp.Documents.Open(ThisWorkbook.Path & "\123.docx")MsgBox "文件已打开,名字为:" & worddocEnd Sub如果打开会提示“文件已打开,名字为123.doc”操作前把这个引用起:有测试附件,你可以试一下;
如何用vba代码打开文件夹内的word文档?
展开全部 Sub Read_Word()Dim worDoc As objectDim wordappl As objectDim mydoc As StringDim myappl As Stringmydoc = thisworkbook.path & "\" & "文件名.doc" '本文档目录下的doc文件,这里可以直接改成路径+文件名的形式Set wordappl = CreateObject("Word.application") '设置wordappl对象Set worDoc = wordappl.Documents.Open(mydoc) '打开word文档,mydoc变量指定路径和文件名worDoc.Activate '激活打开的文档wordappl.Selection.WholeStory '全选文档wordappl.Selection.Copy '复制选择内容到剪贴板worDoc.Application.Quit '关闭word文档Set WordApp = Nothing '释放对象变量的内存Workbooks(1).Sheets(2).Activate '激活excel第一个工作簿的第二个工作表ActiveSheet.UsedRange.Clear '把当前工作表清空,如果有重要数据,这条删除Cells(1, 1).Select '选择A1单元格ActiveSheet.Paste '粘贴复制的内容wordappl.quitset wordappl =nothingEnd Sub...
转载请注明出处51数据库 » excel vba 打开所有word