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

以下代码芹岁改，楼主可以参考，打开文件夹，选择文件后嫌判自动打开

Sub text()

With Application.FileDialog(msoFileDialogFilePicker)

.InitialFileName = ThisWorkbook.Path &"\"

.Title = "请选择对雀携应文本文件"

.AllowMultiSelect = False

If .Show Then f = .SelectedItems(1) Else Exit Sub '

End With

Shell "RUNDLL32.EXE URL.DLL,FileProtocolHandler " &f, vbMaximizedFocus

End Sub

注意 c:\a 目录下的文件不游迅要太多神碧此,免得死机

Sub 打开excel表格()

Dim myPath$, myFile$, AK As Workbook

Application.ScreenUpdating = False '冻结屏幕，以防屏幕抖动

myPath = "c:\a\" '把文件路径定义给变量

myFile = Dir(myPath &"*.xls") '依次找寻指定路径中的*.xls文件

Do While myFile <>"" '当指定路径中有文件时进行循环

If myFile <>慧链 ThisWorkbook.Name Then

Set AK = Workbooks.Open(myPath &myFile) '打开符合要求的文件

End If

myFile = Dir '找寻下一个*.xls文件

Loop

Application.ScreenUpdating = True '冻结屏幕,此类语句一般成对使用

End Sub

---