Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1649|回复: 3

双击单元格,可以打开,单元格对应 pdf文件

[复制链接]
发表于 2019-9-9 15:36 | 显示全部楼层 |阅读模式
求助修改代码,实现双击工作表  Input  的K列,单元格,打开K列单元格对应的 pdf 文件。



QQ截图20190909145401.png

MO-S.rar

34.39 KB, 下载次数: 4

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2019-9-9 17:06 | 显示全部楼层
百度来的,我测试了,真的靠谱:
CreateObject("Wscript.Shell").Run ("pdf文件路径+名称")
注意:如果文件名包含空格之类的或许会失败,我测试时出现过,没有特别字符的文件都能调用成功。
回复

使用道具 举报

发表于 2019-9-9 17:09 | 显示全部楼层
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

回复

使用道具 举报

 楼主| 发表于 2019-9-9 18:31 | 显示全部楼层
谢谢,解决了,应该文件名,有多余的空格
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 00:03 , Processed in 0.325939 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表