從兩個不同的工作簿鏈接列

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 

，具有子的「退出小組」外面是從來沒有的東西我都看到了，我看到了可能導致調試錯誤。