Comment parcourir des fichiers dans un répertoire et copier des données dans une feuille maître dans Excel?

En supposant qu'il y ait plusieurs classeurs Excel dans un dossier et que vous souhaitiez parcourir tous ces fichiers Excel et copier les données d'une plage spécifiée de feuilles de calcul du même nom dans une feuille de calcul principale dans Excel, que pouvez-vous faire? Cet article présente une méthode pour y parvenir en détail.

Parcourez les fichiers d'un répertoire et copiez les données dans une feuille principale avec le code VBA

Parcourez les fichiers d'un répertoire et copiez les données dans une feuille principale avec le code VBA

Si vous souhaitez copier des données spécifiées dans la plage A1: D4 de toutes les feuilles1 des classeurs d'un certain dossier vers une feuille maître, procédez comme suit.

1. Dans le classeur, vous allez créer une feuille de calcul principale, appuyez sur la touche autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module. Copiez ensuite le code VBA ci-dessous dans la fenêtre de code.

Code VBA: parcourez les fichiers d'un dossier et copiez les données dans une feuille principale

Sub Merge2MultiSheets()
    Dim xRg As Range
    Dim xSelItem As Variant
    Dim xFileDlg As FileDialog
    Dim xFileName, xSheetName, xRgStr As String
    Dim xBook, xWorkBook As Workbook
    Dim xSheet As Worksheet
    On Error Resume Next
    Application.DisplayAlerts = False
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    xSheetName = "Sheet1"
    xRgStr = "A1:D4"
    Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    With xFileDlg
        If .Show = -1 Then
            xSelItem = .SelectedItems.Item(1)
            Set xWorkBook = ThisWorkbook
            Set xSheet = xWorkBook.Sheets("New Sheet")
            If xSheet Is Nothing Then
                xWorkBook.Sheets.Add(after:=xWorkBook.Worksheets(xWorkBook.Worksheets.Count)).Name = "New Sheet"
                Set xSheet = xWorkBook.Sheets("New Sheet")
            End If
            xFileName = Dir(xSelItem & "\*.xlsx", vbNormal)
            If xFileName = "" Then Exit Sub
            Do Until xFileName = ""
               Set xBook = Workbooks.Open(xSelItem & "\" & xFileName)
                Set xRg = xBook.Worksheets(xSheetName).Range(xRgStr)
                xRg.Copy xSheet.Range("A65536").End(xlUp).Offset(1, 0)
                xFileName = Dir()
                xBook.Close
            Loop
        End If
    End With
    Application.DisplayAlerts = True
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

Remarque :

3. appuie sur le F5 clé pour exécuter le code.

4. Dans l'ouverture Explorer , sélectionnez le dossier contenant les fichiers que vous parcourez en boucle, puis cliquez sur le OK bouton. Voir la capture d'écran:

Ensuite, une feuille de calcul principale nommée «Nouvelle feuille» est créée à la fin du classeur en cours. Et les données de la plage A1: D4 de toutes les feuilles Sheet1 du dossier sélectionné sont répertoriées dans la feuille de calcul.

Articles Liés:

• Comment copier des données de cellules avec hauteur de ligne et largeur de colonne dans Excel?