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

Rangeオブジェクトを使用して一発で代入して見て下さい。


# コードを投稿される場合は図表モードで投稿して下さい。
　下部の修正からでも後からでも修正できます。

ありがとうございました。
解決しました。