title image


Smiley Weiß jetzt, wie...
Hi Sheridan!



Die Zeile mit

oHTML.open "text/html", "replace"

war der Holzweg; ohne Open() hat man ein ordentliches HTMLDocument:







Private Sub cmdPutTable_Click()

Dim oHTML As HTMLDocument

oHTML.body.innerHTML = "<table border=""3"" bgcolor=""#FFFF""  bordercolor=""#000000"" " _

    & "cellspacing=""0"" cellpadding=""3"" ><TR><th colspan=""3"" >Eine Tabelle</th></TR>" _

    & "<TR><TD>Eintrag1</TD><TD>Wert1</TD><TD>Wert2</TD></TR><TR><TD>Eintrag2</TD><TD>23</TD><TD>0</TD></TR>" _

    & "<TR><TD>Eintrag3</TD><TD>24</TD><TD>1</TD></TR><TR><TD>Eintrag4</TD><TD>25</TD><TD>0</TD></TR>" _

    & "<TR><TD>Eintrag5</TD><TD>26</TD><TD>1</TD></TR><TR><TD>Eintrag6</TD><TD>27</TD><TD>0</TD></TR>" _

    & "<TR><TD>Eintrag7</TD><TD>28</TD><TD>1</TD></TR></table>"

SaveStringToFile App.Path & "\NewHTMLDoc.htm", oHTML.documentElement.outerHTML

End Sub



Sub SaveStringToFile(FilePath$, sText$)

Dim FileNum As Integer

If Dir(FilePath) <> "" Then Kill FilePath

FileNum = FreeFile

Open FilePath For Binary Access Write As FileNum

Put #FileNum, , sText

Close #FileNum

End Sub



 Code eingefügt mit Syntaxhighlighter 1.16

Hoffnung trügt.

(eigentlich dürfte man im Spotlight-VB-Forum keine Fragen stellen, wenn man nicht vorher auf ActiveVB geguckt hat)




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: