EXCEL如何使用VBA打开相对路径下的文件或文件夹？

打开文件如下：

Workbooks.Open ("C:\对账单\对帐单.xlsx")

这里你可以把“C:\对账单\”换成你的绝对路径，

你可以用：a = ThisWorkbook.Path

a = ThisWorkbook.Path

Workbooks.Open ("" &a &"&" \ "&对帐单.xlsx")

来获取你当前表的绝对路径，然后再打开，因为不知道你的具体情况，如果有问题可以hai我

如果当前文件夹下还有A文件夹可以用代码：

Workbooks.Open ("" &a &"&" \ A\"&b.xlsx")

Microsoft Excel是Microsoft为使用Windows和Apple Macintosh *** 作系统的电脑编写的一款电子表格软件。直观的界面、出色的计算功能和图表工具，再加上成功的市场营销，使Excel成为最流行的个人计算机数据处理软件。在1993年，作为Microsoft Office的组件发布了5.0版之后，Excel就开始成为所适用 *** 作平台上的电子制表软件的霸主。

一、打开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、首先我们打开一个工作样表作为例子。

2、我们使用alt+f11组合快捷键进入vbe编辑器， 插入一个新的模块，并在模块中输入以下代码：

Sub openWorkbook1()

Workbooks.Open "<需打开文件的路径><文件名>"

End Sub

3、看代码写的很明白了， 比如我要打开桌面上的一个工作薄，那么我们就是输入文件的路径，查找路径的方式是在文件上点击鼠标右键，然后选择属性菜单。标注的位置处即文件的路径。

4、然后使用斜杠分隔文件名。 文件名即图片中指示所在的地方。文件名和文件路径都可以使用鼠标选择并复制粘贴。

5、输入完整的代码

Workbooks.Open "C:UsersjohnDesktop新建 Microsoft Excel 工作表.xlsx"

然后运行，则可以打开这个工作薄。大家注意到<>括号是不需要的.，直接输入文件路径加名称就可以了。

6、这里需要注意的是， open方法虽然可以打开其他的文件，但是它是属于workbooks这个对象，所以打开文件的方式将会是以excel工作薄的方式打开，所以只能打开excel文件，而不能打开其他格式的文件。

以上就是在excel表格中使用vba函数打开工作薄方法介绍， *** 作很简单的，大家学会了吗？希望这篇文章能对大家有所帮助！

---