queryTable作成時にオブジェクト定義エラーになるが原因がわからない

Question

【したいこと】
エクセルにおいて、手動で行っていた外部データ読込処理を自動化したい。
取り込むデータは、CSV形式のテキストファイル（.txt）
手動での取り込み手順は、『外部データの取り込み』タブから行っている。
すべて文字列として取り込む。
OpenTextでの読み込みを試したが、要望が叶わなかったため、どうしてもQueryTableを使いたい。
なぜなら、QueryTableは『外部データの取り込み』と同じ処理を行うと散見したため。

【試したこと】
QueryTableを試したが、

Dim qt as QueryTable
Set qt = ActiveSheet.QueryTables.Add(Connection:=path, Destination:=ActiveSheet.Range("A1"))

の部分で、

実行時エラー'1004'
アプリケーション定義またはオブジェクト定義のエラーです

となる。

【原因の予想】
QueryTableで読み込めるのは（.csv）だけで、（.txt）は読み込めない？
いやでもGUIでは読み込めてたし…
わかりません。ご助言お願いします。

Answer 1

VBA CSV ファイルの読み込み (QueryTables.Add 関数を使う)
こちらのリンクにもあるとおり、以下のようにすれば動くと思います。

Set qt = ActiveSheet.QueryTables.Add(Connection:=path, Destination:=ActiveSheet.Range("A1")) 
↓
Set qt = ActiveSheet.QueryTables.Add(Connection:="TEXT;" & path, Destination:=ActiveSheet.Range("A1"))