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

名前

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

本文 マクロって事は、エクセルのマクロのことですよね？ 以前書いたものは、TAB区切りになっているものを 配列に保存しているやり方なので、TABをスペースに変えられましたか？ あとCellsは１から始まるものなので、 上記のFor〜Nextは０から始まるので、エラーが出るはずです。 Offsetに変えてください。一応簡単なやり方を書きました。 Dim intIndex As Integer Dim intRow As Integer Dim intFileNo As Integer Dim strText As String Dim strArray() As String intFileNo = FreeFile Open "C:\a.txt" For Input Access Read As intFileNo Do Until EOF(intFileNo) Line Input #intFileNo, strText strArray = Split(strText, " ") For intIndex = 0 To UBound(strArray) Range("A1").Offset(intRow, intIndex) = strArray(intIndex) Next intIndex intRow = intRow + 1 Loop Close intFileNo これを複数ファイル存在した場合、Sheetを追加して 同じ事をやれば出来ると思います。