#DEFINE xlHtml 44 > .ActiveWorkBook.SaveAs("C:\Absorb\WebPages\DMD.htm", xlHtml)I would also recomend to use Excel constants instead of their values because it makes code readable.
>> nWSF = ADIR(laFileListWS, cSpreadsheet+"\*.xls") >> FOR ifw= 1 to nWSF >> oExcel=CREATEOBJECT("Excel.Application") >> With oExcel >> .DisplayAlerts= .F. >> IF SUBSTR(UPPER(laFileListWS [ifw,1]),1,3)="DMD" >> .WorkBooks.Open(cSpreadsheet+"\"+laFileListWS [ifw,1],1) >> FOR itabor = 1 to .ActiveWorkBook.WorkSheets.Count >> .ActiveWorkBook.WorkSheets(m.iTabor).Activate >> ENDFOR >> .Visible=.T. >>? "C:\Absorb\WebPages\DMD.htm" >> .SaveAs("C:\Absorb\WebPages\DMD.htm", 44) >> .Quit >> ENDIF >> EndWith >> Release oExcel >> ENDFOR >> >>>>Now, even Save causes an error?????????