How do I open all files in the same folder with the same file extension?

[DanSMT]

I have run into an issue. Originally the following code worked for what I was intending, however when multiple files were involved the code did not work.

Does anyone know how to open all files in the current folder the workbook is in that end in the same .pdf file extension?

Current code below;

Private Sub Workbook_Open()
Dim strFileName As String
Dim strFileExists As String
Dim sPath As String
sPath = Application.ActiveWorkbook.Path
strFileName = Dir$(sPath & "\*.pdf")
strFileExists = Dir(strFileName)

If strFileExists = "" Then
ThisWorkbook.FollowHyperlink Dir$(sPath & "\*.pdf")
Else

End If

End Sub

 

[VBE313]

Here is code for you to loop through the folder. Make sure "Microsoft Scripting Runtime" is checked in your references.

Private Sub Workbook_Open()
Dim strFileName As String, file As Object, filesInFolder As Object, folderName As Object, Folders As Object
Dim strFileExists As String
strFileName = Application.ActiveWorkbook.Path
Set filesInFolder = CreateObject("Scripting.FileSystemObject")
Set folderName = filesInFolder.GetFolder(strFileName)
Set Folders = folderName.Files
For Each file In Folders
    If Right(file, 4) = ".pdf" Or Right(file, 4) = ".PDF" Then
        
    Else

    End If
Next file
End Sub

 

[DanSMT]

Nothing Opens.

 

[VBE313]

I left the rest of the code for you, Dan. Please see the green text below, that is what you have to fill out

Private Sub Workbook_Open()
Dim strFileName As String, file As Object, filesInFolder As Object, folderName As Object, Folders As Object
Dim strFileExists As String
strFileName = Application.ActiveWorkbook.Path
Set filesInFolder = CreateObject("Scripting.FileSystemObject")
Set folderName = filesInFolder.GetFolder(strFileName)
Set Folders = folderName.Files
For Each file In Folders
    If Right(file, 4) = ".pdf" Or Right(file, 4) = ".PDF" Then
        'INSERT YOUR CODE HERE FOR WHAT YOU WANT TO DO WITH PDF FILES'
    Else
        'INSERT YOUR CODE HERE FOR WHAT YOU WANT TO DO WITH NON PDF FILES'
    End If
Next file
End Sub

 

[DanSMT]

I saw that now. Thanks for the assistance!!

 

[VBE313]

I saw that now. Thanks for the assistance!!

You're welcome! Maybe you can do

ActiveWorkbook.FollowHyperlink file

 

[DanSMT]

I used.

ThisWorkbook.FollowHyperlink Dir$(strFileName & "\*.pdf")

 

[VBE313]

I used.

ThisWorkbook.FollowHyperlink Dir$(strFileName & "\*.pdf")

If you do that, it will only open whatever your string file is name and .pdf. If you do

ActiveWorkbook.FollowHyperlink file

it will open every ".pdf" that is in that folder. Do you want to grab just the sheet with the same name and ".pdf" or do you want to open every ".pdf" file in that folder?

 

[DanSMT]

I agree. Your way opens all files independently. The other way works, however opens most of the pdfs in a single tab.