任意フォルダ内すべて読み込み

質問

お世話になります。

任意のフォルダ内のすべてのテキストファイルを読み込みスペースで区切りB2に入力されている数値をEXCELファイルに書き出すVBAをどなたか教えてください。

恐れ入りますが、よろしくお願いいたします。

回答No.3

imogasi

この関連の質問は２日に１回ぐらい出ます。
Googleで例えば「フォルダ　存在するすべて　ファイル　VBA」などで照会するとコード例が沢山出ます。調べて勉強してください。
＞VBAをどなたか教えてください
丸投げで、回答者にコード作成依頼で規約違反だ。コード作成下請けの場で無はない。
ーー
フォルダ内のファイルを捉えるのは
（１）FSOを使う
（２）Dir関数
（３）FileSearch
などが載っています。
（３）についてWEBにあるものの一部を、動作確認したので下記に載せておく。
CurDirは自分の指定のフォルダのフルパスで置き換えること。
上記はCSVファイルを選択した例。
MsgBox Application.FileSearch.FoundFiles(i)
のところはApplication.FileSearch.FoundFiles(i)を使ってファイルを開き、カンマでSplitして項目を捉え、処理する。
＞スペースで区切り
＞B2に入力されている数値
何のこと。意味不明。カンマ区切りをスペース区切りに直す？
珍奇。
ーー
Sub test01()
MsgBox CurDir
Application.FileSearch.NewSearch
Application.FileSearch.LookIn = CurDir & "\"
Application.FileSearch.Filename = "*.csv"
Application.FileSearch.SearchSubFolders = False
If Application.FileSearch.Execute() = 0 Then
MsgBox "ファイルはありません"
Else
For i = 1 To Application.FileSearch.FoundFiles.Count
MsgBox Application.FileSearch.FoundFiles(i)
Next
End If
End Sub

回答No.2

hallo-2007

どのようなテキストファイルなのかわかりませんが
http://www.moug.net/tech/exvba/0060029.htm
ここのコード一度、実行してみては如何でしょうか。

回答No.1

diashun

ご質問の目的や意味も不鮮明で、かつ、質問丸投げ的なご要求では、仮に回答が得られたにしても御質問者の勉強になるとは思われません。
少なくとも、自分ではここまで努力したが（他の質問を検索したが該当する答えが見つからなかった、Webでも検索したが・・・）今の実力ではどうしようもない、くらいまでの試行錯誤をした上での質問投稿をしていただきたく思います。