我测试没有问题,你是不是unload错了表?
如果要排序,这样写
qdt.BuildTables("临时").Sort = "生产结束扫描完成时间"Tables("临时").SaveExcel("d:\test.xls", "表A")