マクロについて

質問

毎週、複数のテキストファイルを１つずつ開いて
データをコピーしてエクセルに張り付ける作業があり
時間がとてもかかってしまいます。

マクロを調べても分からず、どうかお力を貸してください。

フォルダ内にテキストファイルが50個あります。
エクセルの１つのSheetに、フォルダ内テキストファイルを
下記のようにデータを１つにまとめたいです。
テキストファイルのデータは１行目～4行目までデータが入っていたりいなかったりです。

　A列　　　　　　　　　　　　　B列　　　　　　　　　C列　　　　　　　　D列　　　　　　　　　E列
ファイル名１.txt　　　　　データ１行目　　　データ2行目　　　　データ3行目　　　データ4行目
ファイル名2.txt　　　　　 データ１行目　　　データ2行目　　　　データ3行目　　　データ4行目
　　 ・
　　　・
　　　・

以上、宜しくお願い致します。

回答No.1

keithin · ベストアンサー

まっさらのブックを一つ用意します
ＡＬＴ＋Ｆ１１を押し，現れた画面で挿入メニューから標準モジュールを挿入します
現れたシートに下記をコピー貼り付けます

sub macro1()
　dim myPath as string
　dim myFile as string
　dim n, c, s

’初期化
　mypath = thisworkbook.path & "\"
　myfile = dir(mypath & "*.txt")

’受入準備
　on error resume next
　worksheets.add before:=worksheets(1)
　activesheet.name = format(date, "yyyymmdd")
　on error goto 0

’ファイルの巡回
　do until myfile = ""
　　n = n + 1
　　cells(n, "A") = myfile

　’データの読み出し
　　open mypath & myfile for input as #1
　　c = 1
　　do until eof(1)
　　　line input #1, s
　　　c = c + 1
　　　cells(n, c) = s
　　loop
　　close #1

　　myfile = dir()
　loop
end sub

ファイルメニューから終了してエクセルに戻ります
ブックを，テキストファイルが保存してあるのと同じフォルダに保存します
ブックを開き直し，ＡＬＴ＋Ｆ８を押し，登録したマクロを実行します。

お礼

keithin様
何と言ったら良いのか
本当に、本当にありがとうございます！！！
そして、とても感謝です。
これで、長い手作業から開放されました。
嬉しくてたまりません。
ありがとうございました。

回答No.2

shintaro-2

力技ですが、

ファイル名が各ファイルの先頭行に入っていると仮定して

MS-Word等で全部のファイルを読み込み
一つの文書とします。

そこで検索置換でリターン記号を例えば"?"に
ファイル名の前にリターンを挿入

テキストファイルで保存

エクセルでテキストファイルとして読み込み、
データ区切りで置換した文字を指定

こんなところでいかがでしょう？

お礼

ご回答ありがとうございます。
ファイルの先頭にファイル名が入っていない為
今回は利用出来ませんでしたが、違う時に
是非、利用してみたいと思います！
考えていただきましてありがとうございました！！！