Hogyan? Excelben VBA segítségévél részben ismert nevű (PDF) fájl megnyitása

Private Sub CommandButton9_Click()

Dim name As String

Dim beév As String

Dim path As String

Dim folderPath As String

Dim fileName As String

Dim objFSO As Object

Dim objFolder As Object

Dim objFile As Object

' Beolvassuk a cellák tartalmát

name = Range("C4").Value

beév = Range("D4").Value

' Összeállítjuk a könyvtár elérési útvonalát

folderPath = "r:\" & beév & "\" & name & "\"

' Ellenőrizzük, hogy a megadott könyvtár létezik-e

If Dir(folderPath, vbDirectory) = "" Then

MsgBox "A megadott könyvtár nem létezik!"

Exit Sub

End If

' Létrehozunk egy File System Object-et

Set objFSO = CreateObject("Scripting.FileSystemObject")

' Keresünk egy fájlt a megadott mintára

Set objFolder = objFSO.GetFolder(folderPath)

For Each objFile In objFolder.Files

If Left(objFile.Name, 4) = "scn-" And objFSO.GetExtensionName(objFile.Name) = "pdf" Then

fileName = objFile.Name

Exit For

End If

Next objFile

' Ha találtunk megfelelő fájlt, megnyitjuk

If fileName <> "" Then

Shell "explorer.exe " & Chr(34) & folderPath & fileName & Chr(34), vbNormalFocus

Else

MsgBox "Nem található scn- előtagú PDF fájl a megadott könyvtárban!"

End If

' Tárolt objektumok felszabadítása

Set objFile = Nothing

Set objFolder = Nothing

Set objFSO = Nothing

End Sub