如何把一个文件夹里的所有文件名全部导到EXCEL表格中并以超链接的形式出现 vba命令

Question

如题所述

Answer 1

以下宏会将你所选择的文件夹内的文件名抓到第一个sheet的A2,A3,A4,........位置，并建立超链接
Sub add_link()
On Error GoTo err_exit
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
Dim vritem As Variant
With fd
If .Show = -1 Then
i = 0
For Each vritem In .SelectedItems
i = i + 1
dname = vritem
Next vritem
If i >= 2 Then
MsgBox ("不能够选择多个文件夹，请重新选择")
Exit Sub
End If
End If
End With
Set fd = Nothing
dir_name = (dname & "\")
strfilename = Dir(dir_name)
J = 0
n = 2
Do While strfilename <> ""
Sheets(1).Cells(n, 1) = strfilename
Sheets(1).Hyperlinks.Add Anchor:=Sheets(1).Cells(n, 1), Address:=dir_name & strfilename
n = n + 1
J = J + 1
strfilename = Dir
Loop
err_exit:
Exit Sub
End Sub追问

这些文件 能加一个限制比如是excel文件，我还想在另外的4-5中列中引用这些文件里数据（文件数据名字都相同）

Answer 2

文件夹里面所有文件名提取出来，用hyperlink()函数，全部做出超链接，很简单。
为什么要vba呢？

Answer 3

你采纳我，我就帮你打广告。 你直接把文件夹加入超链接多省省劲呀 可以,谢谢!谢谢! ,TQIfUH