pb 数据窗口导出到excel2007

oleobject loo_excel,loo_sheet
 string ls_txt,ls_xls,ls_xls_new
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"
 
     idw_source.saveasascii("d:\TESTSAVEAS.txt")
     loo_excel.Application.Visible = false
     ls_txt="d:\TESTSAVEAS.txt"
      ls_xls="d:\TESTSAVEAS.xls"
     MoveFileEx(ls_txt,ls_xls,0)
     loo_excel.Application.Workbooks.Open(ls_xls)
      
     loo_excel.DisplayAlerts = false;
    loo_excel.Application.ActiveWorkbook.saveas(ls_xls, -4143)
 
    //这里就是 excel里的 saveas 部分, 参数与 excel 帮助的参数一样, -4143 是 XlNormal 对应的值
    
    l