import - セル値を使用してテキスト ファイルを Excel にインポートする

Question

Excel にインポートしたい .txt 出力ファイルがいくつかあります。

理想的には、Sheet1 をインデックスとして使用したいと考えています。ここで、タイトル、シートの名前、および .txt ファイルのパスと名前を書き込みます。マクロは、セルという名前の新しいシートを作成し、そのシートに対応する .txt ファイルをインポートする必要があります。

マクロを記録して VBA コードを変更しようとしましたが、これまでのところ失敗ばかりです。

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Documents and Settings\UserXP\My Documents\My Dropbox\CIPPEC\1-MIRA\Procesamiento base\OEDE\Tablas\trim\q_employ_pcia_23.txt" _
, Destination:=Range("$A$1")).Name = "q_employ_pcia_23"

何か案が？

ありがとう

Answer 1

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Documents and Settings\UserXP\My Documents\My Dropbox\CIPPEC\1-MIRA\Procesamiento base\OEDE\Tablas\trim\q_employ_pcia_23.txt" _
, Destination:=Range("$A$1"))
.Name = "q_employ_pcia_23"
.Refresh BackgroundQuery:=False
End With
ActiveSheet.Name = "q_employ_pcia_23"

インポートを新しいシートに取得するために機能し、新しいシートにも名前を付けたいと考えています。