Get PDF file names and fill column with it

[MartinVW]

I have a list of PDF files in a folder. I wanted to know how exactly would I write a vbscript to go into the folder, take the file path and put it in an excel worksheet in column A and offset it until all the files have been caught. Also I know this is probably an easy question and an easy macro to write, and to prevent asking questions like this again in the future can someone also (if you don't mind) lead me to a great place to learn vba? I'm more of a visual person so book's don't really help me. Thank you so much

 

[Leith Ross]

Hello MartinVW,

Here is amacro to list the PDF files in a folder. The folder name is in "A1" of the active sheet. The file names will be listed starting in "A2".

Sub ListPDFs()

    Dim Filename As String
    Dim Filepath As String
    Dim r As Long
    
        Filepath = Range("A1")
        If Right(Filepath, 1) <> "\" Then Filepath = Filepath & "\"
        
            Filename = Dir(Filepath & "*.pdf")
            
            Do While Filename <> ""
                r = r + 1
                Range("A1").Offset(r, 1) = Filename
                Filename = Dir()
            Loop
            
End Sub

 

[MartinVW]

Thank you this is exactly what I need. Question would you have to know an excellent site that helps you learn vba but like with videos? Because I really need to learn VBA but I'm not good with reading to learn.

 

[Leith Ross]

Hello MartinVW,

I have seen a lot of videos about Excel on YouTube, mostly on formulas. I really don't know of any sites that are heavy with video teaching for VBA. Sorry, it is not an area that I have investigated because I don't have a need for it.