excel中如何通过VBA打开word文件和ppt文件？

来源：百度文库 编辑：神马文学网 时间：2024/04/28 18:06:14
一、打开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 " & filepath
End Sub
附：双击打开PPS文件，在演示完后退出PPS时并没有PowerPoint主窗口保留，但在Excel中使用VBA打开的PPS文件，在演示完PPS退出后，PowerPoint主窗口仍然打开。
这里使用一个循环判断演示窗口是否存在，加上错误捕捉程序来处理上面这个问题。
Private Sub CommandButton1_Click()
Dim wo As Object
Dim app As Object
' 创建PowerPoint应用实例
Set app = CreateObject("Powerpoint.Application")
' 使PowerPoint可见
app.Visible = True
' 打开PPS文件
Set wo = app.Presentations.Open(ThisWorkbook.Path  &  "\a.pps")
' 当PPS演示结束时，wo对象的SlideShowWindow不存在，捕捉到错误
On Error GoTo errHandle
' PPS演示时全屏
Do While wo.SlideShowWindow.isFullScreen
DoEvents
Loop
errHandle:
' 退出PowerPoint
app.Quit
Set app = Nothing
Set wo = Nothing
End Sub
excel中如何通过VBA打开word文件和ppt文件？ 打开word，excel文件很慢 vba如何实现将一个EXCEL文件中(关闭的文件)的SHEET页复制到当前的EXCEL中 从Word和Excel文件中提取Flash pdf格式的文件如何转换成word和ppt文件? -- Office学院问题解答系统 打开word，excel文件很慢等故障解决... 如何在一个工作区中打开多个工程文件和删除工程文件 ppt文件转化成word文件 如何打开隐藏文件 cdr文件如何打开 在word中插入随excel文件更新的表格 在WORD、EXCEL和PPT中插入和提取FLASH 在WORD、EXCEL和PPT中插入和提取FLASH 在WORD、EXCEL和PPT中插入和提取FLASH 在VI中打开和编辑多个文件 如何打开隐藏文件123 文件后缀名和打开方式 注意将ppt文件转换为word文件 直接通过ODBC读写Excel表格文件 打开文件 ★Excel-VBA操作文件四大方法1[ExcelHome技术论坛] 如何在 Word 2003 中恢复丢失的文件 如何在 Word 2003 中恢复丢失的文件 如何在 Word 2003 中恢复丢失的文件*