<em>EXCEL</em>如何使用<em>VBA</em>打开相对路径

将当前文件夹设为默认即可。
在你的语句前面加上下面两句：
ChDir ThisWorkbook.Path
ChDrive ThisWorkbook.Path

打开文件如下：

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

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

你可以用：a = ThisWorkbook.Path

a = ThisWorkbook.Path

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

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

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

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

if dir(a & "\" & b,vbDirectory)="" then
MkDir a & "\" & b
end if

打开文件如下：

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

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

你可以用：a = ThisWorkbook.Path

a = ThisWorkbook.Path

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

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

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

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