pb连接EXCEL

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!" )