如何将数据从一个工作表复制到另一个工作簿？答案

【问题标题】：How can I copy data from one worksheet to another workbook?如何将数据从一个工作表复制到另一个工作簿？
【发布时间】：2018-06-27 21:09:17
【问题描述】：

我相信这对有人帮助我来说应该非常简单。

我有两本工作簿。一个是我们用作跟踪器的工作簿，因为它具有条件格式等设置。我将其称为“文件 1”

每周我们都会通过电子邮件收到另一本包含最新和最出色数据“文件 2”的工作簿。

我要做的就是将最新最好的“文件 2”复制到我们的工作工作簿或“文件 1”中。

这是我尝试过的，但它不起作用：

 Sub CopyNewData()
Dim x As Workbook
Dim y As Workbook

'## Open both workbooks first:
Set x = Workbooks.Open("H:\GTF COP June 25 2018.xlsx")
Set y = Workbooks.Open("H:\CSA Spreadsheets\PW1100 Inventory at CSA_Revised.xlsm")

'Now, transfer values from x to y:
x.Sheets("NEOCOP").Range("A1:AH20000").Value = y.Sheets("NEOCOP").Range("A1:AH20000")

'Close x:
x.Close

End Sub

【问题讨论】：

必须用 VBA 完成吗？ Excel本身也很简单。只需打开两个工作簿，右键单击旧“文件 2”工作表的工作表选项卡并选择 Delete。现在转到新的“文件2”，右键单击并选择Move or Copy...。
你最终打开了两本书吗？这两本书都有名为NEOCOP 的表格吗？到目前为止，在两个答案中，您刚刚说“仍然不起作用”。它怎么不工作？两本书都可以打开，但价值没有转移吗？它会给出任何类型的错误信息吗？是否有一只巨大的独角兽从您的计算机后面飞出...好吧，我只发生过一次，我认为不是代码。
VBA Copy / paste values from one workbook to another的可能重复
是的，两个工作簿都打开了。虽然其中一个有宏，所以我认为它正在重新打开同一个文件。然后根本不会发生粘贴。

标签： excel vba

【解决方案1】：

首先： Set x = Workbooks.Open("H:\GTF COP June 25 2018.xlsx")

然后写：

x.Sheets("NEOCOP").Range("A1:AH20000").Value2= y.Sheets("NEOCOP").Range("A1:AH20000").Value2

【讨论】：

不工作不会将我想要的数据粘贴或覆盖到目标文件。目标文件具有与最初开始时相同的值。
@NOOB - 你能重启你的电脑再试一次吗？
@NOOB - 在第一行代码之后写上On Error GoTo 0 并试一试。是否这样做取决于您，因此我想您没有理由撒谎:)
我就是不明白，这没有任何意义。对不起，我一直在回复。我认为这会比事实证明的要简单得多。只是打开两个工作簿，什么都不做。

【解决方案2】：

你忘了.open：

Set x = Workbooks.Open("H:\GTF COP June 25 2018.xlsx")

编辑试试这种方式：

x.Sheets("NEOCOP").Range("A1:AH20000").Copy
y.Sheets("NEOCOP").Range("A1:AH20000").PasteSpecial

【讨论】：

尝试第二种解决方案并告诉我;)
Sub CopyNewData() Dim x As Workbook Dim y As Workbook '## 先打开两个工作簿： Set x = Workbooks.Open("H:\GTF COP June 25 2018.xlsx") Set y = Workbooks.Open("H:\CSA Spreadsheets\PW1100 Inventory at CSA_Revised.xlsm") '现在，将值从 x 传输到 y：x.Sheets("NEOCOP").Range("A1:AH20000").Copy y .Sheets("NEOCOP").Range("A1:AH20000").PasteSpecial '关闭 x: x.Close End Sub
这很奇怪。我将您的代码复制/粘贴到新的工作簿中。我更改了 x 和 y 工作簿的路径，它正在工作。
嗯。我也试过了。可能是因为它位于网络驱动器上？
可能。我们找到了 sub 不起作用的原因。检查网络驱动器的配置和路径。可能在路径中添加 IP 地址而不是字母。