Import fichier XML dans tableau variable très long

Version imprimable

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

02/05/2016, 14h53
Invité

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)

revoilà la version html

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
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:

set lecontrat=.getelementbyid("8882")

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

Code:

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

02/05/2016, 22h43
steph6499

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 !!
03/05/2016, 02h31
patricktoulon

re

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

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:

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

Maïs

Blé de force

Blé de force

Maïs

Blé tendre

Maïs

Maïs

Orge Semence

Maïs

Maïs

Maïs

Graines de Soja standard

Maïs

Maïs

Maïs

Blé tendre

Maïs

Blé dur

Maïs

Orge Semence

Blé de force

Blé de force

Maïs

Blé tendre

Toi:
Production

Graines de Tournesol olÃ©ique

MaÃ¯s

BlÃ© dur

MaÃ¯s

MaÃ¯s

BlÃ© de force

BlÃ© de force

MaÃ¯s

BlÃ© tendre

MaÃ¯s

MaÃ¯s

Orge Semence

MaÃ¯s

MaÃ¯s

MaÃ¯s

Graines de Soja standard

MaÃ¯s

MaÃ¯s

MaÃ¯s

BlÃ© tendre

MaÃ¯s

BlÃ© dur

MaÃ¯s

Orge Semence

BlÃ© de force

BlÃ© de force

MaÃ¯s

BlÃ© tendre

03/05/2016, 17h03
patricktoulon

re

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

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

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

re
l'importation fonctionne très bien aussi

Code:

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

04/05/2016, 16h59
cerede2000

Heu @Patrick Mercatog l'as indiqué en #6.....
04/05/2016, 17h00
Invité

Bonjour,
Oui effectivement et ça repose les neurones!

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:

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:

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

04/05/2016, 17h12
Invité

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

Code:

oRs.Open FullPath, GetXMLDB

Je suis dans un train mais si tu place dans l'espion tu devrais trouver!
04/05/2016, 17h17
patricktoulon

re

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
04/05/2016, 17h42
cerede2000

Quel fichier XML de test utilise tu ?

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:

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

04/05/2016, 18h22
cerede2000

Hé ben juste comme ça ;)

Code:

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

Mais sinon :aie:

Code:

Set xmlNodeList = xmlDoc.getElementsByTagName("Contrat")
04/05/2016, 18h26
patricktoulon

re

nikel cerede!!

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

Code:

Set xmlNodeList = xmlDoc.getElementsByTagName("Contrat")
04/05/2016, 18h30
cerede2000

Ben oui :mrgreen:
Faut penser à regarder MSDN de temps en temps :aie:
https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx
04/05/2016, 18h35
patricktoulon

re

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")

Et sinon, pourquoi pas tout simplement :

Code:

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 :)

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