[已解决]请教老师如何用VBA实现根据单元格内容打开相应的PDF或Word文件（文件都在一个文件夹）

gaiety1974

请教老师， 想通过一个VBA按钮，打开某个单元格内显示的内容，打开对应的PDF文件或者Word内容， 这些文件都放在同一个文件夹了。谢谢老师

最佳答案

月排行榜 / 总排行榜

hasyh2008

2022-6-6 18:17

点击B2，打开A2文件，类推。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim FilePath$
    FilePath = ThisWorkbook.path & "\A\"
    With Target
        If .Column = 2 And .Row > 1 And .Row < 5 Then
            Shell "RUNDLL32.EXE URL.DLL,FileProtocolHandler " & FilePath & .Offset(0, -1).Text, vbMaximizedFocus
        End If
    End With
End Sub

跳转到最佳答案楼层

hasyh2008

点击B2，打开A2文件，类推。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim FilePath$
    FilePath = ThisWorkbook.path & "\A\"
    With Target
        If .Column = 2 And .Row > 1 And .Row < 5 Then
            Shell "RUNDLL32.EXE URL.DLL,FileProtocolHandler " & FilePath & .Offset(0, -1).Text, vbMaximizedFocus
        End If
    End With
End Sub

hasyh2008

还可以用添加超链接的方法。

gaiety1974

hasyh2008 发表于 2022-6-6 18:17
点击B2，打开A2文件，类推。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

谢谢老师