qq会员刷钻教程:excel中如何通过VBA打开word文件和ppt文件？

来源：百度文库编辑：中财网时间：2024/04/28 00:18:07

一、打开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 中如何得到一串文件名 Excel中如何封装VBA 代码 Excel VBA中EXCEL对象？如何在word文本中插入excel文本的连接,通过邮件发送形式,可以在另一台计算机中打开连接有没有通过excel vba操作word的书籍或资料？能否列出名称。 word中如何删除excel????? excel中VBA的问题 VBA编程时如何提取word文件中备注信息 word VBA编程中如何选择当前页的表格可否提供vba程序在excel中自动打开其它的excel表格？如何使用VBA启动Excel 用WORD如何将EXCEL文件打开我想在excel中打开、保存、再关闭另一个工作薄，其vba代码怎么写请问如何在Excel中实现点击按钮打开Word的指定文件? 如何将excel图表到入到word中如何在word中插入excel表格？求excel 中VBA的学习资料 Excel VBA Excel VBA vba excel 如何在word文本中插入excel文本的连接,可以在另一台计算机中打开连接在EXCEL里如何实现类似WORD里的通配符的查找功能？如果用VBA实现的话怎么做？请问如何设置打开word,excel文件的权限密码如何解决打开已保存的WORD及EXCEL文件