Вопрос по макросу в exl.

[Gerek]

Есть такой макрос:

Код: Выделить всё

Sub Макрос2()
    Range("B2").Select
    Windows("Nikolaev.xls").Activate
    Range("A2:BA1000").Select
    Selection.Copy
    Windows("General.xls").Activate
    Rows("2:2").Select
    ActiveSheet.Paste
    Range("C3").Select
End Sub

Его задача копировать информацию из книги B в книгу A. На данный момент он работает только при одновременно открытых двух книгах. Подскажите пожалуйста каким образом его можно поправить, чтобы при запуске из книги А он автоматически брал информацию из книги В (даже если она закрыта). Спасибо!

[somewhere]

Думаю будет проще вообще без макросов, используя механизм связи с "внешними данными"

[seergy]

используя механизм связи с "внешними данными" замучаешься
Используйте типа такого
Sub Макрос2()
'Открываем файл "Nikolaev.xls"
Workbooks.Open Filename:="C:\Nikolaev.xls"
Sheets("....").Select 'Activate
Range("A2:BA1000").Copy
'Переходим в исходный файл
ActiveWindow.ActivateNext
Rows("2:2").Select
ActiveSheet.Paste
Range("C3").Select
'Закрываем файл "Nikolaev.xls"
Windows("Nikolaev.xls").Activate
ActiveWindow.Close
'лучше скрыть процедуру открывания и закрывания
End Sub