#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.com> 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?????????