由于经过处理后的数据想导入到其他的软件中，但这些软件是可以导入2003及以上的xls文件。
我上传一下订货的模板，请帮助我转换一下，谢谢

[此贴子已经被作者于2021-12-28 20:00编辑过]

完全可以

能不能帮助写一下代码，谢谢

cDefPath = ADDBS(JUSTPATH(SYS(16)))
SET DEFAULT TO (cDefPath)
COPY FILE 订货模板.xls TO tmp.xls
excel = CREATEOBJECT("Excel.Application")
excel.DisplayAlerts = 0
sh = excel.WorkBooks.Open(cDefPath+"tmp.xls").Worksheets(1)
sh.Rows("5:"+TRANSFORM(sh.UsedRange.Rows.Count)).Clear
USE bjd
SCAN 
    sh.cells(RECNO()+4,1).value = 零部件编码
    sh.cells(RECNO()+4,6).value = 数量
ENDSCAN
**    excel.WorkBooks.Close
**    excel.Quit
excel.Visible = 1

这个保存的文件名能不能用当天的日期20211228001.XLS

将 tmp.xls 改为 20211228001.XLS

只要 CREATEOBJECT("Excel.Application") 语句能成功的返回对象,不管是什么版本,都可以操作.
如何 确信  CREATEOBJECT("Excel.Application") 语句能成功的返回对象?
oxls = CREATEOBJECT("Excel.Application")
? VARTYPE(oxls)  && 如果成功,应该返回字母 "O"
? oxls.Name  && 如果成功,应该返回:Microsoft Excel

标记一下，学习了。

Sub test111()
   Workbooks.Add
'   ActiveWorkbook.Save
   ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & ActiveSheet.Name & ".xlsx"
   ActiveWorkbook.Close
End Sub