Question

我正在尝试将在工作簿1表2列B：J中输入的数据链接到工作簿2表1列B：J。它们都在同一个网络上，并且我有基本代码来链接各个单元格，但很难更改主日志（工作簿1）而不会弄乱工作簿2中输入的数据。

这是我正在尝试使用的代码，但我收到一条错误消息，说我在Sub foo2()没有来源，但我真的不知道这意味着什么，甚至不知道。我刚从另一篇文章中获取此代码，并试图让它工作。我在这里更改了名字，但我知道要为路径输入什么。老实说，我甚至不知道这是否是我想要实现的正确代码。

Sub foo2()
Dim x As Workbook
Dim y As Workbook
On Error GoTo Errorcatch

'## Open both workbooks first:
Set x = Workbooks.Open(" S:\Blah\Blah FRC\Blah\Workbook 1 ")
Set y = Workbooks.Open(" S:\Blah\Blah FRC\Blah\Workbook 2 ")

'Now, transfer values from x to y:
y.Sheets("1").Range("B2:2000").Value = x.Sheets("1").Range("B2:B2000")

'Close x:
x.Close

End Sub

Exit Sub

Errorcatch:
 MsgBox Err.Description

Answer 1

也许试试这个：

Sub foo2()
  Dim x As Workbook
  Dim y As Workbook

  '## Open both workbooks first:
  Set x = Workbooks.Open(" S:\Blah\Blah FRC\Blah\Workbook 1 ")
  Set y = Workbooks.Open(" S:\Blah\Blah FRC\Blah\Workbook 2 ")

  'Now, transfer values from x to y:
  y.Sheets("1").Range("B2:2000").Value = x.Sheets("1").Range("B2:B2000")

  'Close x:
  x.Close

End Sub

在sub之外有一个“Exit Sub”从来就不是我见过的，我看到它会如何导致调试错误。

链接两个不同工作簿中的列

1 个答案: