' ###############################################################
' # ExcelToHtml - Excel-Tabelle in HTML-Dokument kopieren #
' # #
' # Es muß eine Zelle innerhalb der zu kopierenden Tabelle #
' # markiert sein. #
' # #
' # Es wird ein vollständiges HTML-Dokument erzeugt. #
' # Das title-Element sowie H1 bekommen als Inhalt #
' # den Namen des Tabellenblattes. #
' # #
' # Im head werden einige Formatierungsanweisungen, wie #
' # Darstellung der Tabellenzellen mit Rahmen eingefügt. #
' # Diese Anweisungen können beliebig ergänzt oder geändert #
' # werden. #
' # #
' # Irmgard Schwenteck, 2007 iw @ 4haus.de #
' ###############################################################
Sub exceltohtml()
Dim rng As Range
Dim i As Integer, j As Integer
Dim maxrow As Integer, maxcol As Integer
Dim sh As Worksheet
Dim t As String
Set rng = ActiveCell.CurrentRegion
maxrow = rng.Rows.Count
maxcol = rng.Columns.Count
If maxrow = 1 And maxcol = 1 Then
MsgBox "Keine Tabelle gefunden"
Exit Sub
End If
Set sh = ActiveWorkbook.ActiveSheet
' Datei öffnen
Open "tabelle.html" For Output As #1
' HTML-Vorspann
Print #1, ""
Print #1, ""
Print #1, ""
Print #1, "" & sh.Name & ""
' Formatierungsanweisungen
Print #1, ""
Print #1, ""
Print #1, ""
Print #1, "" & sh.Name & "
"
' Beginn Tabelle
Print #1, ""
Print #1, ""
i = 1
For j = 1 To maxcol
t = rng.Cells(i, j).Value
Print #1, "| " & t & " | "
Next j
Print #1, "
"
For i = 2 To maxrow
Print #1, ""
For j = 1 To maxcol
t = rng.Cells(i, j).Value
Print #1, "| " & t & " | "
Next j
Print #1, "
"
Next i
Print #1, "
"
' schließende HTML-Elemente
Print #1, ""
Print #1, ""
' Datei schließen
Close #1
End Sub