0

我想使用 textbox1 值在文件夹中搜索 pdf 文件并打开 pdf 文件。

    iso = Me.TempCombo.Value
    If Me.TempCombo.Value = "" Then
        Exit Sub
    End If
finalrow = Sheets("Hyperlink").Range("A6000").End(xlUp).Row

For i = 2 To finalrow
    If Sheets("Hyperlink").Cells(i, 1) = iso Then
        Me.TextBox26 = Cells(i, 1).Value & Worksheets("Hyperlink").Cells(i, 1).Value


        End If

    Next i

ActiveWorkbook.FollowHyperlink Address:="\\OPDD-2UA8302DBK\Users\rossa1\Desktop\Portal to Andrew Side\TORQUE MAPS\" ' & Me.TextBox26.Value"

End Sub
4

1 回答 1

0

您可以使用以下命令打开 pdf 文件:

Sub test()
    Filename = TextBox1.Text
    ActiveWorkbook.FollowHyperlink Filename
End Sub
于 2019-08-14T23:52:54.227 回答