Question

如何通过excel VB获取指定文件夹里的指定文件名称与修改时间，并为文件名添加超链接？

通过excel VB获取指定文件夹里指定的文件类型以及修改的时间，可以实现。代码如下：
我的问题是：如何通过代码能实现超链接功能,即点击excel表中的文件名称即可打开文件
Dim i As Long
Sub FindFile()
i = 1
ActiveSheet.Cells.Clear
Call SearchFiles("C:\Users\huang\Desktop\123", "*.txt")
MsgBox "完成"
End Sub

Private Function SearchFiles(Path As String, FileType As String)
Dim Folder() As String '文件夹路径
Dim a, b, c As Long
Dim sPath As String
If Right(Path, 1) <> "\" Then Path = Path & "\"
'--------------------------------------------------------------查找文件
sPath = Dir(Path & FileType) '查找第一个文件
Do While Len(sPath) '循环到没有文件为止
ActiveSheet.Cells(i, 2) = sPath
ActiveSheet.Cells(i, 3) = FileDateTime(Path & sPath)
i = i + 1
sPath = Dir '查找下一个文件
DoEvents '让出控制权
Loop

For c = 1 To b
SearchFiles Folder(c), FileType
Next
End Function

Answer 1

方法在文件夹123.xls中,点按钮就可以了,文件夹的路径你要自己修改 这里考虑了文件夹下还有子文件夹,但没考虑子文件夹下,还有子文件夹的情况. 附件：遍历文件夹的方法.rar

追问

没有附件