記錄集的容量是不得不考慮的問題。

兩點需要注意，
1）objExcel.ActiveSheet.Range("A5")裏，為什麽用A5我不清楚，能不能用A5：A1000，這裏假設記錄集的數量是995個。
2）做循環一個Field一個Field添加的時候如果希望快一些的話，你可以考慮不顯示Excel進程的情況下加入，任務完成後，在顯示結果。

我隻是從一般的角度看這個問題，不清楚你的實際情況。