VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2005/03/15(Tue) 10:43
投稿者： ずたぼろ
ＵＲＬ：
タイトル： エクセルの高速化について

教えてください。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分もかかってしまいます。
もっと早くする方法があったらぜひ教えてください。お願いします。

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -