テキストファイルからＥｘｃｅｌへ読み込むには？ (ID:76605)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 皆様回答ありがとうございます。 説明が不十分で申し訳ありません。 マクロを用いて、一括処理を行いたいのです。 とろ様の方法で、うまく処理する方法も考えたのですが、思いつきませんでした。 新規ファイルではなく、ActiveWorkBookへ読み込みを行いたいのです。 oku様の方法を試してみたのですが、うまく分かれてくれません。 oku様の回答の中のメッセージボックスへ吐き出す部分を、 For intIndex = 0 To UBound(strArray) 'MsgBox strArray(intIndex) Cells(a, 1) = strArray(intIndex) a = a + 1 Next intIndex と変更したのですが、ダメなのでしょうか？ ちなみに読み込みたいテキストファイル内は 1111111 aaa12.9999 aaabbbcccdddeeefg 3332211 bbb10.8888 zzzxxxdddvvvffrth などというようになっており、数千行存在します。 また、テキストファイルも複数存在し、出来れば1つのWorkBookでSheetで 分けられれば良いと思っています。 引き続き、ご意見頂けれるとうれしいです。 よろしくお願い致します。