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

Excel VBA是一种用于自动化Excel操作的编程语言。通过使用VBA，可以在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

上述代码首先获取当前活动的工作簿，然后创建一个新的工作簿。接下来，它从当前工作簿中选择源工作表和新工作簿中的目标工作表。然后，它将源工作表的数据复制到目标工作表，并保存新工作簿。最后，关闭新工作簿并清除对象引用。

这个功能可以在以下场景中使用：