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