|
はじめまして。ここ数ヶ月程VBAの勉強を始めた者です。
表題の件で、ご質問致します。
過去ログで、類似項目を拝見しましたが解決策が
理解出来ません。よろしくお願いします。
【目的】
テキストファイル(Total:5万行)の中身を、
エクセルシートに貼り付ける。その際、処理速度
効率化を図る。
【動作環境】
Excel2000
【作成経過】
Sub Read()
Dim wsPath As String
Dim wsFile_Name As String
Dim Y_count As long
Dim myBuff As String
wsPath = "C:\1\"
wsFile_Name = "test.txt"
Y_count = 1
Open wsPath & wsFile_Name For Input As #1
Do Until EOF(1)
'テキストファイルを1行読込む
Line Input #1, myBuff
Worksheets("Sheet1").Cells(Y_count, 1) = myBuff
Y_count = Y_count + 1
Loop
Close #1
End Sub
⇒ 上記のように、テキストファイルを1行毎に読み込み、貼り付ける
コードにはたどり着きました。しかしファイルデータが5万行からあると
処理速度が低下してしまいます。これらを改善したいと考えています。
テキストファイルの中身をすべて選択して、エクセルシートに貼り付ける
方法や、その他、いい方法がありましたらご教授お願いします。
マクロの記録を試したのですが、解決策には至りません。
|
|