フォルダ内全ファイルをシート毎に貼付方法について
VBA仙人様ご教授お願い致します。
1フォルダに数十のログファイル(.txt)が格納されています。
1ファイルは3~5万行記述あります。
これを1つのExcelファイルにしたいと思っています。
VBA流れとして
(1)ログ格納フォルダを選択
(2)ログファイル名を取得
(3)既存Excelファイルに(2)で取得したファイル名(.txt除いた)で順次シートを追加
(4)ログファイル=シートとなるようにファイル読み込み/貼り付け
(5)ログファイルを閉じる
VBAイメージ
格納フォルダ:C:\test
\test内 :A001.txt,A002.txt,B003.txt・・・・・・・・Z051.txt(このフォルダにはログのみ格納)
C:デスクトップ\集計マクロ.excel (VBAの記述のあるExcelシートにはSheet1のみが存在)
VBA前
集計マクロ.excel/Sheet1
VBA実行後
集計マクロ.excel/Sheet1,A001,A002,B003,D004・・・・・・・・・Z051が追加、シート毎にログ情報記載
単一ファイルの読み込み/ファイル名をシート名に付与/情報コピペ/ファイル閉じについては、
作成できたのですが、複数ファイルの場合のファイル名を順次取得し、シート名として付与するなど
objやValiant変数などで試行錯誤しましたが解決できず、こちらに質問されていただきました><
このVBAで作成されたシートからの集計マクロについては完成していますが、
その手前でつまづいています><
ご教授のほどお願い致します><