Wählen Sie mehrere Ordner - VBA

Question

Ich verwende Makro, um CSV-Dateien zu einem zusammenführen. Makro funktioniert gut, aber ich habe einen Block, mit dem Sie einen Ordner mit CSV-Dateien zusammenführen können.

Zwei Fragen:

1. Kann ich mehr als einen Ordner wählen zu fusionieren? (In einem Ordner habe ich viele CSV-Dateien.).
2. Wie kann A andere anfängliche Verzeichnis auswählen, aus denen die Ordner auswählen? Ich brauche Ordner vom Server.

Codeblock:

'Browse to the folder with CSV files 
Set oApp = CreateObject("Shell.Application") 
Set oFolder = oApp.BrowseForFolder(0, "Select folder with CSV files", 512) 
If Not oFolder Is Nothing Then 
    foldername = oFolder.Self.Path 
    If Right(foldername, 1) <> "\" Then 
     foldername = foldername & "\" 
    End If 

jetzt meine Verfügbarkeit einen Ordner zur Auswahl:

Ich würde gerne von mehr so ​​wählen:

Answer 1

Auswahl mehrere Ordner ist überhaupt nicht möglich. Selbst die Auswahl zwei Ordner zur gleichen Zeit wird nicht funktionieren. nur

Sie können wählen ...

• mehrere Dateien in ein Ordner (siehe @FunThomas answer)
• OR ein Ordner.

Hier ist, wie ein Ordner auszuwählen:

Public Sub SelectFolder() 
    Dim fdl As FileDialog 

    Set fdl = Application.FileDialog(msoFileDialogFolderPicker) 
    With fdl 
     .InitialFileName = "C:\Temp" 'where we start choosing a folder 
     If .Show <> -1 Then 
      MsgBox "canceled" 'nothing was selected 
     Else 
      Debug.Print .SelectedItems(1) 'the selected folder 
     End If 
    End With 
End Sub 

Answer 2

Sie können Application.FileDialog verwenden. Dies ermöglicht es, den Ordner zu durchsuchen und Dateien auszuwählen.

Dim fileCount As Long 

' Open the file dialog 
With Application.FileDialog(msoFileDialogOpen) 
    .AllowMultiSelect = True 
    .Filters.Clear 
    .Filters.Add "CSV files", "*.csv" 
    .Show 

    For fileCount = 1 To .SelectedItems.Count 
     Debug.print .SelectedItems(fileCount) 
    Next fileCount 

End With