Import fichier XML dans tableau variable très long

Invité · 02/05/2016, 14h53

je suis pas sur d'avoir tous compris, mais tu vas m’édifier!

si je fais un requête Xml, Rs me donne tous le champs et on ce fiche de l'ordre puisqu'il sont nommé!

maintenant c'est au au niveau de Sap qu'il faut ordonner le champ mais c'est peut-être possible select Cham1,champ2 champ4,champ3 là je sais pas répondre mais c'est possible sens doute!

soit on connais l'emplacement de champ sap et la rs(ChampSap(1)).value. ou c'est le contraire ChampSap(Rs(1).name)

**patricktoulon** · 02/05/2016, 16h24

revoilà la version html

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
42
43
44
45
 
Sub test()
    Dim laChaine As String, x, fichier As String
    fichier = "C:\Users\polux\Desktop\ContratExtrait.xml"
    x = FreeFile
    Open fichier For Input As #x
    laChaine = Input(LOF(x), #x)
    Close #x
    ligne = Split(laChaine, vbCrLf)
    For i = 1 To UBound(ligne)
        deb = IIf(i > 1, "</TR>", "")
        If InStr(ligne(i), "<Contrat") > 0 Then
            ligne(i) = deb & vbCrLf & "<TR class=Contrat>" & vbCrLf
        Else
            If Left(ligne(i), 3) <> "<tr" Then ligne(i) = Replace(ligne(i), "<", "<TD id =")
            ligne(i) = Split(ligne(i), "<TD id =/")(0)
            ligne(i) = ligne(i) & "</TD>"
        End If
        If ligne(i) = "  </TD>" Then ligne(i) = ""
        code = code & ligne(i) & vbCrLf
    Next
    code = "<Table>" & Replace(code, "/>", ">") & "</TR></table>"
    'Debug.Print code
    With CreateObject("htmlfile")
        .body.innerhtml = code
        For e = 0 To .getelementsbytagname("TR")(e).Children.Length - 1
         entete = entete & .getelementsbytagname("TR")(1).Children(e).ID & " "
        Next
        ent = Split(entete, " ")
       For a = 0 To .getelementsbytagname("TR").Length - 1
       .getelementsbytagname("TR")(a).ID = .getelementsbytagname("TR")(a).Children(0).innertext
       Next
        Debug.Print .body.innerhtml
        If .parentWindow.clipboardData.setData("Text", .body.innerhtml) Then
            Application.ScreenUpdating = False
            With Sheets(1)
                .Activate
                Cells(1, 1).Resize(1, UBound(ent)) = ent
                .Cells(2, 1).Select
                .Paste
            End With
            .parentWindow.clipboardData.clearData "Text"
        End If
    End With
End Sub

si on supprime la partie paste sur le sheets
si tu cherche une valeur
tu repère par le idcontrat
en cherchant dans le html le id exemple"8882" comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

set lecontrat=.getelementbyid("8882")

et maintenant on récupère la colonne voulu de ce contrat avec
exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

msgbox lecontrat.getelementbyid("IdOffre").innertext

regarde la structure du html dans le debug

il serait donc facile a fin de faire des économie d'énergie
de créer un tablo avec la colonne des idcontrat qui se trouvent sur le sheet et importé par SAP

et en bouclant sur ce tablo récupérer la colonne a mètre a jour dans le html tout simplement

regarde bien les id des TD!! et de leur TR parent

**steph6499** · 02/05/2016, 22h43

Bonsoir à tous,

je vois que pendant que certains bossent... d'autres ne chôment pas non plus !!

Patrick, effectivement le résultat est instantané!!! Il est vrai aussi que ma variable String va surement vite saturer...

Et je vois que vous êtes tous dans plein de tests.
J'ai commencé à lire toutes vos propositions mais je suis un peu perdue

.

Par contre, je ne comprends pas pourquoi vous parlez de programmation SAP, puisqu'il s'agit juste d'une extraction et qu'elle est en format xls. D'ailleurs, la comparaison entre les deux ne se fera pas en vba mais dans excel par des TCD surement :

--> extraction de SAP en xml --> intégrée dans une variable tableauSAP, puis retravaillé (ordre colonnes + format de certains champs) pour finir dans variable tableauFinal
--> fichier xml --> à intégrer dans une variable tableauXML pour retravail (ordre colonnes + format de certains champs) pour finir dans tableauFinal
--> tableauFinal devient ma base de donnée commune (chaque ligne identifiée par une colonne source --> SAP ou XML) affichée dans une feuille excel. Je pourrai ensuite contrôler toutes les données que je veux par des TCD

L'extraction xls de SAP n'a absolument pas la même forme que le fichier XML (pas les mêmes titres de champ, des données à concaténer, des tableaux de correspondance à créer entre les deux, des formats nombre et date différents...), c'est pour çà que je veux passer par des variables avant de les afficher sur Excel, pour pouvoir structurer les deux sources de données de la même façon.

Lorsque j'ai parlé de recherche dans le fichier xml, ce n'est pas pour mon contrôle mais par rapport au problème de taille du fichier : il va s'alourdir rapidement , et je me demandais si je pouvais ne récupérer que certaines lignes en fonction de l'année par exemple (choisir d'importer seulement les contrats de l'année 2015 par exemple).

Mais je n'ai peut-être rien compris à ce que vous avez fait !!

**patricktoulon** · 03/05/2016, 02h31

bonsoir
oui on a tres bien compris au contraire

en fait on essaie de te faire entrevoir plusieurs possibilités justement a cause de la taille du fichier

l'exemple html peut se retravailler

après justement pour retravailler il est plus facile de faire une recherche dans le html car j'ai mis les même IDs

ensuite tu dis que c'est pas au même format et que tu modifie l'ordre des colonnes etc.....

apres examen et test le temps d'exécution est plus petit en html et on a pas de soucis avec les format de cellule
donc si je comprends bien

tu extrait des données

tu modifie les format colonne, données ,entête etc...)

en suite tu récupère un xml(22mego)

qu'il va falloir formater au même format que l'autre extraction

etc....

si je peux me permettre: espérons que tu n'ai a faire cela qu'une fois par an!!

pourrait on avoir une 20 ou 30 aines de ligne sur un sheets comme il doit être au final sans les données confidentiel

Invité · 03/05/2016, 12h36

Bonjour Patrick,
hormis le fait que tu sois en Utf_8 je ne vois pas de différence entre ton traitement et le mien!
et en ce qui concerne la mise en page!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Set rs = LoadRsFromXML(strChemin)
    With Sheets("Xml")
    
        For i = 0 To rs.Fields.Count - 1
            .Range("A1").Offset(0, i) = rs(i).Name
        Next
    'rs.Filter = "IdOffre=129"
   der = .Range("A" & .Cells.Rows.Count).End(xlUp).Row + 1
        .Range("A" & der).CopyFromRecordset rs
        .UsedRange.NumberFormat = "Standard"
        .UsedRange.Value = .UsedRange.Value
         
    End With

Moi:

Production

Graines de Tournesol oléique

Maïs

Blé dur

Maïs

Blé de force

Maïs

Blé tendre

Maïs

Orge Semence

Maïs

Graines de Soja standard

Maïs

Blé tendre

Maïs

Blé dur

Maïs

Orge Semence

Blé de force

Maïs

Blé tendre

Toi:

Production

Graines de Tournesol olÃ©ique

MaÃ¯s

BlÃ© dur

MaÃ¯s

BlÃ© de force

MaÃ¯s

BlÃ© tendre

MaÃ¯s

Orge Semence

MaÃ¯s

Graines de Soja standard

MaÃ¯s

BlÃ© tendre

MaÃ¯s

BlÃ© dur

MaÃ¯s

Orge Semence

BlÃ© de force

MaÃ¯s

BlÃ© tendre

**patricktoulon** · 03/05/2016, 17h03

oui je sais mais avec ta version j'ai des triangle vert partout

après ce n'est ce qui est important
ce que j'ai dis c'est que si on supprime la partie "paste" on se sert du document html directement avec la recherche par idcontrat ex:"8882" puis contrat.get....id ex:"idoffre"

ainsi on est pas obligé d'avoir le tableau xml entier dans un sheet car c'est ce qui est le plus long dans la manœuvre que se soit en paste du html ou en recordset
re
j'ai agrandi le xml en exemple a 15000 contrat et ben le transfert sur sheet s'en ressent

Invité · 03/05/2016, 17h19

La mise en forme n'est qu'une interprétation d'Excel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
.UsedRange.NumberFormat = "Standard"
        .UsedRange.Value=.UsedRange.Value

**patricktoulon** · 04/05/2016, 16h57

re
l'importation fonctionne très bien aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test1()
Application.DisplayAlerts = False
    ActiveWorkbook.XmlImport URL:="C:\Users\polux\Desktop\ContratExtrait.xml", ImportMap:=Nothing, Overwrite:=True, Destination:=Sheets(1).Range("A1")
 
 
'sans filter avec ceci
ActiveSheet.Cells(1, 1).AutoFilter
 
 ''sans formatage et sans filter  avec cela:
 
 'adresse = Sheets(1).UsedRange.Address
'tablo = Sheets(1).Range(adresse).Value
'Sheets(1).Range(adresse).Clear
'Sheets(1).Range(adresse) = tablo
End Sub

**cerede2000** · 04/05/2016, 16h59

Heu @Patrick Mercatog l'as indiqué en #6.....

Invité · 04/05/2016, 17h00

Bonjour,
Oui effectivement et ça repose les neurones!

**patricktoulon** · 04/05/2016, 17h04

je l'avais pas vu!!

ce qui m'ennuie moi c'est l'importation même dans un sheet temp vu la taille du fichier
tiens puisque vous été la tout les deux filer moi un coup de main pour travailler en xmldom

dans le debug je n'arrive pas a avoir le resultat souhaité

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub LoadDocument()
    Dim xDoc As Object
    Set xDoc = CreateObject("MSXML2.DOMDocument")
    xDoc.Load ("C:\Users\polux\Desktop\ContratExtrait.xml")
    'xDoc.validateOnParse = False
    'If Then
    ' Le document a été chargé avec succès.
    ' Maintenant faites quelque chose d'intéressant.
    converthtml xDoc.ChildNodes
    'Else
    ' Impossible de charger le document
    ' Consultez la liste précédente pour obtenir des informations sur les erreurs.
    'End If
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub converthtml(Nodes)
    Dim xNode
 
    For Each xNode In Nodes
        code = code & "<tr contrat>" & vbCrLf
        For Each enode In xNode.ChildNodes
            code = code & "<TD id=" & enode.nodename & ">" & enode.NodeValue & "</TD>" & vbCrLf
        Next enode
    Next xNode
    Debug.Print code
End Sub

résultat bizare

Invité · 04/05/2016, 17h12

Si tu veux lun objet xml tu y gagneras en passant par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oRs.Open FullPath, GetXMLDB

Je suis dans un train mais si tu place dans l'espion tu devrais trouver!

**patricktoulon** · 04/05/2016, 17h17

oh!! c'est surtout pour tâter le dom j'ai déjà le reste pour la conversion html en dom aussi il me faut juste l'exploration xml en dom

**cerede2000** · 04/05/2016, 17h42

Quel fichier XML de test utilise tu ?

**patricktoulon** · 04/05/2016, 18h07

celui que le demandeur nous a donné

et j'ai trouver un moyen
en fait il faut taper dans le child(0)du doc sinon les element "contrat" ne sont pas accessibles

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub xml2htmlTable()
    Dim xmlDoc As Object
    Dim xmlNodeList As Object
    Dim myNode As Object
    Set xmlDoc = CreateObject("MSXML2.DOMDocument")
    'xmlDoc.async = False
    xmlDoc.Load "C:\Users\polux\Desktop\ContratExtrait.xml"
    Set xmlNodeList = xmlDoc.ChildNodes(0).SelectNodes("Contrat")
    MsgBox xmlNodeList.Length
    For i = 0 To xmlNodeList.Length - 1
        code = code & "<TR class=Contrat id=" & xmlNodeList(i).ChildNodes(0).Text & ">" & vbCrLf
        For E = 0 To xmlNodeList(i).ChildNodes.Length - 1
            code = code & "<TD id=" & xmlNodeList(i).ChildNodes(E).nodename & " > " & xmlNodeList(i).ChildNodes(E).Text & "</TD>" & vbCrLf 'NodeValue
        Next E
     code = code & "</TR>" & vbCrLf
     Next i
Debug.Print code
End Sub

il faudrait modifier la ligne 8 pour ne pas avoir a sélectionner le parent des element "contrat "
tu vois ce que je veux dire

un peu comme en html le doc.all("Contrat") qui fait abstraction de sa filiation

je sais pas si il l'a pas enlever l'exemple je peux te le redonner si il le faut

**cerede2000** · 04/05/2016, 18h22

Hé ben juste comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set xmlNodeList = xmlDoc.DocumentElement.SelectNodes("Contrat")

Mais sinon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set xmlNodeList = xmlDoc.getElementsByTagName("Contrat")

**patricktoulon** · 04/05/2016, 18h26

nikel cerede!!

re edit:
sérieux comme ca aussi!!!!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set xmlNodeList = xmlDoc.getElementsByTagName("Contrat")

**cerede2000** · 04/05/2016, 18h30

Ben oui

Faut penser à regarder MSDN de temps en temps

https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx

**patricktoulon** · 04/05/2016, 18h35

et oui hier j'ai essayé mais sans les majuscule en earlybinding et ca fonctionne pas :en latebinding la casse on s'en fout

bon reste plus qu'a intégrer le dom html a la place du string("code")

**cerede2000** · 04/05/2016, 18h42

Et sinon, pourquoi pas tout simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub ImportXML()
    Dim strTargetFile As String
    Dim wb As Workbook
 
    strTargetFile = "C:\Temp\ContratExtrait.xml"
    Application.DisplayAlerts = False
    Set wb = Workbooks.OpenXML(Filename:=strTargetFile, LoadOption:=xlXmlLoadImportToList)
    Application.DisplayAlerts = True
 
    wb.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets(1).Range("A1")
End Sub

On obtient un beau tableau nikel...
La copy ici n'est pas totalement nécessaire vu qu'on veut juste comparer d'ailleurs

Import fichier XML dans tableau variable très long

Macros et VBA Excel

Discussions similaires

Partager

Partager