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

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 

，具有子的“退出小组”外面是从来没有的东西我都看到了，我看到了可能导致调试错误。