Ausgabe in HTML
05.02.2004 18:38:31
Holger
Bin auf der Suche nach einem Script, welches die ganze Arbeitsmappe in XLS speichert, aber gleichzeitig noch das gerade offene Arbeitsblatt (nicht die ganze Mappe) als HTML-Dokument herausgibt.
2.) Es sollten zwei Speicherorte zu definieren sein. (XLS: c:\test\mappe1.xls) HTML : d:\home\seite.1)
3.) Ein erneutes Abspeichern der HTML Datei soll OHNE Dialogbox (Ist schon verhanden! Trotzdem speichern? )funktionen.
Der erste Teil der Fragen funktioniert mit diesem Script, aber eben nicht 2 und 3. Danke fuer die Tipps:
Sub SaveSelectetSheetsToHtml()
Dim strXLS As String
Application.ScreenUpdating = False
strXLS = ActiveWorkbook.FullName
ActiveWindow.SelectedSheets.Copy
ActiveWorkbook.SaveAs Filename:=Left(strXLS, Len(strXLS) - 3) & "html",
_FileFormat:=xlHtml
ActiveWorkbook.Close
End Sub
Hat jemand Tipps ?
Gruss Holger