Extracting Several Files contents Within a folder into one file with Visual Basic and userform to chose the folder

Question

I want to create a macro in Visual Basic that will select all of the Excel files from a folder and put them into a single file. I used a form with a button that will open a window to select the folders.

Here's the button code, here I can only choose the file instead of the folders:

Private Sub importer_Click()
    Dim file As String
    file = Application.GetOpenFilename("excel (*.xlsx),*.xlsx", , "Chose", , True)

    If (LCase(file) <> "Faux" And file <> "0") Then

        liste_elements.AddItem (file)

    End If
End Sub

What's your actual question / problem? – Olly Jul 13 '18 at 12:36 — Olly, Jul 13 '18 at 12:36

score 0 · Answer 1 · answered Jul 13 '18 at 16:53

0

In order to select more than one file you should set the MultiSelect parameter to true.

Read more about it here: Application.GetOpenFilename Method (Excel)

answered Jul 13 '18 at 16:53

Pawel Czyz

1,651
4
17
21

First of all thank you for you answer, yes i know with that method i can select multiple files but i want to select a folder then the program will extract all the files inside the folder into one file. – Ibrahim Jul 14 '18 at 18:36

Extracting Several Files contents Within a folder into one file with Visual Basic and userform to chose the folder

1 Answers1