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