不知道楼主最后生成的 查询结果.XLSX 做什么用，自动调整行高、列宽，很消耗时间的

大神！！！
同样的数据，原来是５秒，现在的代码不到３秒！！！

我现在没在程序里自动调整行高、列宽，直接在模板里设好了，可以节约时间。最后生成的查询结果.xlsx是给考生的一个志愿筛选表，这样考生就很容易选定80个志愿了。

你的CPU处理器是 X.XX GHZ

哈哈。。。。1.99GHZ

WITH oExcel.ActiveSheet
    .rows(Z+1).Font.Name="黑体"
    .rows(z+1).font.color=RGB(255,0,0)
    .column(1).NumberFormatLocal="0000"  &&这句不起作用，可能是什么原因？
ENDWITH

再请教一下

column(1) 改为 columnS(1)

oExcel = CreateObject("Excel.Application")
oExcel.WorkBooks.Add(-4167)
oExcel.visible = .t.
oExcel.ActiveSheet.cells(1, 8).value = 12
oExcel.ActiveSheet.Columns(8).NumberFormatLocal  = "0000"

[此贴子已经被作者于2021-3-28 15:35编辑过]

只能怪自己功底实在太浅