Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
116to120
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
116to120
116to120
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Exceltabellen als HTML

Exceltabellen als HTML
08.05.2002 18:05:23
Franziska
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Exceltabellen als HTML
09.05.2002 10:58:38
Rolf
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

Anzeige
Re: Exceltabellen als HTML
09.05.2002 11:00:55
Hans W. Herber
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

Re: Exceltabellen als HTML
09.05.2002 17:04:57
Franziska
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!

Anzeige
Re: Exceltabellen als HTML
10.05.2002 08:37:32
Hans W. Herber
... Du hast die nicht unwichtigen Einleitungs- und Beenden Tags für html und body vergessen ... hans

143 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige