如何用vba代码保存从excel工作表中读取的数据？

Sub SaveData()
    Dim sourceSheet As Worksheet
    Dim targetWorkbook As Workbook
    Dim targetSheet As Worksheet
    Dim dataRange As Range
    Dim savePath As String
    
    ' 设置源工作表
    Set sourceSheet = ThisWorkbook.Worksheets("Sheet1")
    
    ' 读取数据范围
    Set dataRange = sourceSheet.Range("A1:B10")
    
    ' 创建新的工作簿
    Set targetWorkbook = Workbooks.Add
    Set targetSheet = targetWorkbook.Worksheets(1)
    
    ' 将数据复制到新的工作簿
    dataRange.Copy targetSheet.Range("A1")
    
    ' 指定保存路径和文件名
    savePath = "C:\Data\output.xlsx"
    
    ' 保存新的工作簿
    targetWorkbook.SaveAs savePath
    
    ' 关闭新的工作簿
    targetWorkbook.Close
    
    ' 释放对象引用
    Set targetSheet = Nothing
    Set targetWorkbook = Nothing
    Set sourceSheet = Nothing
End Sub