Ссылка на столбцы из двух разных книг

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 

Наличие «Exit Sub» вне суб никогда не то, что я видел, и я вижу, как это может привести к возникновению ошибки отладки.