在打开时将数据从一个工作簿复制到另一个工作簿

Posted 2021-04-14

我试图将数据从一个打开的工作簿复制到另一个打开的工作簿。我一直收到运行时错误1004：基本上说我的工作簿无法找到。我有这样的直觉，因为我在其中一个工作簿（电子表格服务器）上使用GXL拉软件，这使得我拉动数据的能力变得复杂。调试器似乎说是设置x = Workbook.open代码行。这是我到目前为止的代码示例，

Sub CopyPasteData()
'
'CopyPasteData Macro
'

Dim x As Workbook
Dim y As Workbook

Set x = Workbooks.open("C:\\Client\C$\Users\ffffllll01\Desktop\North MC Macro Test.xlsm")
Set y = Workbooks.open("C:\\Users\ffffllll01\Desktop\Test Booklet for MC% Data Copy.xlsm")

x.Sheets("North MFG MC% Masonry).Range("W16:W21").Copy

y.Sheets("Sheet1").Range("A1").PasteSpecial

'
End Sub

答案

3件事一目了然：

1. 我不喜欢文件名中的“％”。
2. 你错过了第12行的收尾报价，应该是： x.Sheets（“North MFG MC％Masonry”）。范围（“W16：W21”）。复制
3. 我想你应该在第14行输入PasteSpecial的一些参数。

希望这很有用。问候