Tabelle nach .htm exportieren
10.09.2007 13:45:48
Stefan
Über die Suche bin ich leider nicht fündig geworden. Ich möchte einen Bereich nach html exportieren, ohne über die Fundktion "als Webseite speichern" zu gehen. Habs zwar mal gemacht, läuft auch suche aber hierzu eine alternative. Derzeit benutze ich DIESES Makro:
Sub HTML_Export()
' HTML Export '
ActiveSheet.Select
Dim strPfad As String
strPfad = Range("CB22").Text
Range("D5:BO100").Select
Range("BO100").Activate
With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
strPfad, _
"Januar", "$D$5:$BO$100", xlHtmlStatic, _
"Tabelle_32644", "")
.Publish (True)
.AutoRepublish = False
End With
Range("A7").Select
End Sub
Was mich stört, ist dass es IMMER von diesem Eintrag abhängig ist: Tabelle_32644
Hat jemand einen Tipp für mich ?
Danke schon mal & Grüße
Stefan
Anzeige