Страница 1 из 1

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

Добавлено: 10 июл 2008, 13:20
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. На данный момент он работает только при одновременно открытых двух книгах. Подскажите пожалуйста каким образом его можно поправить, чтобы при запуске из книги А он автоматически брал информацию из книги В (даже если она закрыта). Спасибо!

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

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

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

Добавлено: 18 авг 2008, 16:41
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