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

在 VBA 中引用另一个工作簿并将值拉回，可以通过以下步骤实现：

打开两个工作簿，一个是源工作簿，另一个是目标工作簿。
在目标工作簿中按下 Alt + F11 打开 VBA 编辑器。
点击 插入 > 模块，在新的模块中输入以下代码：

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