title image


Smiley Es geht, Danke! Eine Frage habe ich noch!
Hallo Ahlers!



Genau, das suchte ich. Vielen Dank



Eine Frage habe ich noch:

Wenn man die TD Elemente mit name benennent, müsste die dann per HTMLElement dynamisch veränderbar sein, oder?



Ich werde deinen Tipp auf jeden Fall für das Archiv vorschlagen!



Anmerkung zum Code

Mit new (welches du übrigens vergessen hast) wird offenbar ein HTML Grundgerüst angelegt.



Ich arbeite lieber mit dem TextStream Object, da dies beim Debuggen weniger Probleme macht (Wenn der Debuger nicht über close kommt, gibts offenbar Probleme)



Hier mein Code:





Dim oHTML As HTMLDocument

Set oHTML = New 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>"

  

  Dim fso As New FileSystemObject

  Dim f As TextStream

  Dim varFile As String

  

  Set f = fso.CreateTextFile("C:\Test.html", True)

  f.write oHTML.documentElement.outerHTML

  

  f.Close

  Set f = Nothing

  Set fso = Nothing

  





Danke und LG!



Georg!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: