如何在VBA中引用另一个(打开或关闭)工作簿,并将值拉回？ - Excel 2007

Sub GetDataFromAnotherWorkbook()
    Dim sourceWorkbook As Workbook
    Dim targetWorkbook As Workbook
    Dim sourceWorksheet As Worksheet
    Dim targetWorksheet As Worksheet
    Dim sourceWorkbookPath As String
    Dim lastRow As Long
    
    ' 设置源工作簿的路径
    sourceWorkbookPath = "C:\source_workbook.xlsx"
    
    ' 设置源工作簿和工作表
    Set sourceWorkbook = Workbooks.Open(sourceWorkbookPath)
    Set sourceWorksheet = sourceWorkbook.Worksheets("Sheet1")
    
    ' 设置目标工作簿和工作表
    Set targetWorkbook = ThisWorkbook
    Set targetWorksheet = targetWorkbook.Worksheets("Sheet1")
    
    ' 获取源工作表中数据的最后一行
    lastRow = sourceWorksheet.Cells(sourceWorksheet.Rows.Count, "A").End(xlUp).Row
    
    ' 将源工作表中的数据复制到目标工作表
    sourceWorksheet.Range("A1:B" & lastRow).Copy Destination:=targetWorksheet.Range("A1")
    
    ' 关闭源工作簿
    sourceWorkbook.Close
End Sub