Excel VBA:将其他工作簿中的内容粘贴到活动工作簿Sheet2中

Sub PasteFromOtherWorkbook()
    Dim sourceWorkbook As Workbook
    Dim destinationWorkbook As Workbook
    Dim sourceWorksheet As Worksheet
    Dim destinationWorksheet As Worksheet
    
    ' 打开源工作簿
    Set sourceWorkbook = Workbooks.Open("源工作簿的文件路径")
    ' 打开目标工作簿
    Set destinationWorkbook = ThisWorkbook ' 活动工作簿
    
    ' 设置源工作表和目标工作表
    Set sourceWorksheet = sourceWorkbook.Worksheets("源工作表名称")
    Set destinationWorksheet = destinationWorkbook.Worksheets("Sheet2")
    
    ' 复制源工作表的内容到目标工作表
    sourceWorksheet.UsedRange.Copy destinationWorksheet.Range("A1")
    
    ' 关闭源工作簿
    sourceWorkbook.Close SaveChanges:=False
End Sub