EXCEL中，如何获取文件夹内文件名并建立超链接编程，请帮忙，多谢，急用

1148112902

EXCEL中，如何获取文件夹内文件名并建立超链接编程，请帮忙，多谢，急用

砂海

这个问题 自己搜 , 帖子很多

1148112902

网站中的程序不知道怎么改文件路径和当前文件夹名字啊，请指教，多谢，Sub 提取文件夹内的文件名并建立超链接()
Cells.ClearContents '清空数据
myPath = ThisWorkbook.Path & "\" '当前文件夹路径，也可直接输入完整路径。
n = 1
myfile = Dir(myPath & "\*.*") '文件名
Do While myfile <> "" And myfile <> ThisWorkbook.Name '遍历。如果myfile不篁空或不等于它自己
Cells(1, 1) = "序号"
Cells(1, 2) = "提取文件名显示如下"
Cells(n + 1, 2) = myfile '数据写入
Cells(n + 1, 1) = n '编号
myfile = Dir '找寻下一个文件
n = n + 1 '计数、累加
Loop
For Each Rng In Range("b2:b" & n) '遍历
Sheets(1).Hyperlinks.Add Anchor:=Rng, Address:=Rng.Value, TextToDisplay:=Rng.Value '与相应的文档建立超链接。
Next
    ActiveWorkbook.Save '保存
End Sub