Html bis zur letzten Ausgefüllten Zelle
09.06.2006 11:59:04
Heinz
Habe unteren Code, der mir Excel Daten in Html speichert.
Das einzige ist das ich von Spalte A bis zur letzten ausgefüllten Zelle in Spalte G
alle Daten in Html exportieren möchte.
Bekomme immer einen Fehler in "For iRow = 2 To 50000"
Könnte mir Bitte jemand dabei BITTE jemand Helfen.
Danke Heinz
Option Explicit
Sub XL2HTML()
Dim iRow As Integer, iCol As Integer
Dim sFile As String
sFile = Range("K1").Value
Close
On Error GoTo ERRORHANDLER
Open sFile For Output As #1
On Error GoTo 0
Print #1, "<html>"
Print #1, "<header>"
Print #1, "<style type=""text/css"">"
Print #1, "td {"
Print #1, " font-size:9pt;"
Print #1, " font-family:tahoma,verdana;"
Print #1, " background-color:#ffffe0"
Print #1, " }"
Print #1, "</style>"
Print #1, "</header>"
Print #1, "<body bgcolor=#d0d0d0><center>"
Print #1, "<table bgcolor=#003000 border=3" & _
"cellpadding=3 cellspacing=3>"
For iCol = 1 To 7
Print #1, " <td><b>" & Cells(1, iCol).Text & "</b></td>"
Next iCol
For iRow = 2 To 50000
Print #1, " <tr>"
For iCol = 1 To 7
If Not IsEmpty(Cells(iRow, iCol)) Then
If iCol < 3 Then
Print #1, " <td>" & Cells(iRow, iCol).Text & "</td>"
Else
Print #1, " <td align=left>" & _
Cells(iRow, iCol).Text & "</td>"
End If
Else
Print #1, " <td> </td>"
End If
Next iCol
Print #1, " </tr>"
Next iRow
Print #1, "</table></center>"
Print #1, "</body>"
Print #1, "</html>"
MsgBox "Datei wurde angelegt:" & vbLf & sFile
End
ERRORHANDLER:
MsgBox "Bitte den Verzeichnisnamen überprüfen!"
End Sub