1、打开explorer 文件资源管理器，然后在指定的文件夹中搜寻你需要的文件关键词，并可限定文件的类型。（当然这一步也可以保存搜索结果到win7的库中以便后用）
2、然后从结果中选择你需要的文件，然后按住shift键，右键选择copy as path，复杂文件路径。
3、打开Excel，将路径粘贴到你的表格里面吧
4、打开excel里面的VBA编辑画面，添加代码将路径转化为文件名和对应的链接。这时候一个书目就完成了。当然你还可以将excel另存为html的文件，这样可以在IE浏览器里诹鬃蛭镲面直接打开链接了。Sub textToHyperL() Dim wkst As Worksheet Dim i As Integer Set wkst = ActiveSheet For i = 1 To wkst.UsedRange.Rows.Count ' 可以根据实际行数修改1和To后面的值 wkst.Cells(i, 1).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=wkst.Cells(i, 1).Value, SubAddress:= _ "", TextToDisplay:=getFileName(wkst.Cells(i, 1).Value) NextEnd Sub'getFileNameFunction getFileName(p As String) As StringDim fso As ObjectSet fso = CreateObject("Scripting.FileSystemObject")getFileName = fso.getFileName(p)Set fso = NothingEnd Function
