открытие нескольких книг одним макросом и закрытие книг другим макросом

[kursant95]

как открыть одним макросом несколько книг и вернуться на основную книгу с которой производится открытие. Как открыть знаю, но как прописать чтоб возвращалось на основную?
еще один аспект если из несколько книг открыты то макрос который предназначен из закрывать при выполнении выдает ошибку, когда один из открытых файлов был закрыт вручную, т.е. макрос начинает работать, ищет по очереди что необходимо закрыть и если не находит хотя бы один из файлов то выдает ошибку, как это исправить?
Заранее благодарен!

[VictorM]

как прописать чтоб возвращалось на основную?

В простейшем случае, если небыли определены переменные для имен файлов

Windows("Основная.xls").Activate

выдает ошибку, как это исправить

Используйте

On Error Resume Next

[kursant95]

на открытие у меня такая запись:
Private Sub CommandButton1_Click()
Workbooks.Open "C:\Documents and Settings\мой\Рабочий стол\Книга планируемая.xls"
Workbooks.Open "C:\Documents and Settings\мой\Рабочий стол\Книга фактически.xls"
End Sub
куда ставить ту функцию?
на закрытие:
Sub закрыть()
'
' закрыть Макрос
' закрыть книги
'
' Сочетание клавиш: Ctrl+з
'
Windows("Книга фактически.xls").Activate
ActiveWindow.Close
Windows("Книга планируемая.xls").Activate
ActiveWindow.Close
End Sub
куда вторую?

[kuklp]

ThisWorkbook. Activate
Так не будет зависеть от имени.

Private Sub CommandButton1_Click()
Workbooks.Open "C:\Documents and Settings\мой\Рабочий стол\Книга планируемая.xls"
Workbooks.Open "C:\Documents and Settings\мой\Рабочий стол\Книга фактически.xls"
ThisWorkbook. Activate
End Sub

Sub закрыть()
' Сочетание клавиш: Ctrl+з
On Error Resume Next
Workbooks("Книга фактически.xls").Close False
Workbooks("Книга планируемая.xls").Close False
End Sub

После закрытия исходная книга станет активной.

[kursant95]

Парни! огромное спасибо!

[kursant95]

не подскажите что не верно? при закрытии выдает ошибку:
Private Sub CommandButton1_Click()
Workbooks("Карпов.xls").Close False
Workbooks("Селиванов.xls").Close False
Workbooks("Широков.xls").Close False
Workbooks("Реестр Селиванов.xls").Close False
Workbooks("Реестр Широков и Карпов.xls").Close False
Workbooks("Отчет по заявкам подразделений Карпов.xls").Close False
Workbooks("Отчет по заявкам подразделений Селиванов.xls").Close False
Workbooks("Отчет по заявкам подразделений Широков.xls").Close False
End Sub

Private Sub CommandButton4_Click()
Workbooks.Open "C:\Documents and Settings\мой\Рабочий стол\Еженедельные отчеты ИСС\21.01.11\присланные\Карпов.xls"
Workbooks.Open "C:\Documents and Settings\мой\Рабочий стол\Еженедельные отчеты ИСС\21.01.11\присланные\Селиванов.x ls"
Workbooks.Open "C:\Documents and Settings\мой\Рабочий стол\Еженедельные отчеты ИСС\21.01.11\присланные\Широков.xls "
ThisWorkbook.Activate
End Sub

[kursant95]

все, ошибку нашел