测试过 7W多条100列只要不到5S
excelserver.Workbooks.Open(ls_path)//打开
//ExcelServer.ActiveSheet.rows(2).insert //显示数据库列名时启用
ll_colnum = long(dw_1.Describe("DataWindow.Column.Count"))
FOR i = 1 TO Ll_ColNum
// 得到写入列标题头的名字
ls_colName = dw_1.Describe('#' + STRING(i) + ".name") + "_t"
ls_value = dw_1.Describe(ls_colName + ".text")
excelserver.ActiveSheet.cells(1,i).value = ls_value
//ExcelServer.ActiveSheet.cells(2,i).value = ls_value//显示数据库列名时启用
excelserver.Application.Visible = TRUE
NEXT
- 1
- 2
- 3
- 4
- 5
前往页