Erreur 28 : Espace pile insuffisantRésolu

Question

Bonjour,

voilà, j'ai une fonction récursive pour parser un xml reçu de mon ERP (donc industriel et je n'ai pas le choix pour limiter le volume de données à traiter)
tout content je l'exécute sur un fichier comportant environ 9 000 lignes * 80 colonnes. et vlan erreur 28... :/ aux alentours des 3000 lignes
après quelques recherches je ne trouve pas de réponse satisfaisante. j'aurais donc voulu savoir ou ma fonction cloche et/ou si je dois complétement revoir ma fonction... elle fonctionne parfaitement sur un petit volume de données et je crois ne fait pas d'appel superflu (enfin il me semble ^^) par avance merci pour la réponse et ci-dessous mon code
ps:j'ai sorti mes définitions de variables (iCell et même k) histoire de 

------------------------------------------------------
Private Sub SetLigne(root_node As IXMLDOMNode)
 
        If (Not root_node Is Nothing) Then
            If root_node.nodeName = "enregistrement" Then
                For k = 0 To root_node.ChildNodes.Length - 1
                    If root_node.ChildNodes.Item(k).NodeType <> 3 Then
                        Sheets("Feuil1").Cells(iCell, k + 1) = root_node.ChildNodes.Item(k).Text
                    End If
                Next k
                iCell = iCell + 1
                If Not root_node.NextSibling Is Nothing Then
                    Call SetLigne(root_node.NextSibling)
                End If
            Else
                If root_node.HasChildNodes Then
                    Call SetLigne(root_node.FirstChild)
                End If
                If Not root_node.NextSibling Is Nothing Then
                    Call SetLigne(root_node.NextSibling)
                End If
            End If
        End If
End Sub

EDIT: Ajout de la coloration syntaxique.

ucfoutu · Answer

Bonjour,
Je ne comprends pas vraiment pour quelle raison tu procèdes ainsi.
Ceci (exemple) :
Workbooks.OpenXML "c:	oto.xml" 
Fonctionne sans problème chez moi.
Rien n 'interdit ensuite, si ainsi voulu, de sauvegarder le résultat en format Excel.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

Whismeril · Answer

Bonjour,

je fais très peu de VBA et n'ai jamais fais de xml avec.
Mais le principe de la fonction récursive est gourmand en ressources.
Il est important de libérer les variables pour justement ne pas saturer la pile. Et VB n'est pas le langage le plus efficace de ce coté là.

Peux tu poster un exemple de ton fichier? (sans données confidentielles bien sûr)
As tu regarder s'il ne serait pas judicieux d'utiliser des Regex?

ucfoutu · Answer

Simplement parce que le xml comporte d'autres balises (de mises en forme ou autre) je ne veux parser que ceraines balises.

Perso, je "chargerais" alors l'ensemble, PUIS me "débarrasserais" du "superflu", ainsi ===>> (exemple) ===>>

 With Workbooks.OpenXML("D:	oto.xml").ActiveSheet   titi = .UsedRange  .UsedRange.EntireRow.Delete  .Range(.Cells(1, 1), .Cells(UBound(titi, 1), UBound(titi, 2))) = titiEnd With 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

ucfoutu · Answer

j'ai aussi un impératif de temps de traitement...

je suis prêt à parier que cela ira plus vite que tes itérations récursives, de surcroît assorties de boucles.
La raison est simple : ce qui a été écrit par l'équipe Microsoft Office l'a été à un niveau plus "bas" que celui d'un langage évolué.
 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

ucfoutu · Answer

un dernier point, avant d'aller dormir :
Tu feras une autre économie (assez importante) de temps en inhibant l'affichage pendant ton traitement ===>>
Application.ScreenUpdating = false...... ton traitement...Application.ScreenUpdating = true

Erreur 28 : Espace pile insuffisant

5 réponses

Votre réponse

Discussions similaires