24小时热门版块排行榜

>论坛更新日志 (4518)
>导师招生 (579)
>虫友互识 (400)
>文献求助 (325)
>招聘信息布告栏 (213)
>休闲灌水 (208)
>论文投稿 (207)
>学术会议 (192)
>考博 (140)
>基金申请 (121)
>博后之家 (118)
>硕博家园 (73)
>教师之家 (41)
>找工作 (41)
>考研 (32)
>绿色求助(高悬赏) (30)

返回列表

当前主题已经存档。

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

meanking

铜虫 (初入文坛)

应助: 0 (幼儿园)
金币: 161.9
帖子: 41
在线:
虫号: 222302
注册: 2006-03-21
专业: 制药

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

我为了方便管理我的文件，用excel做了一个文件目录，想通过文件目录直接超链接到文件。文件目录是按流水号编排的，如001，002，003，………，文件的名称也分别是001，002，003，……。
现在的问题是如何自动让文件目录超链接到文件，而不是要手动一个一个设置？
能否录制一个宏来完成操作？
请高手指教，其实搞编程的应该很容易做到吧。

回复此楼

» 猜你喜欢

Ei源刊怎么投已经有3人回复
面上没中，邀请各位路过的虫友分析一下分数已经有10人回复
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急已经有9人回复
广西大学-广州大学招聘博士后欢迎广大优秀人才！！！已经有6人回复
两块石头已经有5人回复
哈尔滨工业大学韩晓军教授课题组招收2027年硕士推免生及博士研究生已经有3人回复
找导师已经有8人回复
国社科又开始会评了，不知道这次命运如何已经有14人回复
科研人应该花精力去思考如何解决问题，而不是去凝练问题已经有14人回复
要骂人了，新模版改版就是要淡化问题凝练这种虚的东西，结果有个评委还在说凝练得不够已经有17人回复

1楼 2006-08-02 16:04:34

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

killl

荣誉版主 (职业作家)

灌水

应助: 0 (幼儿园)
贵宾: 11.38
金币: 12795.3
红花: 2
帖子: 4117
在线: 314.1小时
虫号: 228291
注册: 2006-03-24
专业: 语言学其他学科

★ ★ ★
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,关闭，看看表格，有变化没有没？