Dim mExcelFile As Object
Set mExcelFile = CreateObject("Excel.Sheet") mExcelFile.Application.Range("A1").CopyFromRecordset mRs mExcelFile.SaveAs "c:\123.xls" mExcelFile.Application.quit Set mExcelFile = Nothing
mRs : 为数据源解决项目问题: 客户要求导出20w 条数据成excel 以填充形式,速度太慢