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就开始成为所适用 *** 作平台上的电子制表软件的霸主。

将当前文件夹设为默认即可。

在你的语句前面加上下面两句：

ChDir ThisWorkbook.Path

ChDrive ThisWorkbook.Path

直接使用Shell函数，使用explorer.exe来打开文件夹即可。代码如下：

Sub showdir()

  Shell "explorer.exe D:\dir", vbNormalFocus

End Sub

效果如下：

Shell 函数说明

运行可执行程序并在成功时返回表示程序的任务 ID 的 Variant (Double)，否则返回零。

语法

Shell(pathname[,windowstyle])

Shell 函数语法具有以下命名参数：

组成部分

说明

pathname

必需；Variant (String)。要执行的程序的名称以及任何必需的参数或命令行开关；可能包括目录或文件夹和驱动器。在 Macintosh 中，可以使用 MacID 函数指定应用程序的签名，而不是名称。以下示例使用 Microsoft Word 的签名：

Shell MacID("MSWD")

windowstyle

可选。与要运行程序的窗口的样式对应的 Variant (Integer)。如果省略 windowstyle，程序将启动并最小化，但会获得焦点。在 Macintosh（System 7.0 或更高版本）中，windowstyle 只确定应用程序在运行时是否获得焦点。

windowstyle 命名参数具有以下值：

常量 值 说明

vbHide    0 隐藏窗口并将焦点传递给隐藏的窗口。vbHide 常量在 Macintosh 平台中不适用。

vbNormalFocus 1 窗口获得焦点，并还原到其原始尺寸和位置。

vbMinimizedFocus 2 窗口显示为具有焦点的图标。

vbMaximizedFocus 3 窗口最大化并具有焦点。

vbNormalNoFocus 4 窗口还原到最近的尺寸和位置。当前活动的窗口仍保持活动状态。

vbMinimizedNoFocus 6 窗口显示为图标。当前活动的窗口仍保持活动状态。

注释

如果 Shell 函数成功执行命名文件，它将返回已启动程序的任务 ID。任务 ID 是标识正在运行的程序的唯一编号。如果 Shell 函数无法启动指定的程序，则会发生错误。

在 Macintosh 中，vbNormalFocus、vbMinimizedFocus 和 vbMaximizedFocus 都将应用程序放在前台；vbHide、vbNoFocus、vbMinimizeFocus 都将应用程序放在后台。

---