宏-提取文件夹中所有文件及文件夹名称
Sub FSO_FileExtraction()
Dim strFldPath As String '定义文件夹路径变量
With Application.FileDialog(msoFileDialogFolderPicker) '用户选择指定文件夹
.Title = “请选择指定文件夹。”
If .Show Then
strFldPath = .SelectedItems(1)
Else
Exit Sub '如果用户没有指定文件夹,则退出程序
End If
End With
Application.ScreenUpdating = False '关闭屏幕刷新
Range(“a:b”).ClearContents
Range(“a1:b1”) = Array(“文件夹”, “文件名及超链接”)
Call ExtractionFileAddHyperlinks(strFldPath) '调取文件提取及增加超链接的函数
Range("a:b").EntireColumn.AutoFit '自动列宽
Sheets("Sheet1").Select
Sheets("Sheet1").Copy
ActiveSheet.Shapes.Range(Array("Button 1")).Delete
ActiveWorkbook.SaveAs Filename:= _
strFldPath & "\文档目录.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBa