如何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
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培训专家
怎样在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...
excel中如何通过VBA打开word文件和ppt文件?
一、打开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演示时全屏
excel打开提示:此工作簿已丢失其VBA项目,ActiveX控件
版本一:方式1:选定文件,右键-属性,将文档属性中的只读选项的勾去掉后再打开文件修改,修改后即可保存; 方式2:打开文件,另存为其它文件名,修改后也可保存。
无法保存时候处理方法: 从开始菜单进入程序-office-office工具-应用程序恢复-选择不能保存的文件-结束应用程序(此时能保存文件的最近的状态兵退出)版本二、这是Excel文件中引用了一些你电脑里没有的Dll文件。
在工具/宏/VBA编辑器中,工具/引用里,把丢失的引用去除即可。
但有可能其中的程序就无法正常运行。
版本三、这种现象一般都是发生在你的文档通过其他文件作为数据库或者是数据资料来源,同时又缺少或数据来源文件不在读取文档指定或相同目录下时出现,比如word文档通过邮件合并功能读取了excel文件中的数据生成邮件合并模板文件后,移除excel数据源文件或将word邮件合并模板文件转移到其他目录时就会出现这个现象,解决方法就是将数据源文件放到指定的位置或与读取文档放置在同一目录下就能解决。
wps 可以打开word和excel 的任何版本???
展开全部 1、原则上wps的最新版本可以打开word和excel的任何版本。
2、但是用wps打开的word文件在排版上会有些许不同。
3、用wps打开的excel文件会有很多高级功能实现比较差,比如“条件格式”、“数据透视表”等等,甚至出现不兼容现象。
建议慎用,以免造成数据丢失。
4、如果你是仅仅打开看看office文件、文字编辑,用wps是可以的。
如果你要进行精确的版面排版或对大量重要数据进行精确处理,建议保持同一个软件,即用office制作的文件,用office打开处理,用wps制作的文件用wps处理,不要混用。
WPS Office是由金山软件股份有限公司自主研发的一款办公软件套装,可以实现办公软件最常用的文字、表格、演示等多种功能。
具有内存占用低、运行速度快、体积小巧、强大插件平台支持、免费提供海量在线存储空间及文档模板。
...
excel中如何通过VBA打开word文件和ppt文件?
展开全部 一、打开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 数据交互
我是使用OFFICE 2003来做的,不知道你那好使不好使Private Sub CommandButton2_Click()'防止重复打开同一Word文档导致错误If Not WordDocIsOpen("F:\总工月报表.doc") Then'创建Word对象Set objWordApp = CreateObject("Word.Application")objWordApp.Visible = True'打开指定文档Set objDocument = objWordApp.Documents.Open("F:\总工月报表.doc")'获取当前Excel的SHEET1的单元格C2数据strName = ThisWorkbook.Sheets(1).Cells(2, 3).Value'将取得得值设定到Word表格的1行2列中objDocument.Tables(1).Cell(1, 2).Range.Text = strNameEnd IfEnd Sub'判断Word文档是否被重复打开Function WordDocIsOpen(ByVal strDocName As String) As BooleanDim objWordApp As ObjectDim objWordDoc As ObjectWordDocIsOpen = FalseSet objWordApp = NothingOn Error Resume NextstrDocName = UCase(strDocName)'判断是否有Word程序被打开Set objWordApp = GetObject(, "Word.Application")If Not objWordApp Is Nothing Then'判断指定Word文件是否被打开For Each objWordDoc In objWordApp.DocumentsIf UCase(objWordDoc.FullName) = strDocName ThenWordDocIsOpen = TrueExit ForEnd IfNextEnd IfSet objWordDoc = NothingSet objWordApp = NothingEnd Function
转载请注明出处51数据库 » word vba 打开excel