VBA新手求助：实现将工作表复制至未打开工作簿的完整流程

我是VBA新手，之前录了一段宏，能把源工作簿里的工作表复制粘贴到已经打开的另一个工作簿，运行是正常的。但我想调整一下流程：触发宏之后，先复制指定的工作表，然后打开目标工作簿再粘贴数据，接着关闭源工作簿，最后停留在目标工作簿的其他工作表上。

我现在的代码片段是这样的：

Sub Button5_Click()
'export data to template
Sheets("DataSet").Select 'sheet that I want to copy and paste (resides in macro workbook)
Cells.Select
Selection.Copy
Windows(...)

优化后的实现方案 #

录制宏生成的代码常会依赖Select和Selection，这类操作不仅容易出问题，运行效率也不高，咱们直接用对象操作来重构代码，完美匹配你想要的流程：

Sub Button5_Click()
    ' 声明变量，清晰管理各个工作簿和工作表对象
    Dim sourceWB As Workbook
    Dim targetWB As Workbook
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim targetFilePath As String
    
    ' 👉 这里替换成你目标工作簿的完整路径！比如"C:\Documents\目标模板.xlsx"
    targetFilePath = "你的目标工作簿完整路径"
    
    ' 定义源工作簿（就是当前宏所在的工作簿）
    Set sourceWB = ThisWorkbook
    ' 指定要复制的源工作表
    Set sourceSheet = sourceWB.Sheets("DataSet")
    
    ' 打开目标工作簿
    Set targetWB = Workbooks.Open(targetFilePath)
    ' 指定粘贴的目标工作表（这里用第一个工作表，你可以改成实际表名比如"数据接收表"）
    Set targetSheet = targetWB.Sheets(1)
    
    ' 复制源表的已用区域数据到目标表的A1起始位置（自动匹配格式）
    sourceSheet.UsedRange.Copy Destination:=targetSheet.Range("A1")
    
    ' 关闭源工作簿，SaveChanges:=False表示不保存源表修改，需要保存就改成True
    sourceWB.Close SaveChanges:=False
    
    ' 切换到目标工作簿的指定工作表，替换成你要停留的表名
    targetWB.Sheets("你要停留的工作表名").Activate
End Sub

几个关键提示： #

• 必须修改targetFilePath为你实际的目标工作簿路径，否则会找不到文件报错
• 如果只需要粘贴数值（不需要格式），可以把复制粘贴的代码换成更高效的版本：

  targetSheet.Range("A1").Resize(sourceSheet.UsedRange.Rows.Count, sourceSheet.UsedRange.Columns.Count).Value = sourceSheet.UsedRange.Value
  

• 代码里的工作表名称都要替换成你实际的表名，别直接用示例里的名称哦

内容的提问来源于stack exchange，提问作者ejdav