ExcelVBAでフォルダ内のファイルを読み込む

質問

お世話になります。
ExcelのVBAで、選択したフォルダ内全てのテキストファイル（.txt）を読み込んで、書き出しすることはできるでしょうか？

例えば、
01....05.txt→VBA→01_a...05_a.txt

のような感じで、別ファイルで作りたいです。
動作環境はMacOsX、Excel2004forMacです。
Windowsでは動くVBAもMacでは動かなかったりするので、苦戦しています。
お願いします。

回答No.2

imogasi

>頻出しているとおっしゃるのならその質問のURLなどを例えとして貼って頂けないでしょうか？
もちろんＷＩＮの話だが。Ｇｏｏｇｌｅで「フォルダ　ファイル　ＶＢＡ」で照会すればでてくることだし、多数有るので、アドバイスにＵＲＬを一々載せる必要もない。
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_080.html
以下たくさん出る。
ーー
ＭＡＣの質問に応えたのが、適当でなかったかとも追うもが、ＶＢＡであれば、ほとんどそっくり使えると思って書いた。
Ｓｐｌｉｔの件も昔の（９７？）バージョンでは使えなかった記憶はあるが。
使えないなら、Ｉｎｓｔｒ関数でやれるよ。
そもそも＞ＷＥＢ照会もして、コードも書いているなら、もっと細かい部分の質問になるし、質問にコードも書いているように思う。

お礼

ありがとうございます、そのサイト様はもちろん使わせて頂いております。
残念ながらMacでは使えません。と言っても、情報サイトが少ないので自分で実際に実行してみなければわからないというのも実際ですが。
Instr関数でもできるのですね。それは知りませんでした。ありがとうございます。

Webから情報をとって、コードを何回か書いていても思うような結果が得られなかったので、自分が今まで書いたコードに変更を加えて頂くというよりも、新しく提示して頂いた方が良いのでは、と思い敢えて伏せさせて頂きました。
誤解を招いたようで申し訳ありません。
必要であれば記しますが、あまり参考にはならないと思います。エラーばかりが起きてExcel自体が落ちるので…。

回答No.1

imogasi

ＷＩＮの話だが、この質問頻出している。
Ｇｏｏｇｌｅで「フォルダ　ファイル　ＶＢＡ」で照会すれば、拡散コード例や説明が出る。
（１）ＦＳＯでやる
（２）Ｄｉｒ関数でやる
などが有る
ーーー
一般の質問とやや違うのが
（１）テキストファイルに限る（でもエクセルファイルに限る例が多いが同じでしょう）
（２）別フォルダにファイル・コピーする
Ｇｏｏｇｌｅで「フォルダ　「ファイル　コピー　ＶＢＡ」で照会すればよい。
（３）ファイルの名前を変えている（ルール性は有るようだが）
文字列の細工の問題（ーの前とドットの前までの分割。ただし拡張子なしのファイル名も捉えられる）
参考
ＦＳＯのGetBaseName メソッド
http://www.mhl.janis.or.jp/~winarrow/vbscript/htm/vbs304.htm
など。
文字列でドットとハイフンで２段にＳｐｌｉｔを使っても出来る。

お礼

解答ありがとうございます。

既にGoogleで調べた結果どうしてもできなかったので聞いています。
自分の調べの足りなさを承知しておりますが、
頻出しているとおっしゃるのならその質問のURLなどを例えとして貼って頂けないでしょうか？見つけられなかったもので…。
質問に記した通り、Windowsでは動くものもMacでは動きません。
ご回答で頂いたSplit関数も使えないのです。。