<code>

'on error resume next
Dim objApp, objBook, objRange, objSheet

set objApp = CreateObject("Excel.Application")
objApp.Visible = true

set objBook = objApp.Workbooks.Open("C:Test",,,,"abc")
ObjApp.Sheets("Report").Select
set objSheet = objBook.ActiveSheet

objSheet.PageSetup.PrintArea = "A1:BG32"
objSheet.Cells.Select
with objBook.PublishObjects.Add(xlSourcePrintArea, _
"C:\docs\Report.htm", "Report", "", xlHtmlStatic, _
"", "")
.Publish (True)
.AutoRepublish = False
end with
ChDir "C:\docs"

set objRange = nothing
objBook.close
objApp.Quit
set objSheet = nothing
set objApp = nothing

</code>