Loop through subfolders - open PDFs

[gxm204]

Hello,

I am exporting some PDFs that I am then importing into Excel to do some data cleaning (removing headers, subtitles, etc.)

When I do the export from Bloomberg, I am getting a subfolder for each PDF document. So I would want to be able to run through all the subfolders and do my data cleaning program.

What would be the best way to do this, it sounds like a good job for VBA -- still learning the language, though.

Thanks everyone.

Best,
George

 

[HackSlash]

Here is a recursive subfolder processing example. The part "Operate on each file" will let you run code on every file in every sub folder. You can also add logic here to exclude any errant files you come across.

<code>
Sub Main()
Dim FileSystem As Object
Dim HostFolder As String

HostFolder = "C:\"

Set FileSystem = CreateObject("Scripting.FileSystemObject")
DoFolder FileSystem.GetFolder(HostFolder)
End Sub

Sub DoFolder(Folder)
    Dim SubFolder
    For Each SubFolder In Folder.SubFolders
        DoFolder SubFolder
    Next
    Dim File
    For Each File In Folder.Files
        ' Operate on each file
    Next
End Sub</code>

 

[Kenneth Hobson]

That's a big job for a new coder.

Post 32's code gets you to the batch process.

What your macro needs to do is to import the content of the PDF file. Not all files have content that can be imported.

Do you have Acrobat, not the reader? If not, then you are stuck with the unrealiable SendKeys() method to "import" the contents or maybe some other 3rd party program.