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

先定义路径\x0d\x0a1.当前路径：\x0d\x0apath = Application.ThisWorkbook.path\x0d\x0a然后，打开时，加入其余路径，和文件名。\x0d\x0aWorkbooks.Open filename:= _\x0d\x0apath &"\model\" &"book1.xls", Notify:=False \x0d\x0a2.同级别文件夹路径：\x0d\x0aSub hjs111()\x0d\x0at = ThisWorkbook.path '当前文件的路径\x0d\x0aa = Split(t, "\")'以 \ 为分割，把t 保存为数组a\x0d\x0apath0= Replace(t, a(UBound(a)), "") '把字符串t中的字符串（a(UBound(a)）替换为空。\x0d\x0a 'path0 &"\B\" &"book1.xls" 这下明白了吧。\x0d\x0aEnd Sub\x0d\x0a\x0d\x0a例如：若 t= C:\Documents and Settings\HackEr\桌面\x0d\x0a 则 数组a即为 元素分别为 C: Documents and Settings HackEr 桌面 的数组\x0d\x0a a(UBound(a) 为a（3）即 桌面，UBound(a)为 a数组的上界 3 \x0d\x0a Replace(t, a(UBound(a)), "") 即为 把t 中的第四个元素 桌面 替换 为空。

如果你的生成File的文件和a.jpg在同一级的话。你用File f=new File("a.jpg")\x0d\x0a如果你的生成File的文件和a.jpg不在同一级的话：1.File在外，a.jpg在pic文件夹则File f=new File("pic/a.jpg")\x0d\x0a2.File在file文件夹，a.jpg在pic文件夹则File f=new File("../pic/a.jpg")\x0d\x0a3.File在file文件夹，a.jpg外则File f=new File("../a.jpg")

---