如何使用VBA将Excel 2016数据导出到另一个电子表格？

Sub ExportData()
    Dim srcWorkbook As Workbook
    Dim destWorkbook As Workbook
    Dim srcWorksheet As Worksheet
    Dim destWorksheet As Worksheet
    Dim lastRow As Long
    
    ' 设置源工作簿和目标工作簿
    Set srcWorkbook = ThisWorkbook
    Set destWorkbook = Workbooks.Add
    
    ' 设置源工作表和目标工作表
    Set srcWorksheet = srcWorkbook.Worksheets("Sheet1") ' 修改为源工作表的名称
    Set destWorksheet = destWorkbook.Worksheets("Sheet1") ' 修改为目标工作表的名称
    
    ' 复制源工作表的数据到目标工作表
    lastRow = srcWorksheet.Cells(srcWorksheet.Rows.Count, 1).End(xlUp).Row
    srcWorksheet.Range("A1:D" & lastRow).Copy destWorksheet.Range("A1")
    
    ' 保存目标工作簿
    destWorkbook.SaveAs "C:\目标文件路径\目标文件名.xlsx" ' 修改为目标文件的保存路径和文件名
    
    ' 关闭目标工作簿
    destWorkbook.Close
    
    ' 释放对象变量
    Set srcWorksheet = Nothing
    Set destWorksheet = Nothing
    Set srcWorkbook = Nothing
    Set destWorkbook = Nothing
    
    MsgBox "数据导出完成！"
End Sub