テキストファイルをエクセルに落としたい

質問

１行だけのテキストファイルが１０００ファイル位あります。
※１行の長さは5000文字位あります。

それをエクセルのセルに１つずつ改行をしないで入れて行きたいのですが、
手作業ではしんどく良い方法はないでしょうか？

よろしくお願いします。

回答No.2

pkh4989 · ベストアンサー

VBAの例です。参考にしてください。
新しいEXCELを開いて、以下のマクロを貼り付けで試してみてください。
<貼り付け方法>
(1) Alt+F11 (ツール → マクロ → Visual Basic Editor) →「挿入」→「標準モジュール」で表示される画面に貼り付け
(2) 実行は、(F5を押す)又は、シート画面に戻って Alt＋F8を押してマクロ一覧からマクロ名を選択して実行

Sub テキストデータ設定()
　　Dim wR　　　　　　　As Long
　　Dim wDir　　　　　　As String
　　Dim wFile　　　　　 As String
　　Dim Myrec　　　　　 As Variant
　　Dim ExitFlg　　　　 As Boolean
　　'
　　wR = 0
　　ExitFlg = False
　　wDir = "C:\TEST"　　'←テキストファイルがあるフォルダー(変更してください)
　　wFile = Dir(wDir & "\*.txt", vbNormal)
　　If wFile <> "" Then
　　　　Do Until ExitFlg = True
　　　　　　Open wDir & "\" & wFile For Input As #1
　　　　　　Input #1, Myrec
　　　　　　Close #1
　　　　　　'テキストデータをセルへ設定
　　　　　　wR = wR + 1
　　　　　　Cells(wR, 1) = Myrec
　　　　　　wFile = Dir　　　　　　　　　'次のファイルを検索
　　　　　　If wFile = "" Then
　　　　　　　　ExitFlg = True
　　　　　　End If
　　　　Loop
　　End If
End Sub

お礼

VBAを始めてやってみたのですが、
やりたかった事が出来ました。

本当にありがとうございました。
非常に助かりました。

回答No.1

fujillin

ファイルがリスト化されていたり、または、フォルダーが決まっているなどであれば、VBAで一括処理すればよいのでは？

ところで、1つのセルに5000文字入りましたっけ？

補足

ありがとうございます。

平均3000文字位のテキストデータです。
手動メモ帳開いてコピー　エクセルのセルに貼り付けという感じでは出来るのですが。。

一括処理のやり方があるのであれば御教え頂きたいです。