|
Hallo, leider komm ich nicht klar mit dem Code....es passiert gar nichts.
Habe versucht ihn in ein Blatt zu schreiben sowie arbeitsmappe und auch module: was mach ich blos falsch, er generiert mir keine Datei
getestet mit Excel 2010 und 2019
hier der code
Option Explicit
Sub BlattZuHtm()
Dim wks As Worksheet
Dim strBlatt As String
Dim strFileName As String
Dim strPath As String
strPath = "C:\Users\kiehar\Desktop"
For Each wks In ActiveWorkbook.Worksheets
strBlatt = wks.Name
strFileName = strPath & strBlatt & ".htm"
With ActiveWorkbook.PublishObjects.Add( _
SourceType:=xlSourceSheet, _
Filename:=strFileName, _
Sheet:=strBlatt, _
Source:="", _
HtmlType:=xlHtmlStatic, _
DivID:="", _
Title:=strBlatt)
.Publish (True)
.AutoRepublish = False
End With
Next
End Sub |