各位老师帮我看一下!

yfzdb

我发现在ACC里导出数据到excel太慢了，各位老师能不能帮我看一下，代码有什么问题，或者有什么更优的解决方案。现在才一两百行的速度就这么慢，如果是上千行的话，我想都不感想了。
麻烦各位啦！

[ 本帖最后由 yfzdb 于 2008-12-20 14:46 编辑 ]

zez

将For J = 2 To RST.RecordCount + 1
    For I = 0 To lk - 1
        .Cells(J, I + 2).Value = "'" & RST.Fields(I).Value
    Next
'    Sql = "select 客户简称 from 客户档案 where 客户编号 like'" & .Cells(J, 3).Value & "'"
'        RSTby.Open Sql, CNN, adOpenKeyset, adLockOptimistic
'        .Cells(J, 3).Value = RSTby.Fields("客户简称").Value
'        Set RSTby = Nothing
'    Sql = "select 姓名 from 业务员档案 where 业务员编号 like'" & .Cells(J, 4).Value & "'"
'        RSTby.Open Sql, CNN, adOpenKeyset, adLockOptimistic
'        .Cells(J, 4).Value = RSTby.Fields("姓名").Value
'        Set RSTby = Nothing
'    Sql = "select * from 磁碟号档案 where 磁碟号 like'" & .Cells(J, 5).Value & "'"
'        RSTby.Open Sql, CNN, adOpenKeyset, adLockOptimistic
'        .Cells(J, lk + 2).Value = RSTby.Fields("产品名称").Value
'        .Cells(J, lk + 3).Value = RSTby.Fields("产品规格").Value
'        Set RSTby = Nothing
RST.MoveNext
Next
改 为 :
    Range("B2").CopyFromRecordset RST
试 一 试

yfzdb

谢谢 ZEZ 老师：
问题解决。