在两个工作簿都打开时将其从一个工作簿复制到另一个工作簿

Question

我正在尝试将数据从一个打开的工作簿复制到另一个打开的工作簿。我一直收到运行时错误1004：本质上说找不到我的工作簿。我有这样的直觉，因为我在其中一本工作簿（电子表格服务器）上使用GXL提取软件，这使我提取数据的能力变得复杂了。调试器似乎说这是Set 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

Answer 1

三件事一目了然

1. 我不喜欢文件名中的“％”。

2. 您缺少第12行中的右引号应该是：

   x.Sheets（“北部MFG MC％石工”）.Range（“ W16：W21”）。复制

3. 我认为您应该在第14行中为PasteSpecial输入一些参数。

希望这很有用。问候