Excel VBA添加新工作簿并复制/粘贴

Sub AddNewWorkbookAndCopyPaste()
    Dim newWorkbook As Workbook
    Dim currentWorkbook As Workbook
    Dim sourceSheet As Worksheet
    Dim destinationSheet As Worksheet
    
    ' 获取当前活动的工作簿
    Set currentWorkbook = ActiveWorkbook
    
    ' 创建新的工作簿
    Set newWorkbook = Workbooks.Add
    
    ' 在新工作簿中获取第一个工作表
    Set destinationSheet = newWorkbook.Sheets(1)
    
    ' 在当前工作簿中获取源工作表
    Set sourceSheet = currentWorkbook.Sheets("Sheet1") ' 替换为实际的源工作表名称
    
    ' 复制源工作表的数据到目标工作表
    sourceSheet.UsedRange.Copy destinationSheet.Range("A1")
    
    ' 保存新工作簿
    newWorkbook.SaveAs "C:\路径\新工作簿名.xlsx" ' 替换为实际的保存路径和文件名
    
    ' 关闭新工作簿
    newWorkbook.Close
    
    ' 清除对象引用
    Set sourceSheet = Nothing
    Set destinationSheet = Nothing
    Set newWorkbook = Nothing
    Set currentWorkbook = Nothing
End Sub