Here's a VBA example that exports each worksheet as an individual file
with the same name as the worksheet. You shouldn't get any sheet tabs or
extra folders using this method:

Sub SaveSheetsAsHTML()

Dim wksSheet As Excel.Worksheet
Dim wkbBook As Excel.Workbook
Dim szFileName As String

Set wkbBook = Application.ActiveWorkbook

For Each wksSheet In wkbBook.Worksheets
' Change this to your own path and filename.
szFileName = "E:\Temp\" & wksSheet.Name & ".htm"
wkbBook.PublishObjects.Add(xlSourceSheet, _
szFileName, wksSheet.Name, "", _
xlHtmlStatic, wksSheet.Name, "").Publish True
Next wksSheet

End Sub

--
Rob Bovey, MCSE, MCSD, Excel MVP
Application Professionals
http://www.appspro.com/

* Please post all replies to this newsgroup *
* I delete all unsolicited e-mail responses *


"L Norton" wrote in message
om...
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