Excel2003でマクロを使用してtxt取り込み
エクセルでマクロを使用して、複数のtxtファイルを取り込みたいのですが
うまくいかず困っております。
過去の質問を見ながらやりたい事に近い下記のサンプルマクロを見つけました。
サンプルマクロ--------------------------------------------------------
Sub txt取り込み()
Dim OpenFileName As Variant
OpenFileName = Application.GetOpenFilename(FileFilter:="テキスト,*.txt?", _
MultiSelect:=True)
If IsArray(OpenFileName) Then
''''
Else
MsgBox "キャンセルしました、OKを押してください"
End If
End Sub
-------------------------------------------------------------------
これだけでは、マクロ実行→ダイアログボックスでtxtFile選択。で終わってしまいます。
ここから下記の「txtFile内容説明」ご参照のうえ、以下の「手順」でtxt取込み出来る様、
ご教授いただけませんでしょうか?
「txtFile内容説明」---------------------------------------------
・ダイアログボックスで選択したいテキストファイルは最大100個です
・テキストファイルには、カンマで区切られたデータが保存されております
テキストファイル例(ファイル名は001.txtから連番で100.txt)
001.txt→"001","A001","B","C",
002.txt→"002","A002","B","C",
003.txt→"003","A003","B","C",
．
．
．
100.txt→"100","A100","B","C",
「txtFile内容説明」ココまで---------------------------------------
「手順」----------------------------------------------------------------------
(1)ダイアログボックスでテキストファイル複数選択(テキストファイル100個選択したとして)
(2)セルR3:R102(R3に001.txt R4に002.txt R5に003.txt … R102に100.txt)を読み込み
(3)それぞれのテキストファイルをカンマ区切りで、右セルに区切って取り込み
セル配置
R3 S3 T3 U3
R4 S4 T4 U4
R5 S5 T5 U5
．
．
．
R102 S102 T102 U102
上記、セル配置に取り込まれたデータ
001 A001 B C
002 A002 B C
003 A003 B C
．
．
．
100 A100 B C
と、なるようにマクロを作成することは可能でしょうか?
その場合、どのような記述になるのか教えていただければ幸いです。
「手順」ココまで-------------------------------------------------------------
予備情報
説明の為、テキストファイル内データを、"003","A003","B","C",と、4データにしておりますが、
実際は16データあり、さらに1データの文字数は10ケタあります。
実際に16データ、文字数10ケタで質問説明を書いたのですが、あまりにわかりにくくなってしまい、
4データとして、文字数も絞らせていただき、質問致しました。
申し訳ございません。
なお、100個のテキストファイルを読み込ませ、セル範囲R3:AG102にデータテーブルを作りたいと
考えております。
説明不足な点ございましたら、ご指摘いただけますでしょうか。
何卒、よろしくお願い致します。
お礼
お礼が遅れて申し訳ございません。 質問の件は、ＶＢＡで自動化したかったのでお尋ねした次第です。 ありがとうございました。