View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
L Norton L Norton is offline
external usenet poster
 
Posts: 2
Default SaveAs and Excel Automation

I am saving a workbook as HTML in VB.Net -- What I would like to do is
save each page separately but when I loop through each sheet in the
file a folder is created with an HTML file for every sheet in the
workbook. Also, I would like to save these pages without the tab strip
at the bottom.

I have tried saving each sheet as its own xls file (SaveAS xls with
appropriate extension) but get a tab sting then as well. How can you
save individual sheet in a workbook without the strip at the bottom. I
must be missing something but can't find a saveAs setting to remove
this...

Here is the relevant code:


objExcel.Workbooks.Open("C:\MyDocs\MyFile.xls")
For Index = 1 To objExcel.ActiveWorkbook.Worksheets.Count

Try
myFileHTML = CStr(System.DateTime.Now.Millisecond) +
CStr(System.DateTime.Now.Minute) + CStr(System.DateTime.Now.Minute) +
objExcel.Worksheets.Item(Index).Name + ".html"

objExcel.ActiveSheet.SaveAs(Filename:="C:\Inetpub\ wwwroot\ExcelHTMLFile\"
+ myFileHTML, FileFormat:=xlHtml)

Catch ex As Exception
.....
End Try

Next