insert all excel files name into excel from folder

[Rahulwork]

hello everyone

i want to insert all excel file into exceel from specific path metioned in A1

target or destination cell would be B1

 

[JoeMo]

This will list all Excel files in the folder whose path is specified in A1 of the active sheet. List will begin in B1.

Sub ListExcelFiles()
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set F = fs.GetFolder(Range("A1").Value)
    iRow = 1
    On Error Resume Next
    For Each myfile In F.Files
        If myfile.Name Like "*.xls?" Then
            Cells(iRow, 2).Value = myfile.Name
            iRow = iRow + 1
            N = N + 1
        End If
    Next myfile
    Columns("B").AutoFit
    MsgBox N & " files listed"
End Sub

 

[Rahulwork]

big thank you it's working.

 

[JoeMo]

big thank you it's working.

You are welcome - thanks for the reply.

 

[Rahulwork]

Hello . Posted some questions pls respond ?

 

[JoeMo]

Hello . Posted some questions pls respond ?

I don't see a post with questions.

 

[Rahulwork]

Move Excel File based on their file names

Hello Everyone, I am working on one big project and need your small help in the same. I want to move excel files to folder based on their file names. below is the example - I have a folder path in A1 - B1 have date : 20-07-2020 - C1 have date : 15-07-2020 in path i have four files: 1...

www.mrexcel.com

 

[Rahulwork]

Combine Workbooks based on their name

I have an excel, in A1 i have a folder path, which will have folder path in folder there are 4 excel files - sample full - sample partial - example partial - example full i want when i click on button , macro should go to A1 path and combine all files has prefix sample. combine means merge on...

www.mrexcel.com

 

[JoeMo]

Your "questions" in Posts #7 & #8 are two separate threads, not part of this thread, as they should be.

 

[Rahulwork]

Understand. Can u pls respond me on those thread?