#DEFINE xlHtml 44
>You can use VFP Object Browser to open Excel type library and then drag Constants to an edit window to create the list of Excel constants. You may also find such header file on http://fox.wikis.comnWSF = 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 ENDFORNow, even Save causes an error?????????