vba，word和excel相互调用
发布网友
共1个回答
热心网友
一、打开word文件代码：Setwo=CreateObject("Word.Application")wo.Documents.OpenThisWorkbook.Path&"\流程.doc"wo.Visible=True二、打开ppt文件代码：方法1：Setwo=CreateObject("Powerpoint.Application")wo.Visible=Truewo.Presentations.OpenThisWorkbook.Path&filename方法2：Subdd()Dimfilepath$,filename$filepath=Chr(34)&ThisWorkbook.Path&filename&Chr(34)Shell"POWERPNT.EXE"&filepathEndSub附：双击打开PPS文件，在演示完后退出PPS时并没有PowerPoint主窗口保留，但在Excel中使用VBA打开的PPS文件，在演示完PPS退出后，PowerPoint主窗口仍然打开。这里使用一个循环判断演示窗口是否存在，加上错误捕捉程序来处理上面这个问题。PrivateSubCommandButton1_Click()DimwoAsObjectDimappAsObject'创建PowerPoint应用实例Setapp=CreateObject("Powerpoint.Application")'使PowerPoint可见app.Visible=True'打开PPS文件Setwo=app.Presentations.Open(ThisWorkbook.Path&"\a.pps")'当PPS演示结束时，wo对象的SlideShowWindow不存在，捕捉到错误OnErrorGoToerrHandle'PPS演示时全屏
