VBA:根据条件查找文件并将单元格值从一个工作簿的列复制到另一个工作簿？

Sub CopyValues()
    Dim sourceWorkbook As Workbook
    Dim targetWorkbook As Workbook
    Dim sourceWorksheet As Worksheet
    Dim targetWorksheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim cell As Range
    Dim fileName As String
    Dim filePath As String
    
    ' 设置源文件路径和目标文件路径
    filePath = "C:\Path\To\Source\File.xlsx"
    
    ' 打开源文件和目标文件
    Set sourceWorkbook = Workbooks.Open(filePath)
    Set targetWorkbook = ThisWorkbook ' 当前活动的工作簿
    
    ' 设置源工作表和目标工作表
    Set sourceWorksheet = sourceWorkbook.Worksheets("Sheet1") ' 修改为源工作表的名称
    Set targetWorksheet = targetWorkbook.Worksheets("Sheet2") ' 修改为目标工作表的名称
    
    ' 设置源范围和目标范围
    Set sourceRange = sourceWorksheet.Range("A1:A10") ' 修改为源范围的地址
    Set targetRange = targetWorksheet.Range("B1:B10") ' 修改为目标范围的地址
    
    ' 遍历源范围中的每个单元格
    For Each cell In sourceRange
        ' 根据条件判断是否复制单元格的值
        If cell.Value = "条件" Then ' 修改为实际的条件
            ' 复制单元格的值到目标范围
            targetRange.Value = cell.Value
            ' 移动目标范围到下一行
            Set targetRange = targetRange.Offset(1, 0)
        End If
    Next cell
    
    ' 关闭源文件
    sourceWorkbook.Close SaveChanges:=False
End Sub