利用EXCEL中的VBA对同一文件夹下的多个数据文件进行特定提取

Sub CopyFilesBasedOnCriteria()
    Dim fso As Object
    Dim sourceFolder As String
    Dim destinationFolder As String
    
    ' 设置源文件夹路径和目标文件夹路径
    sourceFolder = "C:\\test\\全波段模拟_Nimbostratus cloud - 副本"
    destinationFolder = "C:\\Desktop\\MOD02数据提取\\test\\52101"
    
    ' 创建 FileSystemObject 对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 复制文件
    fso.CopyFile sourceFolder & "\View=30_高程=4.5.jpg", destinationFolder & "\View=30_高程=4.5.jpg"
    fso.CopyFile sourceFolder & "\View=30_高程=4.jpg", destinationFolder & "\View=30_高程=4.jpg"
    fso.CopyFile sourceFolder & "\View=5_高程.jpg", destinationFolder & "\View=5_高程.jpg"
    
    ' 释放 FileSystemObject 对象
    Set fso = Nothing
End Sub

背景：在一个文件夹下有上万个数据文档；

问题：想要根据特定的文件名提取数据，并将其复制到新的文件夹下；

解决办法：打开EXCEL文档，按“ALT+F11"跳出VBA后端，复制上述代码，点击运行

缺点：上述代码只能将所有得文件名依次列出，没能实现通过代码读取一列得文件名而直接将所求数据文档复制到新文件下。