由于工作表名称中存在空格，VBA在工作簿之间传输数据时出错

Sub TransferData()
    Dim sourceWorkbook As Workbook
    Dim destinationWorkbook As Workbook
    Dim sourceWorksheet As Worksheet
    Dim destinationWorksheet As Worksheet
    
    ' 打开源工作簿
    Set sourceWorkbook = Workbooks.Open("C:\path\to\source\workbook.xlsx")
    
    ' 打开目标工作簿
    Set destinationWorkbook = Workbooks.Open("C:\path\to\destination\workbook.xlsx")
    
    ' 获取源工作表
    Set sourceWorksheet = sourceWorkbook.Worksheets("Sheet 1")
    
    ' 获取目标工作表
    Set destinationWorksheet = destinationWorkbook.Worksheets("Sheet 2")
    
    ' 复制数据
    sourceWorksheet.UsedRange.Copy destinationWorksheet.Range("A1")
    
    ' 关闭工作簿
    sourceWorkbook.Close SaveChanges:=False
    destinationWorkbook.Close SaveChanges:=True
    
    ' 释放对象
    Set sourceWorksheet = Nothing
    Set destinationWorksheet = Nothing
    Set sourceWorkbook = Nothing
    Set destinationWorkbook = Nothing
End Sub