设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 3436|回复: 5
打印 上一主题 下一主题

【紧急】实现双击单元格文字,打开不同文件夹下对应的PDF文件

[复制链接]

点击这里给我发消息

跳转到指定楼层
1#
发表于 2018-9-13 15:59:34 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
文件1、2位于文件夹a中,文件3位于文件夹b中,文件4位于文件夹c中。有很多类似的文件夹,文件夹下有很多不同的PDF文件。
因工作需要,小弟能力有限,敬请各位老师帮我实现:双击单元格下的文件名称,就能打开相应文件夹下的PDF文件。如双击单元格B2中的1,就能打开文件夹a下面的1.pdf文件,双击单元格B4中的3,就能打开文件夹b下面的3.pdf文件

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2018-9-14 22:44:19 | 只看该作者
使用超级链接就行

点击这里给我发消息

3#
 楼主| 发表于 2018-9-17 08:45:32 | 只看该作者
snryga 发表于 2018-9-14 22:44
使用超级链接就行

有超过100个文件夹,几千份文件
4#
发表于 2018-9-23 12:03:42 | 只看该作者
本帖最后由 ganlinlao 于 2018-9-23 12:21 编辑

这个问题其实很简单。
方式1、使用超链接是最简捷的方式。
方式2、第一步:确保你的电脑有一个打开pdf的默认程序,一般会有的,否则你怎么看pdf呢。

第二步:以你的例子为例:至少你要有一个列 是用来记录 相对文件夹 如 A列 记录 a、b、c文件夹



第三步 :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 And Target.Row > 1 Then           '只对B列 第2行开始 点击有效
Shell "cmd /c start file:///" & ActiveWorkbook.Path & "\" & Target.Cells.Offset(0, -1).Value & "\" & Target.Value & ".pdf"
End If
End Sub


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
5#
发表于 2018-10-15 21:02:05 | 只看该作者
我可以解决

点击这里给我发消息

6#
 楼主| 发表于 2018-10-19 16:06:15 | 只看该作者

请老师指教!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-4-26 15:45 , Processed in 0.101468 second(s), 30 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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