利用VBA与FSO对象提取文件夹内文件名并生成超链接至Excel

在处理大量文件时，能够快速地将文件信息汇总到Excel中是非常有用的。本文将介绍如何使用VBA配合FSO对象实现这一功能，具体来说，就是从指定文件夹中提取所有文件的名字，并在Excel中为每个文件生成一个超链接。

首先，需要了解FSO对象，它是用于读写文件或访问文件系统的一种工具。接下来，我们将通过一个具体的例子来展示如何利用VBA脚本结合FSO对象完成任务。

以下是实现该功能的具体步骤：

1. 定义文件夹路径变量。
2. 通过对话框让用户选择目标文件夹。
3. 检查用户是否选择了文件夹，如果没有选择，则退出程序。
4. 关闭屏幕更新，以提高效率。
5. 清除A列和B列的内容，设置表头。
6. 调用自定义函数ExtractionFileAddHyperlinks来执行主要逻辑。
7. 调整列宽以适应内容显示。
8. 恢复屏幕更新。

下面是主过程FSO_FileExtraction的代码示例：

Sub FSO_FileExtraction()
    Dim strFldPath As String
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "请选择指定文件夹。"
        If .Show Then strFldPath = .SelectedItems(1) Else Exit Sub
    End With
    Application.ScreenUpdating = False
    Range("a:b").ClearContents
    Range("a1:b1") = Array("文件夹", "文件名及超链接")
    Call ExtractionFileAddHyperlinks(strFldPath)
    Range("a:b").EntireColumn.AutoFit
    Application.ScreenUpdating = True
End Sub

接下来是辅助函数ExtractionFileAddHyperlinks的代码，该函数负责实际的数据提取和超链接创建工作：

Function ExtractionFileAddHyperlinks(ByVal strFldPath As String) As String
    Dim objMyFSO As Object, objFld As Object, objFile As Object, objSubFld As Object
    Dim strFilePath As String, lngLastRow As Long, intNum As Integer
    Set objMyFSO = CreateObject("Scripting.FileSystemObject")
    Set objFld = objMyFSO.GetFolder(strFldPath)
    For Each objFile In objFld.Files
        lngLastRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
        strFilePath = objFile.Path
        intNum = InStrRev(strFilePath, "\")
        Cells(lngLastRow, 1) = Left(strFilePath, intNum - 1)
        Cells(lngLastRow, 2) = Mid(strFilePath, intNum + 1)
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(lngLastRow, 2), Address:=strFilePath, ScreenTip:=strFilePath
    Next objFile
    For Each objSubFld In objFld.SubFolders
        Call ExtractionFileAddHyperlinks(objSubFld.Path)
    Next objSubFld
    Set objMyFSO = Nothing
    Set objFld = Nothing
    Set objFile = Nothing
    Set objSubFld = Nothing
End Function

通过上述代码，我们可以轻松地将任何文件夹中的文件信息导入到Excel中，并为每个文件创建一个方便点击的超链接。如果你也想尝试这个实用的功能，可以通过留言提供你的邮箱地址，以便获取完整的源代码进行测试。