vba - 現在のディレクトリをVBAのパスとして指定するにはどうすればよいですか？

Question

マクロが有効なワークブックがあります。マクロが有効なファイルが存在する現在のフォルダーをパスとして指定する必要があります。設定してみました

path = ActiveWorkbook.Path

と

path = CurDir()

しかし、これらはどちらも私には効果がありません。これについて何か考えはありますか？

Answer 1

必要なパスがマクロを実行しているブックへのパスであり、そのブックが保存されている場合は、

ThisWorkbook.Path

あなたが使うものです。

Answer 2

誤解したと思いましたが、正しかったです。このシナリオでは、ActiveWorkbook.Path

しかし、主な問題はここにはありませんでした。問題はこれらの2行のコードにありました

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

これは次のように書くべきでした

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

と

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

これは次のように書くべきでした

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