投稿日 | : 2005/03/15(Tue) 10:43 |
投稿者 | : ずたぼろ |
URL | : |
タイトル | : エクセルの高速化について |
教えてください。VSFlexGridからExcelにデータを保存したいと思っています。
Dim Excel As New Excel.Application 'エクセルを宣言
Dim WB As Excel.Workbook 'ワークブックの宣言
Dim WS As Excel.Worksheet 'ワークシートの宣言
Set Excel = CreateObject("Excel.Application")
Set WB = Excel.Workbooks.Add '新しいワークブックを追加
Set WS = WB.Worksheets(1)
Excel.DisplayAlerts = False 'メッセージがでないようにする
For intRowCnt = 1 To grdHyoji.Rows - 1
For intColCnt = 1 To grdHyoji.Cols - 2
WS.Cells(intRowCnt, intColCnt).Value = grdHyoji.Cell(flexcpText,intRowCnt,intColCnt)
Next
Next
こんな感じでソースを作成して試したところ1000レコードくらいを保存するのに3分もかかってしまいます。
もっと早くする方法があったらぜひ教えてください。お願いします。