为指定文件夹中的所有Excel文件建一个带链接的目录

 　　如果想要目录要建在经济活动上然后进行工作表A列第2行及之后的单元格中，那么可以用到我们下面的过程：

　　Sub 建立目录（）

　　Dim Irow As Long, FileName As String

　　FileName = Dir（“D:\我的文件\*.xls?“）

　　Irow = 2

　　Do While FileName ＜＞ ““

　　Cells（Irow, “A“）.Value = FileName

　　Activity list.Hyperlinks.ADD ANCHOR: = cells (Irow, “A”) ,

　　Address:=“D:\我的文件\“ ＆ FileName, _

　　Texttodisplay: = cell (arrow "a").Value

　　FileName = Dir

　　Irow = Irow + 1

　　Loop

　　End Sub