5,138
社区成员
发帖
与我相关
我的任务
分享
oleobject loo_excel,loo_sheet
loo_excel = create oleobject
if loo_excel.ConnectToNewObject("Excel.Application") = 0 then
setpointer(HourGlass!)
loo_excel.Application.Workbooks.Add()
loo_sheet = loo_excel.Application.ActiveWorkbook.Worksheets.add()
loo_sheet.name = "SAVEASTEST"
Clipboard("")
Clipboard(dw_1.describe('datawindow.data'))
loo_sheet.Paste()
Clipboard("")
loo_excel.Application.ActiveWorkbook.SaveAs("C:\TESTSAVEAS.xls", -4143)
//这里就是 excel里的 saveas 部分, 参数与 excel 帮助的参数一样, -4143 是 XlNormal 对应的值
loo_excel.quit()
loo_excel.disconnectobject()
setpointer(Arrow!)
end if
destroy loo_sheet
destroy loo_excel
messagebox("Export OK", "Finished!")