Закрыть сохраненную книгу

[segail]

Здравствуйте.
По условию идет сохранение книги (вторая строка кода)
После сообщения идет открытие файла и открытие формы3(пятая строка кода)
А сохраненная книга должна закрыться. Но она не закрывается из за кода открытие формы : UserForm3.Show
Как это исправить?

Application.DisplayAlerts = False
ThisWorkbook.SaveAs Rep_Documents & "\V ГСМ " & Sheets("Отчет").Range("R1") & "\" & Sheets("Отчет").Range("N1") & ".xls", 1, ConflictResolution:=xlLocalSessionChanges
Unload Me
MsgBox "  Данные сохранены в папке  V ГСМ " & Sheets("Отчет").Range("R1") & " имя файла " & Sheets("Отчет").Range("N1"), 64, "Сохранение данных"
Workbooks.Open Filename:="C:\Program Files\IL vgsm\V ГСМ\V_ГСМ.xls": UserForm3.Show
ThisWorkbook.Close (False)
Application.DisplayAlerts = True

[GanJa]

по моему автоматически становится активна сохраненная книга. надо чтоб открылась книга исходная книга а потом в ней форма...

[segail]

Сообщение от GanJa

надо чтоб открылась книга исходная книга а потом в ней форма...

Так и все происходит если нет кода : UserForm3.Show Сохраненная книга закрывается, и открывается исходная книга. А вот как открыть форму3, в исходной книги?

[segail]

Сформулирую по другому.
Как открыть форму UserForm3 файла V_ГСМ.xls, после открытия файла V_ГСМ.xls

[analyst]

Сообщение от segail

Сформулирую по другому.
Как открыть форму UserForm3 файла V_ГСМ.xls, после открытия файла V_ГСМ.xls

А userform1.show не работает?

[SAS888]

Вместо

UserForm3.Show

используйте

UserForm3.Show 0

[segail]

Сообщение от SAS888

Вместо

UserForm3.Show

используйте

UserForm3.Show 0

В этом случае форма мелькнет и закроется вмести с книгой.



V_ГСМ.xls Это уже другой файл, а UserForm3.Show и ThisWorkbook.Close выполняются для файла "V ГСМ " & Sheets("Отчет").Range("R1") & "\" & Sheets("Отчет").Range("N1") & ".xls"

[SAS888]

Т.е. Вы хотите открыть форму, затем закрыть файл, в котором находится эта форма, и при этом, чтобы форма осталась???

[segail]

Сообщение от SAS888

Т.е. Вы хотите открыть форму, затем закрыть файл, в котором находится эта форма, и при этом, чтобы форма осталась???

Проблема решается только в одном случае если отобразить форму не модально.
Код модуля открываемого файла:

Public Sub UserForm_Show()
UserForm3.Show vbModeless
End Sub

Код другого файла, который открывает файл и форму данного файла:

Private Sub CommandButton3_Click()
...
Workbooks.Open Filename:="C:\Program Files\IL vgsm\V ГСМ\V_ГСМ.xls

Application.Run "V_ГСМ.xls!UserForm_Show" 
...
End Sub

Вопрос теперь в другом. Можно ли при открытие формы, немодальном режиме, перевести ее в модальную.

[SAS888]

UserForm3.Show vbModeless - это то же самое, что я и предлагал (UserForm3.Show 0), но я считал, что сама форма находится в другом файле.

1. При открытии формы в модальном режиме, все дальнейшие дальнейшие действия макроса будут блокированы до тех пор, пока форма не будет выгружена, либо скрыта.
2. При открытии формы в немодальном режиме, работа макроса будет продолжена, но при закрытии файла, содержащего эту форму, она будет выгружена.
3. Возможный варианты:
а) закрывать файл, содержащий форму, только после того, как пользователь закончит работу с формой.
б) переместить форму (и программный код формы) в книгу, из которой подразумевается работать с формой.
в) создать надстройку с требуемой формой и вызывать ее оттуда.