Question

我认为这对某人帮助我应该非常简单。

我有两个工作簿。一本是我们用作跟踪器的工作簿，因为它具有条件格式等设置。我已经将其称为“文件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

Answer 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

Answer 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

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

2 个答案: