Given path folder names in to Excel Sheets

harinsh

Active Member
Joined
Feb 7, 2012
Messages
259
Hi Team,

Can any one provide me the macro code for the below requirement.
I have number of folders where need to save huge number of files in it on everyday.

I need a macro code/solution to extract the given path folder data in to excel sheet (only the file names in the list format). Manually it would take more time in order to copy/paste the file names in to the excel sheet.

Looking forward your help.

Thanks in advance.
Harish
 

patel45

Well-known Member
Joined
Jul 15, 2012
Messages
1,953
Code:
Private Sub GetFileNames_click()
    Dim xRow As Long
    Dim xDirect$, xFname$, InitialFoldr$
    InitialFoldr$ = "D:\"    '<<< Startup folder to begin searching from
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = Application.DefaultFilePath & "\"
        .Title = "Please select a folder to list Files from"
        .InitialFileName = InitialFoldr$
        .Show
         If .SelectedItems.Count <> 0 Then
            xDirect$ = .SelectedItems(1) & "\"
            xFname$ = Dir(xDirect$, 7)
            Do While xFname$ <> ""
                Range("A2").Select
'                ActiveCell.Offset(xRow) = xDirect$ & xFname$
                ActiveCell.Offset(xRow) = xFname$
                xRow = xRow + 1
                xFname$ = Dir
            Loop
         End If
    End With
End Sub
 

harinsh

Active Member
Joined
Feb 7, 2012
Messages
259
Hi Patel45

Great!!!! Thanks for your code it is working fine.

Cheers,
 

Forum statistics

Threads
1,081,702
Messages
5,360,743
Members
400,595
Latest member
T_Dubs

Some videos you may like

This Week's Hot Topics

  • VBA (Userform)
    Hi All, I just would like to know why my code isn't working. Here is my VBA code: [CODE=vba]Private Sub OKButton_Click() Dim i As Integer...
  • List box that changes fill color
    Hello, I have gone through so many pages trying to figure this out. I have a 2020 calendar that depending on the day needs to have a certain...
  • Remove duplicates and retain one. Cross-linked cases
    Hi all I ran out of google keywords to use and still couldn't find a reference how to achieve the results of a single count. It would be great if...
  • VBA Copy and Paste With Duplicates
    Hello All, I'm in need of some input. My VBA skills are sub-par at best. I've assembled this code from basic research and it works but is...
  • Macro
    is it possible for a macro to run if the active cell value is different to the value above it
  • IF DATE and TIME
    I currently use this to check if date has passed but i also need to set a time on it too. Is it possible? [CODE=vba]=IF(B:B>TODAY(),"Not...
Top