如何在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, _