CSVデータをExcelで表示する際のレスポンス速度を上げるには？ (ID:104923)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 2001/12/20にしんさんが投稿された件で誰か教えて下さい。 サンプルソース 'Excelへの参照 Set xlsApp = CreateObject("Excel.Application") 'Excelにブックを追加 Set xlsBook = xlsBook.Sheets("Sheet1") '読み込むcsvファイル名 strFileName = "test.csv" '空いているファイル番号を取得 intFileNo = FreeFile 'csvファイルを開く Open strFileName For Input As intFileNo 'ファイルの最後に達するまでループ Do Until EOF(intFileNo) '読み込んだ行数をカウント intRow = intRow + 1 '1行分のデータを読み込む For intCol = 1 To 5 'ファイルから読み込んだ内容を変数に保存 Input #intFileNo, strRecBuff '変数の内容をExcelに送る xlsSheet.Cells(intRow, intCol) = strRecBuff Next Loop 'Excelを表示 xlsBook.Application.Visible = True 'csvファイルを閉じる Close intFileNo 'オブジェクトを解放 Set xlsSheet = Nothing Set xlsBook = Nothing Set xlsApp = Nothing 列数をカウントするループロジックの部分で For intCol = 1 To 5 とありますが、これを 1 To 257にし、 ｃｓｖデータが5000行（1行：256項目）あるものをコマンドボタンからExcelで表示しようとした時、フリーズしてしまします。 このような膨大なデータを扱う場合、パフォーマンスを上げる良い方法はないでしょうか？