Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
380to384
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
380to384
380to384
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

HTML Ausgabe von bestimmten Arbeitsblättern.

HTML Ausgabe von bestimmten Arbeitsblättern.
12.02.2004 19:02:33
Holger
Hallo !
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: HTML Ausgabe von bestimmten Arbeitsblättern.
12.02.2004 19:49:27
Matthias G
Hallo Holger,
so auf die Schnelle:

Sub HTML_speichern()
Dim strXLS As String
Dim Path1 As String, Path2 As String
Dim Dat1 As String, Dat2 As String
Dim i, ix As Integer
Path1 = "c:\test\test\"
Path2 = "c:\test\home\"
Dat2 = "Today"
Application.ScreenUpdating = False
strXLS = ActiveWorkbook.Name
ix = ActiveSheet.Index
For i = ix To ix + 3
Sheets(i).Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Path2 & Dat2 & i, _
FileFormat:=xlHtml
ActiveWorkbook.Close
ActiveWorkbook.SaveAs Filename:=Path1 & strXLS
Next i
End Sub

Grüße,
Matthias
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige