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

1、首先我们在电脑上打开WPS，打开一个Excel表。

2、其次打开Excel的工具栏，选择自定义功能区域后，选中自定义功能中的开发工具以启用开发工具。

3、最后会d开对话框，界面将提示是否启用该宏，并单击启用宏就可调用文档了。

在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文件都打开了。

请点击输入图片描述

---