excel word ppt需要使用vba处理高难度数据都可以留言

Question

如题所述

Answer 1

一、打开word文件代码：Set wo = CreateObject("Word.Application")
wo.Documents.Open ThisWorkbook.Path & "\流程.doc"
wo.Visible = True
二、打开ppt文件代码：方法1：
Set wo = CreateObject("Powerpoint.Application")
wo.Visible = True
wo.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演示时全屏追问

啥意思