タイトル : エクセル高速読み込み 投稿日 : 2008/11/05(Wed) 11:26 投稿者 : NK
エクセルにデータを保存して、グラフ表示させているのですがデータが増えてくるとリアルタイムで表示されません。(数秒遅れて表示されます) なにか高速で読めるいい方法はありますか? With CommonDialog1 fileName = "fortorquegraph.csv" fileNo = FreeFile() Open fileName For Append As #1 Lock #1 Print #1, saveang; Print #1, ","; Print #1, savetrq Unlock #1 Close #1 End With With CommonDialog1 Open fileName For Input As #1 Lock #1 Do While Not EOF(1) 'Line Input #1, CsvD Input #1, CsvD, CsvDD Dcount = Dcount + 1 Loop Unlock #1 Close #1 MSChart1.RowCount = Dcount Open fileName For Input As #1 For i = 1 To MSChart1.RowCount 'Line Input #1, CsvD ,CsvDD Input #1, CsvD, CsvDD intDat(i, 0) = CsvD intDat(i, 1) = CsvDD MSChart1.ChartData = intDat() Next i Close #1 End With |