从Excel中的一个工作簿复制到另一个工作簿

Question

我最终会寻找更复杂的东西，但我甚至无法使这个简单的版本工作。

它会打开其他文件，但它只是将第二个工作簿（其中包含应该复制的内容的宏）留空。

我已经尝试了一些其他“复制/粘贴工作簿”线程的建议，没有任何工作。

大多数给我一个“粘贴方法工作表类失败”的错误，我不知道如何解决，因为即使是PasteSpecial不解决它？

我对VBA来说比较新，需要为我的工作获得一些东西。预先感谢任何帮助！

在我下面的示例代码中，我试图从CPWholeDocTest1.xlsx复制到CPWholeDocTest2.xlsm。

Sub CopyPasteRawData() 

Dim x As Workbook 
Dim y As Workbook 

'## Open both workbooks first: 
Set x = Workbooks.Open("C:\Users\rnewma\Documents\Excel Projects\Test\CPWholeDocTest1.xlsx") 
Set y = Workbooks.Open("C:\Users\rnewma\Documents\Excel Projects\Test\CPWholeDocTest2.xlsm") 

'Now, transfer values from x to y: 
y.Sheets("Test").Range("A1:B5").Value = x.Sheets("Sheet1").Range("A1:B5") 

'Close x: 
'x.Close 

End Sub 

Answer 1

当把从一个范围到另一个数据，你必须添加.Value或.Value2要明确！
（.Value是默认属性，所以当你不指定它是隐含的）：

Sub CopyPasteRawData() 

Dim x As Workbook 
Dim y As Workbook 

'## Open both workbooks first: 
Set x = Workbooks.Open("C:\Users\rnewma\Documents\Excel Projects\Test\CPWholeDocTest1.xlsx") 
Set y = Workbooks.Open("C:\Users\rnewma\Documents\Excel Projects\Test\CPWholeDocTest2.xlsm", ReadOnly:=False) 
DoEvents 
'Now, transfer values from x to y: 
y.Sheets("Test").Range("A1:B5").Value = x.Sheets("Sheet1").Range("A1:B5").Value 

'Close x: 
'x.Close 

End Sub 

Answer 2

我想张贴此去帮助别人，因为有一吨是不是完全不同的线程正确，但足以让我迷惑。希望这可以在未来帮助其他人。

工作代码：

Sub CopyPasteRawData2() 

' CopyPasteRawData Macro 
' 
Dim x As Workbook 
Dim y As Workbook 

'## Open both workbooks first: 
Set x = Workbooks.Open("pathname of file you are copying from") 
Set y = ThisWorkbook 

'Now, transfer values from x to y: 
y.Sheets("sheet you are copying to").Range("A1:B5").Value = x.Sheets("sheet you are copying from").Range("A1:B5").Value 

'Close x: 
x.Close 

End Sub