Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row > 1 And Target.Column = [k:k].Column Then Call OpenPdf(Target.Value)
End Sub
'打开 PDF
Sub OpenPdf(v)
Dim p, f
p = "d:\Program Files\iStylePDF\iStylePDF.exe " '指定pdf工具的路径
f = "D:\" & v & ".pdf" '指定pdf文件的路径
If Dir(f) <> "" Then Shell p & f
End Sub