Exceltabellen als HTML

Forumthread: 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

Re: Exceltabellen als HTML

09.05.2002 10:58:38

Rolf
Re: Exceltabellen als HTML

09.05.2002 11:00:55

Hans W. Herber
Re: Exceltabellen als HTML

09.05.2002 17:04:57

Franziska
Re: Exceltabellen als HTML

10.05.2002 08:37:32

Hans W. Herber

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

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!

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

Beliebteste Forumthreads (12 Monate)

Forumthread: Exceltabellen als HTML

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

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread