The SaveAs() is a method of a WorkBook
#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.
>
>OLE error code 0x80020006: Unknown name.
>
> 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?????????
--sb--