VBA 将工作表复制到另一个工作簿答案

【问题标题】：VBA copying worksheet to another workbookVBA 将工作表复制到另一个工作簿
【发布时间】：2018-07-27 16:38:14
【问题描述】：

我知道这个问题被讨论过很多次，我检查了几乎所有的来源，但我不知道为什么这个简单的代码不起作用。我想将工作表从一个工作簿复制到另一个工作簿。

Sub SimpleCode()

Dim wb1 As Workbook
Dim wb2 As Workbook

Set wb1 = Workbooks("C:\Users\File1.xlsx")
Set wb2 = Workbooks("C:\Users\File2.xlsx")

wb1.Sheets("File1Sheet1").Copy After:=wb2.Sheets("File2Sheet1")

End Sub

【问题讨论】：

您是否尝试过打开工作簿？ (Workbooks.Open Filename:="C:\Users\File1.xlsx"
它做了什么而不是工作？如果工作簿是打开的，那么您只使用文件 name（不是完整路径）来引用它们。如果它们没有打开，那么正如@cybernetic.nomad 所说，您需要打开它们。

标签： excel vba copy

【解决方案1】：

假设这两个文件都是打开的，您只需要调用工作簿的名称，而不是全名：

Sub SimpleCode()

Dim wb1 As Workbook
Dim wb2 As Workbook

Set wb1 = Workbooks("File1.xlsx")
Set wb2 = Workbooks("File2.xlsx")

wb1.Sheets("File1Sheet1").Copy After:=wb2.Sheets("File2Sheet1")

End Sub

【讨论】：

@StackUser 如果这回答了您的问题，请点击帖子左上角的复选标记