このマクロ処理をVBAにしたいのですが…

テキストファイル→Excelへの取込み処理をVBAで記述したいのですが、上手く行きません。どなたか、ご存知の方いらっしゃいましたらご回答よろしくお願いします。
マクロ処理で試すとこんなカンジなのですが…
With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\temp\S5097.txt", _
Destination:=Range("A3"))
.Name = "SXXXX"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 932
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = "|"
.TextFileColumnDataTypes = Array(1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub

No.1 回答者： nobu555 回答日時： 2006/12/27 13:50

>テキストファイル→Excelへの取込み処理をVBAで記述したいのですが、上手く行きません。

上手く行きませんとは、どう上手く行かないのでしょうか？

>マクロ処理で試すとこんなカンジなのですが…
新しいマクロの記録で、掲載のコードを収得したのであれば、
実行すれば、再度同じことが出来ますが？

何をどうしたいのか、よく解りませんので、補足をお願いします。

この回答へのお礼

申し訳ありません。投稿後、解決いたしましたが、投稿削除の仕方が分かりませんでした…　ありがとうございます。

お礼日時：2006/12/27 19:08