Export als html und xls
23.01.2019 16:52:34
Tino
Tabelle soll als html und xls über Makro auf einem Server gespeichert werden.
in der Tabelle steht in der Zelle D1 das Datum im Format TT.MM.JJJJ.
Die .html sowie das .xls Datei sollte das Datumsformat JJJJMMTT.html und JJJMMTT.xls
haben und in verschiedenen Verzeichnissen gespeichert werden.
\\Server\html
\\Server\xls
Folgendes habe ich bereits erreicht jedoch funktioniert nur die html als fester Wert und das mit dem Datum auslesen aus der Zelle schaffe ich überhaupt nicht, geschweige denn das gemeinsame abspeichern. :-(
Hier mein Code bisher.
Sub Exporthtml()
With ActiveWorkbook.PublishObjects.Add(SourceType:=xlSourceRange, _
Filename:="\\Server\Dokumente\Heizöl\Test.htm", Sheet:="Tabelle1", Source:="$A$1:$I$18", _
HtmlType:=xlHtmlStatic, DivID:="Tabelle1")
.Publish (True)
End With
End Sub
Vielleicht kann mir da jemand unter die Arme greifen?
Vielen Dank.
Tino