Excel VBA:将工作表复制到现有工作簿(变量)

Excel VBA是一种用于自动化Excel操作的编程语言。它可以帮助开发人员通过编写宏来实现各种自定义功能和任务。

将工作表复制到现有工作簿是Excel VBA中的一个常见任务。可以使用以下代码来实现：

Sub CopySheetToExistingWorkbook()
    Dim sourceWorkbook As Workbook
    Dim targetWorkbook As Workbook
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    
    ' 设置源工作簿和目标工作簿
    Set sourceWorkbook = ThisWorkbook ' 当前工作簿
    Set targetWorkbook = Workbooks.Open("C:\目标工作簿路径.xlsx") ' 替换为目标工作簿的路径
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = sourceWorkbook.Sheets("源工作表名称") ' 替换为源工作表的名称
    Set targetSheet = targetWorkbook.Sheets.Add(After:=targetWorkbook.Sheets(targetWorkbook.Sheets.Count))
    
    ' 复制源工作表到目标工作簿
    sourceSheet.Copy Before:=targetSheet
    
    ' 关闭源工作簿，保存目标工作簿
    sourceWorkbook.Close SaveChanges:=False
    targetWorkbook.Save
    
    ' 清理对象引用
    Set sourceSheet = Nothing
    Set targetSheet = Nothing
    Set sourceWorkbook = Nothing
    Set targetWorkbook = Nothing
End Sub

这段代码首先声明了一些变量，包括源工作簿、目标工作簿、源工作表和目标工作表。然后，通过设置这些变量来指定源工作簿、目标工作簿和要复制的工作表。接下来，使用Copy方法将源工作表复制到目标工作簿中的新工作表。最后，关闭源工作簿并保存目标工作簿。

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