|
下面代码是得到文件夹下的文件名,并加超链接,例如F:\datedept\datahg\数据录入\中国宏观\财政\年数据 文件夹下的MAC505_中国宏观_财政_地方政府性基金收入(年)_录入说明.doc ,并附有超链接。
我想要“数据录入”文件夹下所有文件的文件名和超链接
求大神指教
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
|
|