EXCELへの文字数の多いテキストの取り込み

質問

テキストデータで70000文字で改行して、全部で40行あるデータがあります。これをEXCEL2010のシートに取り込みたいのですが、外部データの取り込みで行うと、1セルあたり32767 文字で溢れてしまいます。
A1＝30000文字
B1＝30000文字
C1＝10000文字　改行
D1＝30000文字
E1＝30000文字
F1＝10000文字　改行・・・・・
と取り込むにはどうしたらいいでしょうか。テキストデータはデスクトップにあります。
VBA等教えて下さい。よろしくお願いします。

回答No.1

eden3616 · ベストアンサー

Alt+F11でVBEを開き挿入→標準モジュールを挿入し
以下のVBAコードを貼り付けてください。

コードの上から5行目の「テキストファイルのパス」の部分に
該当のテキストファイルのファイルパスを指定してください。

■補足

1行70000文字を3列のセルに分割して、40行分ですので120列あれば足りますが、
エクセルの取り扱える最大列数は16384列ですので、
今後、これを超えるデータを読み込んだ場合の対策処理は含めていません。

■VBAコード

Sub test()
　　Dim buf As String
　　Dim i As Integer
　　Dim j As Integer

　　Open "テキストファイルのパス" For Input As #1
　　　　Do Until EOF(1)
　　　　　　Line Input #1, buf
　　　　　　For i = 0 To Int(Len(buf) / 30000) - 1
　　　　　　　　j = j + 1
　　　　　　　　Cells(1, j) = Mid(buf, i * 30000 + 1, 30000)
　　　　　　Next i
　　　　　　If Len(buf) Mod 30000 > 0 Then
　　　　　　　　j = j + 1
　　　　　　　　Cells(1, j) = Right(buf, (Len(buf) Mod 30000))
　　　　　　End If
　　　　Loop
　　Close #1
End Sub

お礼

取り込めました！ありがとうございます。