Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Приветствую, уважаемые эксперты!
Вопрос по Excel 2007 VBA

Есть некий код файла "a", который открывает файл "b" и "Форму3", данного файла.

Private Sub CommandButton3_Click() 'Код который находится в файле "а"
'...
Workbooks.Open Filename:="C:\Program Files\b2\b1\b.xls" 'Открытие файл "b"
Application.Run "b.xls!UserForm_Show" 'Открытие "Формы3" файла "b"
'...
End Sub
------------------------------------------------------------------------------------
Public Sub UserForm_Show() 'Код Module2 файла "b"
UserForm3.Show
End Sub

После выполнение кода, открыты два файла "a" и "b".
В файле "b" тоже есть некий код, который закрывает файл "a".

Private Sub ComboBox_Marka_DropButtonClick() 'Код, который находится в файле "b".
Dim wb As Workbook
On Error Resume Next
Set wb = Application.Workbooks("a.xls")
If wb Is Nothing Then
a = 0
Err.Clear
Else
a = 1
End If

Set wb = Application.Workbooks("b.xls")
If wb Is Nothing Then
b = 0
Err.Clear
Else
b = 1
End If
If a = 1 And b = 1 Then Workbooks("a.xls").Close 'Закрывает файл "a"
End Sub
---------------------------------------------------------------------------------
Проблема в том, что при закрытии файла "a" закрывается "Форма3" файла "b".
Можно ли решить эту проблему?

Вопрос задал: resseg (статус: Посетитель) Вопрос отправлен: 29 марта 2010, 22:00 Состояние вопроса: открыт, ответов: 0.

Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.