24小时热门版块排行榜    

查看: 947  |  回复: 16
当前主题已经存档。

meanking

铜虫 (初入文坛)

[交流] 【求助】如何让excel里的文件目录自动链接到文件?

我为了方便管理我的文件,用excel做了一个文件目录,想通过文件目录直接超链接到文件。文件目录是按流水号编排的,如001,002,003,………,文件的名称也分别是001,002,003,……。
现在的问题是如何自动让文件目录超链接到文件,而不是要手动一个一个设置?
能否录制一个宏来完成操作?
请高手指教,其实搞编程的应该很容易做到吧。
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

可可西里

木虫之王 (文学泰斗)

甾体者说

不懂

等高手出来

顺便学习
求助文献下载后,及时评分和EPI。
2楼2006-08-02 16:23:14
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

meanking

铜虫 (初入文坛)

这难道不是很容易理解的吗?
比如千千静听,搜索一个文件夹的音乐文件,然后自动列出一个歌曲目录,以后听歌只要在目录中选择相应歌曲就行了,不用自己手动一个一个到文件夹里打开播放。其实质不也就是将目录和文件进行超链接吗?
我需要的就是这种效果~~~
3楼2006-08-02 16:52:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

steincat

荣誉版主 (知名作家)

天啊,小木虫

给你两个软件

文件目录统计器 V1.1 绿色破解版
http://muchong.com/blog/?73507/action_viewspace_itemid_1554.html

目录树型列表生成软件Listit1.0beta3
http://muchong.com/blog/html/07/73507_itemid_1555.html
Lifeisdifficult.
4楼2006-08-02 17:04:23
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

meanking

铜虫 (初入文坛)

谢谢楼上的,但是经过试用效果不佳。
第一个能生成目录,并链接到文件,但是仅此而已,不像在excel那样通过备注可以显示详细信息。用千千静听打比方,就是不能显示歌名、歌手、歌词等等。
第二个只能生成目录,不能链接。
还希望继续指教,最好是基于excel上实现我所希望的要求。

[ Last edited by meanking on 2006-8-2 at 17:25 ]
5楼2006-08-02 17:24:02
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

可可西里

木虫之王 (文学泰斗)

甾体者说

引用回帖:
Originally posted by meanking at 2006-8-2 04:52 PM:
这难道不是很容易理解的吗?
比如千千静听,搜索一个文件夹的音乐文件,然后自动列出一个歌曲目录,以后听歌只要在目录中选择相应歌曲就行了,不用自己手动一个一个到文件夹里打开播放。其实质不也就是将目录和文 ...

haha  

你说的我明白

但是我不知道怎么做

知道了吧
求助文献下载后,及时评分和EPI。
6楼2006-08-02 18:46:51
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

匿名

用户注销 (知名作家)

本帖仅楼主可见
7楼2006-08-02 18:55:40
已阅   申请博学EPI   回复此楼   编辑   查看我的主页

xugan

捐助贵宾 (著名写手)

电脑中没有OFFICE,很久不用了!
pinging PLMM with10000RMB Reply from PLMM: 0 time<1ms TTL=100RMBReplyfromPLMM:0time<1msTTL=100RMB...NORMBcanbeused,requesttimed
8楼2006-08-02 19:26:15
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

killl

荣誉版主 (职业作家)

灌水

优秀版主

★ ★ ★
steincat(金币+3):多谢参与!~
这个比较简单吧,假设100个目录,分别是001-100,每个文件夹下面都有个文件跟目录名一样,分别是001.txt--100.txt

1。你在A1输入1,然后鼠标放到a1右下角,向下拖到100行。这样,A列就是从1到100
2。在A列上点击右键,选择“设置单元格格式",选择"数字"选项页,选择最下面的“自定义“,在里面输入"000",确定后,A列的数字变成001,002 ---100
3。在b1里面输入公式:
=hyperlink("c:\test\" & a1 & "\" & a1  & ".txt)","file"  &  a1)
输入时包括等号。这个函数很简单,第一个参数就是连接的目标,第二个是显示的文字。

我对vba不熟,否则应该更方便。

如果需要我给个例子就说声

[ Last edited by killl on 2006-8-2 at 21:54 ]
灌水
9楼2006-08-02 21:46:43
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

killl

荣誉版主 (职业作家)

灌水

优秀版主

★ ★ ★
meanking(金币+3):有效
VBA:

在EXCEL中按 ALT+F11,在 左上角的工程中随便双击一个表,比如sheet1,在右边的大窗口里面输入:
CODE:
Sub mydir()
   For i = 1 To 100
          ActiveSheet.Hyperlinks.Add Range("a" & i), Address:="c:\test\" & Right("000" & i, 3) & "\" & Right("000" & i, 3) & ".txt", TextToDisplay:=CStr(i)
    Next i
End Sub

然后,按F5,关闭,看看表格,有变化没有没?
灌水
10楼2006-08-02 22:12:20
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 meanking 的主题更新
普通表情 高级回复(可上传附件)
信息提示
请填处理意见