用于从已关闭的工作簿导入数据并作为值粘贴到特定工作表中的VBA

Sub ImportData()
    Dim sourceWorkbook As Workbook
    Dim targetWorkbook As Workbook
    Dim sourceWorksheet As Worksheet
    Dim targetWorksheet As Worksheet
    
    ' 打开源工作簿
    Set sourceWorkbook = Workbooks.Open("C:\Path\To\SourceWorkbook.xlsx")
    ' 打开目标工作簿
    Set targetWorkbook = ThisWorkbook ' 当前活动的工作簿
    
    ' 指定源工作表和目标工作表
    Set sourceWorksheet = sourceWorkbook.Worksheets("Sheet1")
    Set targetWorksheet = targetWorkbook.Worksheets("Sheet2")
    
    ' 复制源工作表的数据到目标工作表
    sourceWorksheet.UsedRange.Copy
    targetWorksheet.Range("A1").PasteSpecial xlPasteValues
    
    ' 关闭源工作簿
    sourceWorkbook.Close SaveChanges:=False
End Sub