hi dear
i have this code for convert xlsm to html . i need repeat this code for entireworkbook and
1-export filename , same as sheet name and in file path
2-select printarea range for convert each sheet
3-every sheet,seperate convert to html
Code
Sub Export()
Dim rng As Range
file1 = ThisWorkbook.Path & "\" & "test.html"
Set rng = Sheets("Tabelle1").Range("A1:C10")
ActiveWorkbook.PublishObjects.Add( _
SourceType:=xlSourceRange, _
Filename:=file1, _
Sheet:=rng.Worksheet.Name, _
Source:=rng.Address, _
HtmlType:=xlHtmlStatic).Publish
End Sub
Display More