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