VBA代码根据单元格范围遍历文件夹中的文件

Sub TraverseFiles()
    Dim folderPath As String
    Dim fileName As String
    Dim fileContent As String
    Dim cell As Range
    
    ' 获取文件夹路径
    folderPath = "C:\Folder\Path"
    
    ' 遍历单元格范围
    For Each cell In Range("A1:A10")
        ' 获取文件名
        fileName = Dir(folderPath & "\" & cell.Value & ".*")
        
        ' 判断文件是否存在
        If fileName <> "" Then
            ' 打开文件
            Open folderPath & "\" & fileName For Input As #1
            
            ' 读取文件内容
            fileContent = Input$(LOF(1), 1)
            
            ' 关闭文件
            Close #1
            
            ' 在单元格中显示文件内容
            cell.Offset(0, 1).Value = fileContent
        Else
            ' 文件不存在时，在单元格中显示提示信息
            cell.Offset(0, 1).Value = "File not found"
        End If
    Next cell
End Sub