HTML Ausgabe von bestimmten Arbeitsblättern.
12.02.2004 19:02:33
Holger
Wie kann ich unterm Script automatisch definieren, dass das aktuelle und die nächsten (!) 4 Arbeitsblätter als HTML gespeichert werden. Ich möchte nicht jedesmal es mit der Maus markieren müssen.
Danke fuer die Antwort.
Gruss Holger
Sub HTML_speichern()
Dim strXLS As String
Dim Path1 As String, Path2 As String
Dim Dat1 As String, Dat2 As String
Path1 = "c:\test\"
Path2 = "d:\home\"
Dat2 = "Today"
Application.ScreenUpdating = False
strXLS = ActiveWorkbook.Name
ActiveWindow.SelectedSheets.Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Path2 & Dat2, _
FileFormat:=xlHtml
ActiveWorkbook.Close
ActiveWorkbook.SaveAs Filename:=Path1 & strXLS
End Sub