使用VBA If then语句将数据复制并粘贴到另一个工作簿

If condition Then
    '执行语句块1
Else
    '执行语句块2
End If

Sub CopyDataToAnotherWorkbook()
    Dim sourceWorkbook As Workbook
    Dim targetWorkbook As Workbook
    Dim sourceWorksheet As Worksheet
    Dim targetWorksheet As Worksheet
    
    '打开源工作簿
    Set sourceWorkbook = Workbooks.Open("源工作簿路径")
    '打开目标工作簿
    Set targetWorkbook = Workbooks.Open("目标工作簿路径")
    
    '指定源工作表和目标工作表
    Set sourceWorksheet = sourceWorkbook.Worksheets("源工作表名称")
    Set targetWorksheet = targetWorkbook.Worksheets("目标工作表名称")
    
    '复制数据到目标工作表
    If condition Then
        sourceWorksheet.Range("源数据范围").Copy targetWorksheet.Range("目标粘贴位置")
    Else
        '执行其他操作
    End If
    
    '保存并关闭工作簿
    sourceWorkbook.Close SaveChanges:=False
    targetWorkbook.Close SaveChanges:=True
End Sub