24小时热门版块排行榜

返回列表

当前主题已经存档。

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

meanking

铜虫 (初入文坛)

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

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

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

回复此楼

» 猜你喜欢

三无产品还有机会吗已经有6人回复
垃圾破二本职称评审标准已经有7人回复
投稿返修后收到这样的回复，还有希望吗已经有7人回复
博士申请都是内定的吗？已经有14人回复
谈谈两天一夜的“延安行” 已经有13人回复
氨基封端PDMS和HDI反应快速固化已经有11人回复
之前让一硕士生水了7个发明专利，现在这7个获批发明专利的维护费可从哪儿支出哈？已经有11人回复
论文投稿求助已经有4人回复
Applied Surface Science 这个期刊。有哪位虫友投过的能把word模板发给我参考一下嘛已经有3人回复

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