import multiple excel files into one with multiselect function

[Marco1975]

Hello from the time I'm using a macro that choosing the directory I care all the files into one Excel file . But now I have to import specific files and not all those in the folder as I did before . I did some research and saw that I can choose the files with " multiselect " but I can not understand how the macro should be modified. This is the macro I use now :

Sub COPIA_Files()


    Set objFSO = CreateObject("Scripting.FileSystemObject")
    InitialFoldr$ = "C:\" '<<< Startup folder
    With Application.FileDialog(msoFileDialogFolderPicker) 'User input for folder to look at
        .InitialFileName = Application.DefaultFilePath & "\"
        .Title = "Please select a folder to list Files from"
        .InitialFileName = InitialFoldr$
        .Show
        If .SelectedItems.Count = 0 Then Exit Sub
        mfolder = .SelectedItems(1) & "\"
    End With
   

    Dim nomeFile As String
    Dim wb As Workbook
    Dim ws As Worksheet
 
   
   
    nomeFile = Dir(mfolder)
    Do While nomeFile <> ""
        If nomeFile <> ThisWorkbook.Name Then
            Set wb = Application.Workbooks.Open(mfolder & nomeFile)
            Set ws = wb.Worksheets(1)
            ws.Name = Left(nomeFile, Len(nomeFile) - 4)
            ws.Copy After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
            wb.Close False
        End If
        nomeFile = Dir
    Loop
   
    msgbox "Files Importati", vbInformation
    main

   
End Sub

Sorry for my english.
I hope someone can help me . Thank you.

 

[Deepak]

I did something here!!

http://forum.chandoo.org/threads/update-excel-files-data.22461/#post-137803

Let us know if needs further help.

 

[Marco1975]

thanks deepak

 

[Deepak]

welcome dear.

 

[Stevie]

Hi Marco
I'm guessing 'main' refers to a different macro so I left it in.
Try this:

Sub COPIA_Files()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        If .Show = -1 Then
            For Each wb In .SelectedItems
                Set ws = wb.Worksheets(1)
                ws.Name = Left(wb.Name, Len(wb.Name) - 4)
                ws.Copy After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
                wb.Close False
            Next wb
        End If
    End With
    MsgBox "Files Importati", vbInformation
    main
End Sub

The code should pop open a window with which you can navigate to the right folder and select the files you want to use.

 

[Marco1975]

thank you Stevie