Publish Multiple Worksheets as Separate HTML files from 1 workbook

[BoJaques]

Is there any way to publish multiple worksheets in the same workbook to multiple HTML locations.

So 1 Workbook.

Sheets:
Car- Published as Car.html
Truck- Published as Truck.html
Van- Published as Van.html

Hopefully that makes sense.

 

[Dhathaway]

If you know VBA, enable the "Microsoft Scripting Runtime" reference, which allows access to the TextStream object (used for creating text files). You'll need to figure out a way to read your sheets' data into the StrData variable. Currently, only the first cell in each sheet is being written into the text file(s).

Sub CreateHTML()
Dim Ws As Worksheet
Dim FSO As FileSystemObject
Dim Ts As TextStream
Dim StrData As String

Set FSO = CreateObject("Scripting.FileSystemObject")

For Each Ws In ThisWorkbook.Worksheets
    StrData = Ws.Cells(1, 1).Value
    Set Ts = FSO.CreateTextFile("C:\Users\Me\Desktop\" & Ws.Name & ".html", True)
    Ts.Write (StrData)
    Ts.Close
Next Ws

End Sub

Good luck.

David