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演示时全屏

---