Exceltabellen als HTML

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 2000
nach unten

Betrifft: Exceltabellen als HTML
von: Franziska
Geschrieben am: 08.05.2002 - 18:05:23

Hi,
ich habe versucht, das Makro 175602 einzufuegen, bin aber klaeglich gescheitert. Er legt zwar eine Webseite an, aber diese ist leer... Wo muss ich denn Aenderungen vornehmen???

Vielen Dank


nach oben   nach unten

Re: Exceltabellen als HTML
von: Rolf
Geschrieben am: 09.05.2002 - 10:58:38

Hallo Franziska,
dieses kleine Makro benutze ich.
Es speichert immer die aktive Tabelle mit Uhrzeit in den Ordner in dem sich die Arbeitsmappe befindet.

Sub HTMListe()
Application.ScreenUpdating = False
Dim strXLS As String
Application.ScreenUpdating = False
strXLS = ActiveWorkbook.FullName
ActiveWindow.SelectedSheets.Copy
ActiveWorkbook.SaveAs Filename:=Left(strXLS, Len(strXLS) - 3) & Format(Time, "h-mm-ss") & ".HTM", _
FileFormat:=xlHtml
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub

Vielleicht kannst du ja etwas damit anfangen?

Tschüß
Rolf

nach oben   nach unten

Re: Exceltabellen als HTML
von: Hans W. Herber
Geschrieben am: 09.05.2002 - 11:00:55

Hallo Franziska,

das Makro hat in der Tat eine Macke, es geht immer vom aktiven Blatt aus.

Setze nach der Zeile:
For Each wks In ActiveWorkbook.Worksheets
ein:
wks.Select

Dann sollte es funktionieren.

hans

nach oben   nach unten

Re: Exceltabellen als HTML
von: Franziska
Geschrieben am: 09.05.2002 - 17:04:57

Tut mir leid, aber ich weiss nicht, was ich falsch mache: Hier der Makrocode, so wie es bie mir jetzt steht:

Private Sub CommandButton1_Click()
Dim wks As Worksheet
Dim iRow As Integer, iCol As Integer
Dim sFile As String, sPath As String
sPath = ActiveWorkbook.Path
Close
For Each wks In ActiveWorkbook.Worksheets
wks.Select
sFile = sPath & "\" & wks.Name & ".htm"
iRow = 1
Open sFile For Output As #1
Print #1, ""
Do Until IsEmpty(Cells(iRow, 1))
iCol = 1
Print #1, " "
Do Until IsEmpty(Cells(1, iCol))
If Not IsEmpty(Cells(iRow, iCol)) Then
If iRow = 1 Then
Print #1, " " & Cells(iRow, iCol) & " "
Else
Print #1, " " & Cells(iRow, iCol) & " "
End If
Else
Print #1, " "
End If
iCol = iCol + 1
Loop
Print #1, " "
iRow = iRow + 1
Loop
Print #1, " "
Close
Next wks
MsgBox "Die Dateien wurden im Verzeichnis " & sPath & " gespeichert!"
End Sub

Danke fuer die Hilfe!

nach oben   nach unten

Re: Exceltabellen als HTML
von: Hans W. Herber
Geschrieben am: 10.05.2002 - 08:37:32

... Du hast die nicht unwichtigen Einleitungs- und Beenden Tags für html und body vergessen ... hans

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Multipage mit Textbox"