Excel VBA中的相对而不是绝对路径

我编写了一个Excel VBA宏,它在对数据执行计算之前从HTML文件(本地存储)导入数据.

目前,HTML文件使用绝对路径引用:

Workbooks.Open FileName:="C:\Documents and Settings\Senior Caterer\My Documents\Endurance Calculation\TRICATEndurance Summary.html"

但是我想使用相对路径来引用它而不是绝对路径(这是因为我想将电子表格分发给可能不使用相同文件夹结构的同事).由于html文件和excel电子表格位于同一个文件夹中,我不会想到这会很困难,但是我完全无法做到这一点.我在网上搜索过,建议的解决方案都显得非常复杂.

我正在使用Excel 2000和2002工作,但是当我计划分发它时,我希望它能够与尽可能多的Excel版本一起使用.

任何建议都感激不尽.

1> dbb..：

---

只是为了澄清耶鲁星所说的话,这会给你相对路径:

Workbooks.Open FileName:= ThisWorkbook.Path & "\TRICATEndurance Summary.html"

---

Windows的另一个有用的花絮，您可以通过添加\ .. \在路径中指定更高的位置，例如：Workbooks.Open FileName：= ThisWorkbook.Path＆“ \ .. \ MyFile.txt”如果要访问耐力计算文件夹中名为MyFile.txt的文件

2> yalestar..：

---

您可以将其中一个用于相对路径根目录:

ActiveWorkbook.Path
ThisWorkbook.Path
App.Path