记录集的容量是不得不考虑的问题。

两点需要注意，
1）objExcel.ActiveSheet.Range("A5")里，为什么用A5我不清楚，能不能用A5：A1000，这里假设记录集的数量是995个。
2）做循环一个Field一个Field添加的时候如果希望快一些的话，你可以考虑不显示Excel进程的情况下加入，任务完成后，在显示结果。

我只是从一般的角度看这个问题，不清楚你的实际情况。