如果目录要建在活动工作表A列第2行及之后的单元格中，可以用下面的过程：

Sub 建立目录()
Dim Irow As Long, FileName As String
FileName = Dir("D:\我的文件\*.xls?")
Irow = 2
Do While FileName ""
Cells(Irow, "A").Value = FileName
ActiveSheet.Hyperlinks.Add Anchor:=Cells(Irow, "A"), _
Address:="D:\我的文件\" & FileName, _
TextToDisplay:=Cells(Irow, "A").Value
FileName = Dir
Irow = Irow + 1
Loop
End Sub

上一篇：excel函数教程：用VBA清除单元格中的部分信息 下一篇：excel表格教程：将第1张表中的A1:E10复制到第2张工作表中

郑重声明：本文版权归原作者所有，转载文章仅为传播更多信息之目的，如作者信息标记有误，请第一时间联系我们修改或删除，多谢。