在Excel VBA中使用相对路径而不是绝对路径
在Excel VBA中使用相对路径而不是绝对路径
我写了一个Excel VBA宏，它可以从本地存储的HTML文件中导入数据，然后对数据进行计算。\n目前，HTML文件是使用绝对路径引用的：\n
Workbooks.Open FileName:="C:\Documents and Settings\Senior Caterer\My Documents\Endurance Calculation\TRICATEndurance Summary.html"
\n然而，我想使用相对路径来引用它，而不是绝对路径（因为我想将电子表格分发给可能不使用相同文件夹结构的同事们）。由于HTML文件和Excel电子表格位于同一个文件夹中，我认为这应该不难，但是我完全无法做到。我在网上搜索了一下，提出的解决方案都很复杂。\n我在工作中使用的是Excel 2000和2002，但是由于我计划分发它，所以希望它能在尽可能多的Excel版本中运行。\n非常感谢任何建议。
相对路径而不是绝对路径在Excel VBA中的问题出现的原因是打开文件时，如果"当前目录"设置不正确，将只能使用路径。解决方法如下：
首先，可以尝试在即时窗口中输入"Debug.Print CurDir"，这将显示在"工具"菜单中"选项"设置的默认文件位置。
其次，可以使用以下代码来更改当前目录：
ChDir ThisWorkbook.Path
然后，可以使用ThisWorkbook.Path来构建HTML文件的路径。可以使用Scripting Runtime中的FileSystemObject来执行此操作，以下是示例代码（在设置对Microsoft Scripting Runtime的引用后）：
Const HTML_FILE_NAME As String = "my_input.html"
With New FileSystemObject
With .OpenTextFile(.BuildPath(ThisWorkbook.Path, HTML_FILE_NAME), ForReading)
' 现在我们有一个TextStream对象，可以用来读取文件
End With
End With
需要注意的是，Scripting Runtime可能没有始终安装在计算机上，特别是在某些情况下可能不存在或未注册。但是，Office使用它，因此在处理Office时，Scripting Runtime应该是存在的。另外，所有比IE6更高版本的IE（我记得）都有Scripting Runtime，而.NET Framework 4+也有（可能我记错了！）。然而，IE并不总是默认安装在Windows上，而.NET 4仍然是相对较新的版本，因此客户端可能没有安装Scripting Runtime。
相对路径是指根据当前文件的位置来指定文件路径，而不是使用完整的绝对路径。在Excel VBA中，使用相对路径可以提高代码的可移植性和灵活性。
问题的出现原因：
在Excel VBA中，当我们需要引用其他文件或文件夹时，通常会使用绝对路径来指定它们的位置。但是，当我们将代码移植到其他计算机上时，由于文件的位置可能发生变化，绝对路径可能无法正常工作。这就导致了代码在不同计算机上执行时出现问题。
解决方法：
为了解决这个问题，我们可以使用相对路径来代替绝对路径。相对路径是相对于当前文件的位置来指定路径的。在Excel VBA中，有几个可以用作相对路径根的选项，它们分别是：
ActiveWorkbook.Path ThisWorkbook.Path App.Path
这些选项分别代表当前活动工作簿的路径、当前工作簿的路径和应用程序的路径。
通过将这些相对路径选项与文件或文件夹的相对路径结合使用，我们可以确保代码在不同计算机上仍然可以正常工作。使用相对路径的代码示例如下：
Dim filePath As String filePath = ActiveWorkbook.Path & "\data\"
在上面的示例中，我们将当前活动工作簿的路径与相对路径"data\"结合使用，从而得到了文件夹"data"的完整路径。
通过使用相对路径，我们可以确保代码在不同计算机上的可移植性和灵活性。无论我们将代码移植到何处，只要文件或文件夹的相对位置保持不变，代码就可以正常工作。这为我们的开发工作带来了很大的便利性。
相较于绝对路径，Excel VBA中使用相对路径的原因是为了方便在不同计算机上使用相同的代码，同时避免路径的硬编码。使用相对路径可以使得代码更加灵活和可移植。
但是，在使用相对路径时，可能会遇到一些问题。例如，在Excel for Mac中，路径需要使用冒号（:）而不是反斜杠（\）来指定。这可能导致在Mac上运行的代码无法正确地找到文件路径。
解决这个问题的方法是针对不同的操作系统使用不同的分隔符。对于Windows系统，可以使用反斜杠作为路径的分隔符。对于Mac系统，则需要使用冒号作为分隔符。通过根据操作系统类型来动态选择路径分隔符，可以在不同的操作系统上正确地指定文件路径。
另一个有用的提示是，在路径中可以使用“\..\”来指定更高级别的路径。例如，如果要访问名为MyFile.txt的文件，并且该文件位于Endurance Calculation文件夹中，可以使用以下代码：Workbooks.Open FileName:= ThisWorkbook.Path & "\..\ MyFile.txt"。
通过使用相对路径而不是绝对路径，可以使代码更具可移植性，并且适用于不同的操作系统。通过动态选择正确的路径分隔符，并使用“\..\”指定更高级别的路径，可以解决在Excel VBA中使用相对路径时可能遇到的问题。