Sub ImportExcelFiles()

    Const PATH = "C:\Users\Christian\OneDrive - Christian Stauß\Mastery\Daten\Baden-Württemberg Stand Jan20\alb-donau-kreis"

    Const TABLENAME = "Daten"

    subfolder = Dir(PATH & "\*" )

    While subfolder <> ""

    xmlFile = Dir(PATH & "\*.xml" )
    While xmlFile <> ""
            DoCmd.TransferSpreadsheet acImport, , TABLENAME, PATH & "\" & xmlFile, True

        xmlFile = Dir
    Wend

        subfolder= Dir

    Wend

End Sub