Excel批处理超链接文件

在Excel中快速批量添加超链接
海量的文本文件管理是一个相当有挑战的工作，经过崩溃式的分类失败后我决定用Excel来管理分类，用超链接的方式来浏览文件。但是单个添加超链接也是个海量的工作。于是用下面的VBA代码进行批量处理超链接问题，屡试不爽。下面的问题是在EXCEL文件里如何更有效的整理文件，毕竟以后还是有个变更文件目录的问题。

1. Alt+F11，进入VBA编辑界面；

2. Alt+I+M，插入一个Module；

3. 在右边Module的空白编辑区域，复制粘贴下面的所有内容；

4. F5，运行该VBA命令；

Sub Link()

i = 1

Do While Range("A" & i).Cells.Text <> ""

Range("A" & i).Select

Worksheets("Sheet1").Hyperlinks.Add Anchor:=Selection, Address:="C:\Users\wangjiachao\Desktop\新建文件夹\ceshi\" & Range("A" & i).Cells.Text

TextToDisplay = Range("A" & i).Cells.Text

i = i + 1

Loop

End Sub



说明：“A”为列标题；"F:\链接\"是文件夹路径，相对路径可以删除引号中的内容。
A1~An列中不能有空的字符，内容为需要链接文件的文件名