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

注意 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

Sub Read_Word()\x0d\x0aDim worDoc As object\x0d\x0aDim wordappl As object\x0d\x0aDim mydoc As String\x0d\x0aDim myappl As String\x0d\x0amydoc = thisworkbook.path &"\" &"文件名.doc"　\x0d\x0a'本文档目录下的doc文件，宏拦这里可以直接改成路径＋文件名的形式\x0d\x0aSet wordappl = CreateObject("Word.application")'设置wordappl对象\x0d\x0aSet worDoc = wordappl.Documents.Open(mydoc)　\x0d\x0a'打开word文档，mydoc变量指定路径和文件名\x0d\x0aworDoc.Activate'激活打开的文档\x0d\x0awordappl.Selection.WholeStory '全选文档\x0d\x0awordappl.Selection.Copy'复制选择内容到剪贴板\x0d\x0aworDoc.Application.Quit'关闭word文档\x0d\x0aSet WordApp = Nothing'释放对象变量的内存\x0d\x0aWorkbooks(1).Sheets(2).Activate '激活excel第一个工作簿的第二个工作表\x0d\x0aActiveSheet.UsedRange.Clear　'把当前工作表清空，如果有重哗吵要数据，这条删除\x0d\x0aCells(1, 1).Select'选择A1单元格\x0d\x0aActiveSheet.Paste'粘贴复制的内容乱绝侍\x0d\x0awordappl.quit\x0d\x0aset wordappl =nothing\x0d\x0aEnd Sub

---