VBA-Import

Private Sub CommandButton1_Click()

'

'benötigt den Verweis: Microsoft XML, V6.0

'

Dim fd As Office.FileDialog

Set fd = Application.FileDialog(msoFileDialogFilePicker)

    With fd

        .Filters.Clear

        .Title = "KOSTRA-Daten auswählen"

        .Filters.Add "XML File", "*.xml", 1

        .AllowMultiSelect = False

        

        If .Show = True Then

            xmlFi1eName.Selectedltems (1)

        'xml einlesen und umwandeln

            Dim xDox As Object

            Set xdoc = CreateObject("MSXML2.DOMDocument")

            xdoc.async = False: xdoc.validateOnParse = False

            xdoc.Load (xmlFileName)

  

        Set D = xdoc.DocumentElement

        row_number = 1

        column_number = 2

'nach jedem T eine Spalte nach rechts, nach jedem D eine Zeile runter



         For Each D In Daten.ChildNodes

           For Each T In Daten.ChildNodes

'                For Each RN In Daten.ChildNodes

'            'ausgabe von RN in Excel-Zelle

'            'Aplication.Range("KostraDaten").Cells(r,s)

'               Next RN

'                column_number = column_number + 1

            Next T

            Debug.Print "lauf:" & D.ChildNodes(1).Text

            row_number = row_number + 1

        Next D

            

    

        End If

        

    End With

End Sub