初學VBA(一)打開PDF文件

打開PDF文件的兩種方法

1.用Shell

優點是可以指定PDF文件的打開方式

缺點是有硬編程

Sub RunPDFWithExe()
    MyPath = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"
    MyFile = "W:\MyWork\BIPSmart\20161116\sample.pdf"
    Shell MyPath & " " & MyFile, vbNormalFocus
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim targetVal As String

    targetVal = ActiveCell.Value


    If targetVal <> "" Then
        Call RunPDFWithExe
    Else
        MsgBox "no data"
        Exit Sub
    End If
End Sub

2.用超鏈接方式

缺點是只能使用系統默認的PDF打開方式。

Private Sub Worksheet_Activate()
    With Sheet1
    .Hyperlinks.Add Anchor:=.Range("a5"), _
    Address:="W:\MyWork\BIPSmart\20161116\sample.pdf", _
    ScreenTip:="PDF", _
    TextToDisplay:="PDF"
End With
End Sub