Writing each XL File Path found in a folder to An XL Sheet in separate cells:

**Asad Mir** · 07-05-2020, 06:03 AM

Hello Everyone!
The only thing i am unable to do here is somehow write those file paths found through running the following code in an excel sheet in separate cells, preferably using looping or any other simple method.

Any help would be greatly appreciated.
Thanks in advance.

Sub LoopInsideFolder()
Dim FileDir As String
Dim Filetolist As String
Dim r As Long

With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "Please Select a Folder"
    .ButtonName = "Pick Folder"
    If .Show = 0 Then
        MsgBox "Nothing was Selected"
        Exit Sub
    Else
        FileDir = .SelectedItems(1) & "\"
       
    End If
End With
        Filetolist = Dir(FileDir & "*xls*")
        Do Until Filetolist = ""
            Filetolist = Dir
        Loop
        
End Sub

**Andy Pope** · 07-05-2020, 06:58 AM

here is one way, start cell is A1 of activesheet

Sub LoopInsideFolder()
Dim FileDir As String
Dim Filetolist As String
Dim r As Long
Dim output As Range

With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "Please Select a Folder"
    .ButtonName = "Pick Folder"
    If .Show = 0 Then
        MsgBox "Nothing was Selected"
        Exit Sub
    Else
        FileDir = .SelectedItems(1) & "\"
       
    End If
End With
        Set output = Range("A1")
        Filetolist = Dir(FileDir & "*xls*")
        Do Until Filetolist = ""
            output = Filetolist
            Set output = output.Offset(1, 0)
            Filetolist = Dir
        Loop
        
End Sub

**Asad Mir** · 07-05-2020, 07:14 AM

Many Thanks Andy!!!

Writing each XL File Path found in a folder to An XL Sheet in separate cells:

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Writing each XL File Path found in a folder to An XL Sheet in separate cells:

Re: Writing each XL File Path found in a folder to An XL Sheet in separate cells:

Re: Writing each XL File Path found in a folder to An XL Sheet in separate cells:

Thread Information

Users Browsing this Thread

Similar Threads

[SOLVED] Separate complete path to file and directory path

VBA code excel list of folder name, the folder path of subfolder, the file name & revision

Master data should get in another sheet in separate file in a folder

Choosing folder path (instead of file path) in VBA

Code to list the folder path and sub folder path of a specific file

Specified folder path to select file path

macro to list file name and path in separate cells

Bookmarks

Bookmarks

Posting Permissions