是否从已关闭的工作簿中动态复制单元格范围？

Sub CopyFromClosedWorkbook()
    Dim SourceWorkbook As Workbook
    Dim SourceWorksheet As Worksheet
    Dim DestinationWorksheet As Worksheet

    ' 要复制的范围
    Dim SourceRange As Range
    ' 复制范围的目标位置
    Dim DestinationRange As Range

    ' 设置源工作簿和工作表
    Set SourceWorkbook = Workbooks.Open("C:\Path\To\SourceWorkbook.xlsx")
    Set SourceWorksheet = SourceWorkbook.Worksheets("Sheet1")

    ' 设置目标工作表
    Set DestinationWorksheet = ThisWorkbook.Worksheets("Sheet2")

    ' 设置要复制的范围
    Set SourceRange = SourceWorksheet.Range("A1:B10")
    ' 设置复制范围的目标位置
    Set DestinationRange = DestinationWorksheet.Range("A1")

    ' 复制范围的值
    SourceRange.Copy DestinationRange

    ' 关闭源工作簿
    SourceWorkbook.Close SaveChanges:=False
End Sub