Есть ли способ написать поиск, найти и открыть в VBA?

Question

Я пишу код, но не знаю, каков синтаксис. Я просто хочу, чтобы мой код поиска и найти PDF

Sub open1()

Dim pdfname As String
Const sPath = "S:\PROFILE ORDERS\"
Dim path1

pdfname = Application.InputBox("Enter the pdf you are looking for")
pdfname = pdfname & ".pdf"

path1 = Dir(sPath & pdfname)

path1.Open

End Sub

Answer 1

Sub OpenPdf()

    On Error GoTo OpenPdf_Error

    Dim pdfname As String
    Dim pdf
    Const sPath = "S:\RA QUOTES 2019"
    Dim FName As String
    Dim arNames() As String
    Dim myCount As Integer
    Dim i As Integer

    FName = Dir("S:\RA QUOTES 2019\*.pdf*")
    Do Until FName = ""
        myCount = myCount + 1
        ReDim Preserve arNames(1 To myCount)
        arNames(myCount) = FName
        FName = Dir
        Loop


    pdfname = Application.InputBox("Enter the pdf you are looking for")
    pdfname = "PLQ" & pdfname




For i = 1 To UBound(arNames)

If IsInArray(pdfname, arNames(i)) = True Then

    ThisWorkbook.FollowHyperlink sPath & arNames(i)

     End If

    Next i

    On Error GoTo 0
    Exit Sub

OpenPdf_Error:

    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure OpenPdf"

End Sub

Answer 2

Насколько вы указываете каталог для «поиска», это не настоящий поиск.В общем, все необходимое может быть в одной строке:

ThisWorkbook.FollowHyperlink S:\PROFILE ORDERS\somePdf.pdf

Остальное зависит от того, как вы хотите к нему подойти.Приведенный ниже код выдаст ошибку, если в указанном каталоге такого файла нет.

Sub OpenPdf()

    On Error GoTo OpenPdf_Error

    Dim pdfname As String
    Const sPath = "C:\Users\gropc\Desktop\"

    pdfname = Application.InputBox("Enter the pdf you are looking for")
    pdfname = pdfname & ".pdf"

    ThisWorkbook.FollowHyperlink sPath & pdfname

    On Error GoTo 0
    Exit Sub

OpenPdf_Error:

    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure OpenPdf"

End Sub