.htm-Datei auf Desktop speichern
13.07.2016 13:10:06
Patrick
ich versuche eine .htm-Datei aus Excel per Makro auf dem Desktop des jeweiligen Benutzers zu speichern.
Mit einer xls-Datei bekomme ich es mit
Dim strPfad As String
Dim DatNam As String
DatNam = "Turnierplan 16 Mannschaften.htm"
strPfad = Environ("UserProfile") & "\Desktop\"
ActiveWorkbook.SaveAs Filename:=strPfad & DatNam, FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
hin, weiß aber leider nicht, wie ich diesen Bereich für die htm-Vatiante umbauen muss.
Es soll ebenfalls nicht die komplette Tabelle gespeichert werden sondern nur ein Teil hieraus. _ Dies ist die bisher funktionierende Variante, nur eben ohne variablen Benutzer:
Range("E2:AC347").Select
With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
"C:\Benutzer\...\Desktop\\Turnier\Turnierplan.htm", "Tabelle1", _
"$E$2:$AC$347", xlHtmlStatic, "Turnierplan 16 Mannschaften_30716", "")
.Publish (True)
.AutoRepublish = False
End With
Sheets("Tabelle1").Protect Password:="1"
Kann mich jemand mit einer Hilfestellung unterstützen? Ich komme leider nicht weiter.
Vielen Dank schonmal,
Patrick
Anzeige