1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
| Sub xml2htmlTable()
Dim xmlDoc As Object
Dim xmlNodeList As Object
Dim myNode As Object
Dim doc
Set doc = CreateObject("htmlfile")
doc.body.innerhtml = "<html><body><table id=tablo style=""border-collapse:collapse""><tbody></tbody></table></body></html>"
Set mytable = doc.getelementbyid("tablo").Children(0)
Set xmlDoc = CreateObject("MSXML2.DOMDocument")
'xmlDoc.async = False
xmlDoc.Load "C:\Users\polux\Desktop\ContratExtrait.xml"
Set xmlNodeList = xmlDoc.getElementsByTagName("Contrat")
For i = 0 To xmlNodeList.Length - 1
Set mytr = doc.createElement("TR"): mytr.classname = "Contrat": mytr.ID = xmlNodeList(i).ChildNodes(0).Text
For E = 0 To xmlNodeList(i).ChildNodes.Length - 1
Set mytd = doc.createElement("TD")
mytd.ID = xmlNodeList(i).ChildNodes(E).nodename: mytd.innertext = xmlNodeList(i).ChildNodes(E).Text
mytd.Style.Border = "0.5pt solid black"
mytr.appendchild mytd
Next E
mytable.appendchild mytr
Next i
Debug.Print doc.body.innerhtml
'apercu!!!! dans IE!!!
response = MsgBox("construction terminée" & vbCrLf & "voulez vous voir la table dans une page web?", vbYesNo, "affichage de la table")
If response = vbYes Then
Set ie = CreateObject("internetexplorer.application")
ie.Visible = True
ie.navigate "about:blank"
ie.document.body.innerhtml = doc.body.innerhtml
End If
End Sub |
