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

一、打开word文件代码：Set wo = CreateObject("Word.Application")\x0d\x0awo.Documents.Open ThisWorkbook.Path &"\流程.doc"\x0d\x0awo.Visible = True\x0d\x0a二、打开ppt文件代码：方法1：\x0d\x0aSet wo = CreateObject("Powerpoint.Application")\x0d\x0awo.Visible = True\x0d\x0awo.Presentations.Open ThisWorkbook.Path &filename方法2：Sub dd()Dim filepath$, filename$\x0d\x0afilepath = Chr(34) &ThisWorkbook.Path &filename &Chr(34)\x0d\x0aShell "POWERPNT.EXE " &filepathEnd Sub附：双击打搏袭裂开PPS文件，在演示完后退出PPS时并没有PowerPoint主窗口保留，但在Excel中使用VBA打开的PPS文件，在演示完PPS退出后，PowerPoint主窗口仍然打开。\x0d\x0a这基闭里使用一个循环判断演示窗口是否存在，加上错误捕捉程序来处理上面这个问题。\x0d\x0aPrivateSub CommandButton1_Click()\x0d\x0aDim wo AsObject Dim app AsObject\x0d\x0a' 创建PowerPoint应用实例\x0d\x0aSet app = CreateObject("Powerpoint.Application")\x0d\x0a' 使PowerPoint可见\x0d\x0aapp.Visible = True ' 打开PPS文件\x0d\x0aSet wo = app.Presentations.Open(ThisWorkbook.Path &"\a.pps")\x0d\x0a' 当PPS演示结束时，wo对象的SlideShowWindow不存在，捕捉禅册到错误\x0d\x0aOnErrorGoTo errHandle\x0d\x0a' PPS演示时全屏

1、首先要把PPT文件和视频文件存放在同一文件夹内，如在D盘（其它盘也可以）新建一个文件夹，把PPT文件和视频文件移动到这个文件夹里面。

2、添加开发工具选项，点击文件——选项——自定义功能区——找到开发工具并勾选——点击确定，这样就可以在菜单那里开启开发工具了。

3、添加Windows Media Player控件：点击菜单栏上的开发工具—控件—在控件那里点击运历最后一个旁手搜像把手的图标（其它控件）—d出的其它控件选项中选择Windows Media Player，再点击确定。

4、编辑Windows Media Player控件属性，右击刚刚插入的Windows Media Player控件—属性表—在属性那里就会找到URL属性。

5、把同一薯饥文件夹下的视频名称复制过来（右击视频——重命名——然后按ctr+c复制），要把扩展名也复制——接着粘贴到属性表中的URL属性那里，关闭退出即可设置好相对路径。

在D盘新建一慧胡个名为文件的文件夹，在里面创建几个Excel文件。

请点击输入图片描述

2

打开Excel，选择开发工具菜单项。

请点击输入图片描述

3

单击插入菜单，在Excel中插入一个名为Open的按钮。

请点击输入图片描述

4

在按钮上右击，进入Vba编前宴拦辑窗口。

请点击输入图片描述

5

首先，定义三个变量，类型为工作簿。

请点击输入图片描述

6

接着，定义文件保存的路径，路径为D盘的文件目录。

请点击输入图片描述

7

用变量File，实现查找指定路径中的所有Excel文件。

请点击输入图片描述

8

用While语句，判断文件是否为空，空则退出循环。

请点击输入图片描述

9

用if语句判断Excel文件是否存在，如果存在则打开文件。

请点击输入图片描述

10

最后，File指向下一个文件，继续打开其他Excel文件。

请点击输入图片描述

11

运祥镇行程序，可以看到文件目录中的所有Excel文件都打开了。

请点击输入图片描述

---