Excel VBA-Forum - Das Forum zu Microsoft Excel VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Import von externen Dateien	27.09.2022 08:39:50	Gast62577
Import von externen Dateien	27.09.2022 09:24:08	Der Steuerfuzzi
Import von externen Dateien	28.09.2022 11:35:30	Gast15031
Import von externen Dateien	28.09.2022 11:38:18	Gast44607
Import von externen Dateien	28.09.2022 11:39:37	Der Steuerfuzzi
Import von externen Dateien	06.10.2022 08:41:03	Gast87225

Ansicht des Beitrags:

Von:
Gast87225

Datum:
06.10.2022 08:41:03

Views:
202

Rating:

Antwort:

Thema:
Import von externen Dateien

Hallo,

das Einlesen mit Powerquery klappt aber nur mit einer Datei und nicht mit einem Massen-Import.

Dieses kurze Script ist aber die Lösung über VBA:

Sub From_XML_To_XLS()
    Dim myWb As Workbook
    Dim mySWb As Workbook
    Dim myStrPath As String
    Dim myFileDialog As FileDialog
    Dim myCount As Long
    Dim myFile As String
    On Error GoTo ErrHandler
        
    Set myFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    myFileDialog.AllowMultiSelect = False
    myFileDialog.Title = "Wählen Sie den gewünschten Ordner aus"
    
    If myFileDialog.Show = -1 Then
        myStrPath = myFileDialog.SelectedItems(1)
    End If
    
    If myStrPath = "" Then Exit Sub
    Application.ScreenUpdating = False
    myCount = 1
    Set mySWb = ThisWorkbook
    myFile = Dir(myStrPath & "\*.xml")
    
    Do While myFile <> ""
        Set myWb = Workbooks.OpenXML(myStrPath & "\" & myFile)
        myWb.Sheets(1).UsedRange.Copy mySWb.Sheets(1).Cells(myCount, 1)
        myWb.Close False

        myCount = mySWb.Sheets(1).UsedRange.Rows.Count + 2
        myFile = Dir()
    Loop
    
    Application.ScreenUpdating = True
    mySWb.Save
    Exit Sub
ErrHandler:
    MsgBox "Keine xml-Dateien vorhanden", , "Meldung"
End Sub

Gruß

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Import von externen Dateien	27.09.2022 08:39:50	Gast62577
Import von externen Dateien	27.09.2022 09:24:08	Der Steuerfuzzi
Import von externen Dateien	28.09.2022 11:35:30	Gast15031
Import von externen Dateien	28.09.2022 11:38:18	Gast44607
Import von externen Dateien	28.09.2022 11:39:37	Der Steuerfuzzi
Import von externen Dateien	06.10.2022 08:41:03	Gast87225