Originally posted by meanking at  03:24 PM:
小kill同志很感谢你，有效，但是超链接的文件是C:\TEST\001\001.TXT
根据我的需要我稍微改动了一下:
ActiveSheet.Hyperlinks.Add Range("a" & i), Address:="c:\test\" & "\& ...

dir c:\test /a-d /b >c:\a.txt

dir c:\test /a-d /b >c:\a.txt

Sub GetFolder() '获取文件夹
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Show
        If .SelectedItems.Count Then GetAllFiles .SelectedItems(1)
    End With
End Sub

Sub GetAllFiles(sFolder As String) '显示所有文件
    With Application.FileSearch
        .NewSearch '重新设置搜索条件
        .LookIn = sFolder '指定搜索目录
        .SearchSubFolders = True '包含子目录
        .Filename = "*.*" '查找文件类型
        .Execute '执行搜索命令
        With .FoundFiles
            If .Count > 0 Then
                For i = 1 To .Count
                    Debug.Print .Item(i)
                    Range("a" & i).Select
                    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=.Item(i), SubAddress:=""
                Next
            End If
        End With
    End With
End Sub