[VBA] Εισαγωγή δεδομένων απο xml

[Tasos]

Κανονικά δεν χρειάζεται κώδικας. Η εισαγωγή δεδομένων XML μπορεί να γίνει μέσα από την επιφάνεια της Excel ακόμα και αν το αρχείο XML είναι απομακρυσμένο.

Πήγαινε στην καρτέλα "Προγραμματιστής" και πάτησε το κουμπί "Εισαγωγή".

Στο παράθυρο διαλόγου που θα εμφανιστεί πέρασε το URL του αρχείου και πάτησε άνοιγμα.

Μετά από μερικά δευτερόλεπτα το απομακρυσμένο XML θα εισαχθεί στο ενεργό φύλλο του βιβλίου.

Πάτησε ΟΚ στο μήνυμα που θα σου εμφανίσει η Excel.

Αυτή τη διαδικασία γίνεται για μια και μοναδική φορά.

Για να ανανεώσεις τα δεδομένα του πίνακα δεδομένων που θα δημιουργηθεί αρκεί να πατήσεις το κουμπί "Ανανέωση όλων" στην καρτέλα "Δεδομένα".

Με αυτό το σκεπτικό δεν χρειάζεσαι αντιγραφή - επικόλληση δεδομένων αφού μπορείς να εισάγεις τα δεδομένα σου κατευθείαν εκεί που τα χρειάζεσαι.

Και για το τεχνικό της υπόθεσης παραθέτω έναν απλό κώδικα/παράδειγμα για την εισαγωγή του συγκεκριμένου αρχείου:

Sub ImportXMLData()
    Dim ret As XlXmlImportResult
    Application.DisplayAlerts = False
    ret = ThisWorkbook.XmlImport("http://www.taski.gr/dap.xml", Nothing, True, Range("$A$1"))
    Application.DisplayAlerts = True
    If ret = xlXmlImportSuccess Then
        MsgBox "Import OK"
    End If
End Sub

Τάσος