以下是引用sdta在2017-3-7 18:12:26的发言:
oExcel=CreateObject('Excel.Application')
oExcel.WorkBooks.Open("D:\170230-2.xls")
oExcel.DisplayAlerts = .f.
oExcel.ActiveWorkbook.SaveAs("D:\170230-3.xls",39)
oExcel.DisplayAlerts = .t.
oExcel.Quit
RELEASE oExcel
可以用了,谢谢啊!