Créer et analyser un document xml en mémoire

Version imprimable

Voir 40 message(s) de cette discussion en une page

Voila

Code:

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
35
36
37
38
39
40
41
 Sub test()
 Dim savec2 As String
Set docxml = CreateObject("MSXML2.DOMDocument")
Set r = ActiveSheet.UsedRange
With docxml
If Not .LoadXML(Replace(r.Value(xlRangeValueXMLSpreadsheet), "ss:Data", "Data")) Then Err.Raise .parseError.ErrorCode, , .parseError.reason
Dim T() As String
l = r.Rows.Count
c = r.Columns.Count
ReDim T(l, c)
For l2 = 0 To l - 1
For c2 = 0 To c - 1
 If r(l2 + 1, c2 + 1).MergeArea.Count > 1 Then
If Trim("" & r(l2 + 1, c2 + 1)) <> "" Then T(l2, 0) = r(l2 + 1, c2 + 1)
    T(l2, UBound(T, 2)) = " rowspan='" & r(l2 + 1, c2 + 1).MergeArea.Rows.Count & "'  colspan='" & r(l2 + 1, c2 + 1).MergeArea.Columns.Count & "'"
 Debug.Print r(l2 + 1, c2 + 1).MergeArea.Rows.Count
 Else
 If Trim("" & r(l2 + 1, c2 + 1)) <> "" Then T(l2, c2) = r(l2 + 1, c2 + 1) Else T(l2, c2) = "&nbsp;"
 End If
Next
Next
HTML = "<Table border='1'>"
For l2 = 0 To l - 1
HTML = HTML & vbCrLf & "<tr>"
For c2 = 0 To c - 1
If T(l2, UBound(T, 2)) <> "" Then
    If c2 = 0 And savec2 = "" Then HTML = HTML & "<td Clase='cells(" & l2 & "," & c2 & ")' " & T(l2, UBound(T, 2)) & " >" & T(l2, 0) & "</td>"
    savec2 = c2
Else
   HTML = HTML & "<td Clase='cells(" & l2 & "," & c2 & ")'&  >" & T(l2, c2) & "</td>"
   savec2 = ""
End If
Next
HTML = HTML & "</tr>"
Next
HTML = HTML & vbCrLf & "</table>"
HTML = Replace(HTML, "'cells(0,0)'", "'S68'")
HTML = Replace(HTML, "'cells(0,1)'", "'S68'")
Debug.Print HTML
End With
End Sub

:ptdr:
c'est pire que toute a l'heure
maintenant j'ai tout dans la ligne 1 et une palenquée de tr vides et je ne sais combien de ligne en trop

pour la meme plage que la capture plus haut
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 3 2 3 2 <Table border='1'> <tr><td Clase='S68'& >fhfhgfv²</td><td Clase='S68'& >bbg</td><td Clase='cells(0,2)'& >ghgh</td><td Clase='cells(0,3)'& >sdsds</td><td Clase='cells(0,4)'& > </td><td Clase='cells(0,5)'& > </td><td Clase='cells(0,6)'& > </td><td Clase='cells(0,7)'& > </td><td Clase='cells(0,8)'& > </td></tr> <tr><td Clase='cells(1,0)' rowspan='1' colspan='2' >gbff</td></tr> <tr></tr> <tr></tr> <tr></tr> <tr></tr> <tr></tr> <tr><td Clase='cells(7,0)'& >jbbvghg</td><td Clase='cells(7,1)'& > </td><td Clase='cells(7,2)'& > </td><td Clase='cells(7,3)'& > </td><td Clase='cells(7,4)'& > </td><td Clase='cells(7,5)'& > </td><td Clase='cells(7,6)'& > </td><td Clase='cells(7,7)'& > </td><td Clase='cells(7,8)'& > </td></tr> <tr><td Clase='cells(8,0)'& > </td><td Clase='cells(8,1)'& > </td><td Clase='cells(8,2)'& > </td><td Clase='cells(8,3)'& > </td><td Clase='cells(8,4)'& > </td><td Clase='cells(8,5)'& > </td><td Clase='cells(8,6)'& > </td><td Clase='cells(8,7)'& > </td><td Clase='cells(8,8)'& > </td></tr> <tr><td Clase='cells(9,0)'& > </td><td Clase='cells(9,1)'& > </td><td Clase='cells(9,2)'& > </td><td Clase='cells(9,3)'& > </td><td Clase='cells(9,4)'& > </td><td Clase='cells(9,5)'& > </td><td Clase='cells(9,6)'& > </td><td Clase='cells(9,7)'& > </td><td Clase='cells(9,8)'& > </td></tr> <tr><td Clase='cells(10,0)'& > </td><td Clase='cells(10,1)'& > </td><td Clase='cells(10,2)'& > </td><td Clase='cells(10,3)'& > </td><td Clase='cells(10,4)'& > </td><td Clase='cells(10,5)'& > </td><td Clase='cells(10,6)'& > </td><td Clase='cells(10,7)'& > </td><td Clase='cells(10,8)'& > </td></tr> <tr><td Clase='cells(11,0)'& > </td><td Clase='cells(11,1)'& > </td><td Clase='cells(11,2)'& > </td><td Clase='cells(11,3)'& > </td><td Clase='cells(11,4)'& > </td><td Clase='cells(11,5)'& > </td><td Clase='cells(11,6)'& > </td><td Clase='cells(11,7)'& > </td><td Clase='cells(11,8)'& > </td></tr> </table>
sincèrement arrête de te martyriser pour rien a moins de mouliner comme un diable tu n'y arrivera pas

il faut construire avec les row cell en dom en testant si l'element existe ou pas c'est tout c'est pas plus compliqué que ca
toute l'astuce réside dans la ligne rouge

shema le plus simple
Code:

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 Sub test() Dim plage, dochtml, TD, TR, TBODY Set plage = ActiveSheet.UsedRange Set dochtml = CreateObject("htmlfile") With dochtml .body.innerhtml = "<table><TBODY></TBODY></TABLE>": Set TBODY = .getElementsByTagName("TABLE")(0).Children(0) For lig = 1 To plage.Rows.Count Set TR = .createelement("tr") TBODY.appendchild (TR) For col = 1 To plage.Columns.Count Set cel = plage.Cells(lig, col) If .getelementbyid(Replace(cel.MergeArea.Address, "$", "")) Is Nothing Then Set TD = .createelement("td") TD.iD = Replace(cel.MergeArea.Address, "$", "") r = TD.setattribute("index", plage.Cells(lig, col).Column) ' on ajoute atribut ou style ou ce que tu veux au td ici ' ' TR.appendchild (TD) End If Next Next Debug.Print .body.innerhtml End With End Sub
resultat

Citation:

<TABLE>
<TBODY>
<TR>
<TD id=A1 index="1"></TD>
<TD id=B1 index="2"></TD>
<TD id=C1 index="3"></TD>
<TD id=D1 index="4"></TD>
<TD id=E1 index="5"></TD>
<TD id=F1 index="6"></TD>
<TD id=G1 index="7"></TD>
<TD id=H1 index="8"></TD>
<TD id=I1 index="9"></TD></TR>
<TR>
<TD id=A2:B2 index="1"></TD>
<TD id=C2 index="3"></TD>
<TD id=D2 index="4"></TD>
<TD id=E2 index="5"></TD>
<TD id=F2 index="6"></TD>
<TD id=G2 index="7"></TD>
<TD id=H2 index="8"></TD>
<TD id=I2 index="9"></TD></TR>
<TR>
<TD id=A3 index="1"></TD>
<TD id=B3:C4 index="2"></TD>
<TD id=D3 index="4"></TD>
<TD id=E3 index="5"></TD>
<TD id=F3 index="6"></TD>
<TD id=G3 index="7"></TD>
<TD id=H3 index="8"></TD>
<TD id=I3 index="9"></TD></TR>
<TR>
<TD id=A4 index="1"></TD>
<TD id=D4:D5 index="4"></TD>
<TD id=E4 index="5"></TD>
<TD id=F4 index="6"></TD>
<TD id=G4 index="7"></TD>
<TD id=H4 index="8"></TD>
<TD id=I4 index="9"></TD></TR>
<TR>
<TD id=A5 index="1"></TD>
<TD id=B5:B7 index="2"></TD>
<TD id=C5 index="3"></TD>
<TD id=E5 index="5"></TD>
<TD id=F5 index="6"></TD>
<TD id=G5 index="7"></TD>
<TD id=H5 index="8"></TD>
<TD id=I5 index="9"></TD></TR>
<TR>
<TD id=A6 index="1"></TD>
<TD id=C6:C7 index="3"></TD>
<TD id=D6 index="4"></TD>
<TD id=E6 index="5"></TD>
<TD id=F6 index="6"></TD>
<TD id=G6 index="7"></TD>
<TD id=H6 index="8"></TD>
<TD id=I6 index="9"></TD></TR>
<TR>
<TD id=A7 index="1"></TD>
<TD id=D7 index="4"></TD>
<TD id=E7 index="5"></TD>
<TD id=F7 index="6"></TD>
<TD id=G7 index="7"></TD>
<TD id=H7 index="8"></TD>
<TD id=I7 index="9"></TD></TR>
<TR>
<TD id=A8 index="1"></TD>
<TD id=B8 index="2"></TD>
<TD id=C8 index="3"></TD>
<TD id=D8 index="4"></TD>
<TD id=E8 index="5"></TD>
<TD id=F8 index="6"></TD>
<TD id=G8 index="7"></TD>
<TD id=H8 index="8"></TD>
<TD id=I8 index="9"></TD></TR>
<TR>
<TD id=A9 index="1"></TD>
<TD id=B9 index="2"></TD>
<TD id=C9 index="3"></TD>
<TD id=D9 index="4"></TD>
<TD id=E9 index="5"></TD>
<TD id=F9 index="6"></TD>
<TD id=G9 index="7"></TD>
<TD id=H9 index="8"></TD>
<TD id=I9 index="9"></TD></TR>
<TR>
<TD id=A10 index="1"></TD>
<TD id=B10 index="2"></TD>
<TD id=C10 index="3"></TD>
<TD id=D10 index="4"></TD>
<TD id=E10 index="5"></TD>
<TD id=F10 index="6"></TD>
<TD id=G10 index="7"></TD>
<TD id=H10 index="8"></TD>
<TD id=I10 index="9"></TD></TR>
<TR>
<TD id=A11 index="1"></TD>
<TD id=B11 index="2"></TD>
<TD id=C11 index="3"></TD>
<TD id=D11 index="4"></TD>
<TD id=E11 index="5"></TD>
<TD id=F11 index="6"></TD>
<TD id=G11 index="7"></TD>
<TD id=H11 index="8"></TD>
<TD id=I11 index="9"></TD></TR>
<TR>
<TD id=A12 index="1"></TD>
<TD id=B12 index="2"></TD>
<TD id=C12 index="3"></TD>
<TD id=D12 index="4"></TD>
<TD id=E12 index="5"></TD>
<TD id=F12 index="6"></TD>
<TD id=G12 index="7"></TD>
<TD id=H12 index="8"></TD>
<TD id=I12 index="9"></TD></TR></TBODY></TABLE>

23/09/2017, 00h10
Invité

C'est ce que je tes dit c'est pas la bonne solution. Je me suis fourvoyé!

Je pense que la méthode transforme de l'xml reste la meilleur solution.
23/09/2017, 16h27
patricktoulon

re

re
bonjour robert

Citation:

Je pense que la méthode transforme de l'xml reste la meilleur solution.

et non!! justement car il y a des trou dans la structure (row/cell)

la meilleur solution est une table dimensionné a la plage avec commentaire
un 1er premier passage dans le xml en analysant les coments /remonter au parent cell et recup de l'ID

et un 2d passage qui avec les bon id on récupère la bonne balise style correspondante a la bonne cell

et basta
25/09/2017, 08h49
patricktoulon

re

re
bonjour a tous

j'aimerais bien savoir si il est possible de récupérer un élément par son attribut ID SANS BOUCLER SUR LES TAGS EN VERIFIANT SON ID

se serait une bonne chose dans le sens ou dans mon projet je suis obligé de boucler alors que je connais le "ID" recherché

du genre comme en HTML getElementById

je ne trouve rien la dessus
25/09/2017, 09h03
RyuAutodidacte

Salut Patrick,

J'y connais rien et dit peut-être une bêtise,
Mais y'a t'il pas moyen d'utiliser une collection permettant d'accéder à l'ID
25/09/2017, 12h57
patricktoulon

re

re

héhé mon cher ryu qui dit collection dit boucle hors ma question est le contraire

Bonjour,

vola à quoi je m’intéresse, c'est pas dans la poche car je n'est rien compris!

Code:

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
Private Sub Transform()
 
Set source = CreateObject("MSXML2.DOMDocument")
 
 
Set stylesheet = CreateObject("MSXML2.DOMDocument")
Set result = CreateObject("MSXML2.DOMDocument")
' Load data.
source.async = False: stylesheet.async = False
If Not source.LoadXML(ThisWorkbook.ActiveSheet.UsedRange.Value(xlRangeValueMSPersistXML)) Then Err.Raise source.parseError.ErrorCode, , source.parseError.reason
If Not stylesheet.LoadXML(ThisWorkbook.ActiveSheet.UsedRange.Value(xlRangeValueXMLSpreadsheet)) Then Err.Raise source.parseError.ErrorCode, , source.parseError.reason
 
 
If (source.parseError.ErrorCode <> 0) Then
    MsgBox ("Error loading source document: " & source.parseError.reason)
Else
    If (stylesheet.parseError.ErrorCode <> 0) Then
        MsgBox ("Error loading stylesheet document: " & stylesheet.parseError.reason)
    Else
        ' Do the transform.
        source.transformNodeToObject stylesheet, result
        result.Save Environ("UserProfile") & "\Desktop\TestRd.html"
    End If
End If
 
 
End Sub

25/09/2017, 13h26
patricktoulon

re

oui bonjour robert

mon non plus je ,e comprends pas ce que tu veux faire

sauver le code xml dans un fichier HTML????????????

d'autant plus que la tu oubli qu'il manque des row et cell (toute celles qui n'ont rien (style/value))par rapport au sheets

a moins de faire une mécanique TU N'AURA JAMAIS LA PLAGE ENTIERE a moins qu'elle soit intégralement remplie de valeur ou se style la moindre cellule vide et/ou non stylée te créera un trou dans l'arborescence html

honnêtement j'ai une mécanique qui fonctionne tres bien je voudrais juste savoir comment SANS BOUCLER capter un élément avec un id dans le XML ca réduirait encore mon code car pas de boucle sur les nœuds "style"
25/09/2017, 13h30
Invité

je veux, comme je l'ai lue, formater les objets xml directement en html sans faire de boucle!

il semble que ce soit possible mais je ne comprends pas le mécanisme!
Xml to html directement!

Code:

source.transformNodeToObject stylesheet, result 'stylesheet au format XSL pas XLS! ou XHTML

https://stackoverflow.com/questions/...ba-not-working

a d'accords j'avais déjà essayé cela

regarde
tu peux le faire comme ca
mais il manque les cellules vides qui ne sont pas prises en compte dans le xml
il faut donc taper dans les attributs "index" pour recréer les precedent mais en cas de fusion de lignes précédente cette logique ne tien plus
Code:

1 2 3 4 5 6 7 8 9 Sub test() xxml = Replace(Replace(Replace(ThisWorkbook.ActiveSheet.UsedRange.Value(xlRangeValueXMLSpreadsheet), "<Row", "<TR"), "Row>", "TR>"), "ss:", "") xxml = Replace(Replace(Replace(Replace(xxml, "<Cell", "<TD"), "Cell>", "TD>"), "<Data", "<FONT"), "Data>", "FONT>") Debug.Print xxml Set Source = CreateObject("MSXML2.DOMDocument") If Not Source.LoadXML(xxml) Then Err.Raise Source.parseError.ErrorCode, , Source.parseError.reason Source.Save Environ("UserProfile") & "\Desktop\TestRd.html" End Sub

25/09/2017, 14h15
Invité

oui mais normalement tu n'as pas à faire cela!

le XML est sensé le faire il faut convertir le xlRangeValueXMLSpreadsheet en XHTML [XSL] puis XML_source.transformNodeToObject XSL, result

je ne cherche pas à retravailler le XML cells en td; juste jongler avec des objets XML!
25/09/2017, 16h16
patricktoulon

re

peut être que pour Excel c'est un format particulier et on ne peut pas convertir alors ,je sais pas

mais la question des cellules manquantes se pose toujours
25/09/2017, 17h57
pijaku

Bonsoir,

Je plussoie Robert qui me semble emprunter la bonne voie.
Je l'avais abandonné pour cause de méconnaissance de : xml, html et css... Ca faisait beaucoup de manques pour pouvoir insister.

Patrick, tu ne peux pas te passer de boucle.
Pourquoi?
Simplement parce que ce tu nommes 'ID' n'en est pas vraiment un. Il s'agit simplement d'un attribut (comme les autres) d'une balise.
Cette notion d'id que tu connais en html n'existe pas à proprement parler ici.

De plus, que crois tu que ferais une méthode GetElementsById?
A un plus bas niveau, donc plus rapide, mais elle bouclerait...

Après en cherchant dans la librairie, il existe quelque chose comme :

Citation:

Function nodeFromID(idString As String) As IXMLDOMNode
Membre de MSXML2.DOMDocument
retrieve node from it's ID

Mais qui ne semble pas fonctionner depuis un xml excel...
J'ai bien dit qui ne semble pas. A toi de tester ;)
26/09/2017, 11h42
patricktoulon

re

re
bonjour pijaku
c'est vraiment dommage c'est juste ce qui me fallait
je vais essayer de trouver pourquoi sur le xml de Excel ca ne fonctionne pas
et oui je sais qu'une boucle se fait forcement mais largement!!!!! plus rapide que la boucle VBA

au final en considérant que je veux absolument (ne pas boucler) je le fait avec split c'est plus rapide sachant qu'apres il faut quand meme boucler sur les nœuds enfants (border,fontname,alignement,etc......)
27/09/2017, 13h17
patricktoulon

re

re
bonjour pijaku j'ai testé sur divers XML que j'ai a ma dispos et c'est vraiment VBA qui ne gère pas cette fonction pas simplement les xml issue d'une plage

variable non définie

Voir 40 message(s) de cette discussion en une page