如何在VBA中将当前目录指定为路径？

Question

我有一个支持宏的WorkBook。我需要指定启用宏的文件作为路径的当前文件夹。我试过设置

path = ActiveWorkbook.Path

和

path = CurDir()

但这些都不适合我。对此有何想法？

Answer 1

如果您想要的路径是运行宏的工作簿，并且该工作簿已保存，那么

ThisWorkbook.Path

是你要使用的。

Answer 2

我以为自己被误解了，但我是对的。在这种情况下，它将是ActiveWorkbook.Path

但主要问题不在这里。问题在于这两行代码

strFile = Dir(strPath & "*.csv")

哪个应该写成

strFile = Dir(strPath & "\*.csv")

和

With .QueryTables.Add(Connection:="TEXT;" & strPath & strFile, _

哪个应该写成

With .QueryTables.Add(Connection:="TEXT;" & strPath & "\" & strFile, _