タイトル : 容量が増えると動作速度が遅くなる 投稿日 : 2009/07/31(Fri) 08:33 投稿者 : ごれ
今下記のプログラムにしていて、CSVファイルの容量が増えると処理速度がかなり遅くなって(2分くらい)しまいます。処理速度を速くするいい方法はないでしょうか? よろしくお願いします。 Public Sub make_csv_Data(Number As Integer) Dim fName As String Dim fData As String Dim data1 As String Dim data2 As String Dim data3 As String Dim write_data As Variant On Error GoTo Error_Handler 'エラー処理 fName = ".\\data\\data_" & CStr(Number) & ".csv" fData = Number Open fName For Input Access Read As fData write_data = "Point:" & memDate(Number).sName(Number) & vbCrLf write_data = write_data & "Title1,Title3,Title2" & vbCrLf Do Until EOF(fData) Lock fData Input #fData, data1, data2, data3 Unlock fData write_data = write_data & data1 & "," & data3 & "," & data2 & vbCrLf Loop Error_Handler: Close fData fName = ".\\data" & CStr(Number) & "_download" & ".csv" fData = FreeFile Open fName For Output Access Write As fData Print #fData, write_data Close fData End Sub |