Groot aantal XML's samenvoegen en gegevens uit verzamelen

[ebert87]

Hallo allemaal,

Ik ben op zoek naar een manier om een groot aantal XML's (lees honderden) samen te voegen en vervolgens datums met elkaar te vergelijken en indien een bepaalde voorwaarde is voldoen van elkaar af te trekken.

Vraag 1:Hoe krijg ik een paar honderd XML's geautomatiseerd samengevoegd in bv Excel of Access (dus niet dat ik ze handmatig een voor een moet toevoegen)?

bvd

 

[OctaFish]

Je kunt al jaren een xml importeren in Access, dus dat mag geen probleem zijn. Deze code importeert één bestand, maar door de lus uit te breiden met een DIR (waarmee je alle bestanden die aan een filter in een map voldoen) kun je ook meerdere bestanden na elkaar importeren. Ik zou dan wel de variant met acAppendData nemen, zodat je de data aan dezelfde tabel toevoegt.

Sub XMLimport()
Dim StrFileName As String
Dim fd As FileDialog
Dim vrtSelectedItem As Variant
    
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        .InitialFileName = "c:\import\*.xml"
        If .Show = -1 Then
            For Each vrtSelectedItem In .SelectedItems
                Application.ImportXML DataSource:=vrtSelectedItem, ImportOptions:=acAppendData, "tblTemp"
                Application.ImportXML DataSource:=vrtSelectedItem, ImportOptions:=acStructureAndData
            Next vrtSelectedItem
        Else
        End If
    End With
    Set fd = Nothing

End Sub