AW: Excel-Datei als gefilterte Webseite speichern
16.02.2006 19:00:14
ChrisL
Hallo Rolf
Weiss jetzt nicht genau was die option "gefiltert" macht, aber nachstehend habe ich mir mal "händisch" einen HTML-Code zusammengebaut.
Sub UWEntscheidDrucken()
Dim strDatei As String
strDatei = TempInternetVerzeichnis & "\Compliance.html"
Close #1
Open strDatei For Output As #1
With Worksheets(1)
Print #1, "<HTML>"
Print #1, "<B><U><FONT FACE=""Arial"" SIZE=3><P>" & .Range("B1") & "</P></B></U></FONT>"
Print #1, "<FONT FACE=""Arial"" SIZE=2>"
Print #1, "<B><P>" & .Range("B4") & ": " & "</B>" & .TextBox1 & "<BR>"
Print #1, "<B>" & .Range("B6") & ": " & "</B>" & .TextBox2 & "<BR>"
Print #1, "<B>" & .Range("B8") & ": " & "</B>" & .TextBox3 & "</P"
Print #1, "<P><B><U>" & .Range("B12") & "</B></U></P>"
Print #1, Zeilenschaltung(.TextBox4) & "</P>"
Print #1, "<P><B><U>" & .Range("B14") & "</B></U></P>"
Print #1, Zeilenschaltung(.TextBox5) & "</P>"
Print #1, "<P><B><U>" & .Range("B16") & "</B></U></P>"
Print #1, Zeilenschaltung(.TextBox6) & "</P>"
Print #1, "<P><B><U>" & .Range("B18") & "</B></U></P>"
Print #1, Zeilenschaltung(.TextBox7) & "</P>"
Print #1, "<P><B><U>" & .Range("B20") & "</B></U></P>"
Print #1, Zeilenschaltung(.TextBox8) & "</P>"
Print #1, "</HTML>"
End With
Close #1
ActiveWorkbook.FollowHyperlink Address:=strDatei, NewWindow:=True
End Sub
Gruss
Chris