大量のテキストファイルを一つのエクセルファイルに

質問

大量のテキストファイル（以下「テキスト」とします）を、そのテキストを保存しているフォルダ名がわかるように一つのエクセルファイルに書き込みたいと考えています。
例えば「Ａ」というフォルダの中にフォルダ名「1」～「1000」の1000個のサブフォルダがあり、その1000個のフォルダの中にはそれぞれ3～4つのファイルが保存されています（ファイルの種類はバラバラ）。但し、1000個のフォルダには最低でも１つのテキストが必ず保存されており、そのテキストのファイル名はすべて同じです。これら同じファイル名の1000個のテキストを、保存されているフォルダ名がわかるように一つのエクセルファイルの一つのシートの上から順番に書き込みたいのです。
それぞれのテキストは、１行に１情報、改行が10～20ほど、ファイルサイズは1～2KBほどです。エクセルのバージョンは2010です。
書き込み方は、例えばエクセルファイルのSheet1のＡ列にフォルダパス等のフォルダ名がわかる情報を、Ｂ列にテキストの内容を書き込むといった感じで、簡単なデータベースのテーブルを作るイメージです。

上記を実現できる方法はありますでしょうか？

もし何らかのプログラミングが必要であれば、当方ほぼ未経験ですので具体的に例示して頂けると大変ありがたいです。

よろしくお願い致します。

回答No.4

imogasi

ファイル数が少し多いので、手作業ではいやになるだろう。
>何らかのプログラミングが必要であれば
質問にぴったりの（市販、出来合いの）ソフトはないから、プログラムを使わざるを得ないだろう。
ーー
それにプログラムでやるにしても、下記のステップを踏んでやることになるのではないか。
質問者は、ＶＢＡやＶＢＳｃｒｉｐｔを使ったの経験がないらしいので、できないだろう。
あきらめることだ。ファイルやフォルダをたくさん作ると困難が待ち受けている。
（１）Ａの下のフォルダ名をエクセルシートに出す
　　　　Ａに直接ぶら下がるファイルはあるのか、ないものとしてよいか。
http://officetanaka.net/excel/vba/tips/tips95.htm
Dir関数でサブフォルダを取得する。
ーー
（注）
ＶＢ系では
（Ａ）ＶＢのＤＩＲを使う方法
（Ｂ）ＶＢＳｃｒｉｐｔを使う方法がある。
ーー
（２）その表を基に、その各フォルダ（Ａからは実はサブフォルダ）の中のファイル名をエクセルシートの各行に打ち出す。
　　　テキストファイル以外はないのか。テキストファイル以外はスキップするのか。
http://officetanaka.net/excel/vba/file/file07.htm
ファイルの一覧を取得する
（３）フルパス名＋対象ファイル名がシートに出来上がれば、そのファイル名を含む、フルパスをシート名からとって
、ファイル名によって次の段階でオープンする。
　　以上は実情把握と準備段階である。
ーー
　いよいよファイルをオープンして中身を見る段階。　もちろん１ファイルの作業が終わればファイルクローズ。
（４）ファイルをオープンする。
エクセルの「区切り位置」の機能を使って同行の複数セルに位置付けることができる場合もあろう。
http://officetanaka.net/excel/vba/file/file08b.htm　のsample2
ほかにLineInputで１レコードごと読み込んで、ＳＰＬＩＴ関数で項目に（各セル用に）分離する方法もある。
ーーー
　最終的に望みのものに編集する。
（５）セルデータを編集する必要がないか。あればどう編集するか。
＞それぞれのテキストは、１行に１情報、改行が10～20ほど、ファイルサイズは1～2KBほどです
がどういう状態かわかりづらいし、プログラムで対処を取れるかどうか。
ーー
＞当方ほぼ未経験ですので具体的に例示して
全部丸投げで、このコーナーの趣旨に反する。プログラムの下請けに応じるコーナーではないはず。
ＷＥＢには質問の部分部分になら似たケースで近いコード例は見つかると思う。有名な処理タイプと思う。
興味とやる気があれば、まず調べまくることかな。
しかし、まったくプログラム未経験では説明しきれない。　　
ーーー
またコンピュター界は、ＵＮＩＸ、Ｌｉｎｕｘ系のこと（経験者）と、ＭｓのOffice系の考えとあるので
注意すること。
エクセルのシートに出したいということなので、ややＭｓのOffice系の処理（VBAなど）が近いのかなと思う
次第です。

回答No.3

keithin

ご相談に具体的に書かれていない点としては「Ａフォルダ」が具体的にどこにあるのかと，「テキストファイル」が具体的にどんな拡張子がくっついたファイルなのか，それから「１つのテキストファイルには１０～２０行ぐらい情報がある」のをエクセル上に具体的にどんな具合に展開したいのか不明，の３点ですね。

「全部一緒なテキストのファイル名」も具体的なファイル名が不明ですが，いずれにしても拡張子の情報は必須です。
そういう情報提供が無いと，回答者は勝手に想像で間違った回答をしちゃうかもしれませんし，自称シロートさんのご相談者さんも，寄せられた回答のどこをどう直したらいいのか分からないでしょ？

手順：
まっさらのエクセルブックを用意する
Ａフォルダの「中」（＝「１」から「１０００」フォルダの並び）にブックを保存する

ＡＬＴ＋Ｆ１１を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

sub macro1()
　dim myFile as string
　dim FSO as object
　dim myFolder as variant
　dim buf as string

　myfile = "全部一緒のテキストファイル名.txt"　’自力で正しく修正
　cells.clearcontents
　range("A1:B1") = array("folder", "item")

　set fso = createobject("Scripting.FileSystemObject")
　for each myfolder in fso.getfolder(thisworkbook.path).subfolders

　　open myfolder & "\" & myfile for input as #1
　　do until eof(1)
　　　line input #1, buf
　　　if buf <> "" then
　　　　range("A65536").end(xlup).offset(1) = myfolder.path
　　　　range("A65536").end(xlup).offset(0, 1) = buf
　　　end if
　　loop
　　close #1
　next
　set fso = nothing
end sub

ファイルメニューから終了してエクセルに戻る
ＡＬＴ＋Ｆ８を押してマクロを実行する

以上です。

お礼

回答頂き、ありがとうございます。
ご指摘のありました、具体的でない点ですが、
・「Ａフォルダ」の場所はＤドライブの直下
・「テキストファイル」の拡張子は「txt」
・「エクセル上に具体的にどんな具合に展開したいのか」 → Ａ列にフォルダパス、テキストファイルの各１行をＢ列の各１行に書き込む（回答頂いた手順で得られる結果の通り）
・「全部一緒なテキストのファイル名」は「リスト.txt」
です。

おかげさまで、ほぼ希望通りの結果が得られました。ですが、「リスト.txt」の中にはUnicode形式で保存されたものが含まれており（これも質問時に漏れていました、申し訳ありません）、それらの内容は文字化けしてエクセルに書き込まれます。
文字化けを回避する方法はないでしょうか？

回答No.2

shintaro-2

それぞれのテキストファイルの末尾に改行記号があれば、
dos窓でできます。

まず、フォルダがＥドライブのaaaという名前だとして
dos窓で
dir:e:\aaa\*. > e:\aaa\dir_list.txt
と入力すれば、
（\は半角の円記号です）
サブフォルダ名が入ったdir_list.txtというファイルを
フォルダaaaに作成することができます。

目的のテキストファイルがbbb.txtだとすると
エクセル上で
e:\aaa\1\bbb.txt+e:\aaa\2\bbb.txt+・・・・・・ > e:\aaa\all_bbb.txt
というデータを作成し

それをdos窓で入力すれば
bbb.txtを１つに連結したall_bbb.txtというファイルを
フォルダaaaに作成することができます。

ファイルの内容が表示される必要が無ければ
フォルダ名の横に
=hyperlink("e:\aaa\1\bbb.txt","サブフォルダ1")
とでも入力しておけば、ハイパーリンクで内容の確認自体は可能です。

回答No.1

STICKY2006

>もし何らかのプログラミングが必要であれば、当方ほぼ未経験ですので具体的に例示して頂けると大変ありがたいです。

変な指摘ですが、プログラミングやるような人らにこの一言言うと、「じゃあ自分で勉強してね♪」って言われるのがオチなんで頭の片隅にでも置いといてみてください。(まぁ、プログラミングに限らず、他の業界でもそんな場合はあるでしょうが。

>上記を実現できる方法はありますでしょうか？

方法の検討だけ。

・grep機能のあるテキストエディタで、正規表現を使用し、文字が存在するファイルを対象として一覧表示をさせ、その結果を加工してエクセルに貼り付ける。

grep機能
詳しくはググってね。文字を検索する機能です。

テキストエディタ
テキストを打ちまくれるツールです。無料なものがいっぱいネットで落ちてるので探してみてね。grep機能が付いているものを探しましょう。

正規表現
「半角ドット」が、文字が存在するかどうか？の検索で使えると思います。詳しくはググってね。

grep結果の表示で、ファイルのパスと検索した文字列を合わせて表示するようなものならば(というか、そうでなきゃgrepである意味がないから、そうなってると思うが)そのままコピペして真ん中で分割すれば使えるのではないかと。