首页 > 解决方案 > 在两个工作簿都打开时将数据从一个工作簿复制到另一个工作簿

问题描述

我正在尝试将数据从一个打开的工作簿复制到另一个打开的工作簿。我不断收到运行时错误 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

标签: vbaexcelcopy

解决方案


3 things at a glance:

  1. I don't like the "%" in the file name.
  2. You're missing the closing quotes in line 12, should be:

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

  3. I think you should enter some arguments for PasteSpecial in line 14.

Hope this was useful. Regards


推荐阅读