VBA-Beispiel 032
mail schreiben
mail schreiben

per vba eine html-Datei erstellen

Diese Prozedur erzeugt die Html-Datei "test03.html" und speichert sie im Ordner Eigene Dateien auf C.
Sub html_Datei_erstellen()
Dim fsDatei As Object
Dim fsinhalt As Object

'html-Datei erstellen
Set fsDatei = CreateObject("Scripting.FileSystemObject")
fsDatei.CreateTextFile "C:\Eigene Dateien\test03.html"

Set fsDatei = fsDatei.getfile("C:\Eigene Dateien\test03.html")

Set fsinhalt = fsDatei.OpenAsTextStream(2, -2)

' html-Grundgerüst erstellen
' & vbLf erzeugt im html-Quelltext einen Zeilenumbruch
fsinhalt.write "<html>" & vbLf
fsinhalt.write "<!-- diese Datei wurde über eine VBA-Prozedur erstellt-->" & vbLf
fsinhalt.write "<head>" & vbLf
fsinhalt.write "</head>" & vbLf
fsinhalt.write "<body bgcolor=""#97A4B1"">" & vbLf & vbLf

' html-Tabelle einfügen
fsinhalt.write "<table width=""550px"" align=""center""" _
                & "cellpadding=""10px"">" & vbLf
' Zeile Spalte einfügen
fsinhalt.write "<tr><td bgcolor=""#FAF8CB"">bla</td></tr>" & vbLf

' alle html-tags wieder schließen
fsinhalt.write "</tr>" & vbLf
fsinhalt.write "</table>" & vbLf
fsinhalt.write "</body>" & vbLf
fsinhalt.write "</html>"
fsinhalt.Close

End Sub

Download:   vba032.zip