Гость
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / организация msgbox / 23 сообщений из 23, страница 1 из 1
05.07.2018, 13:23
    #39670008
assei
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
организация msgbox
Ребята здравствуйте! что то у меня не получается обработка кода после msgbox вот код:
суть в том, что если файл ЗАКРЫТ тогда происходит
Код: vbnet
1.
Call open_xl

, а если ОТКРЫТ тогда сообщение, но что то я заблудился. заранее спасибо!
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub pop4_Click() 

If IsBookOpen(App.Path & "D:\путь\Desktop\путь\мини.xlsx") = True Then
If MsgBox("файл открыт !", vbOKCancel + 48, "сообщение") = vbOK Then Shell ("taskkill /F /IM excel.exe")
Exit Sub
Else

Call open_xl
.........
.........
End If
End Sub
...
Рейтинг: 0 / 0
05.07.2018, 13:53
    #39670031
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
организация msgbox
asseiне получается обработка кода после msgboxпоясните, не вижу никакой обработки, дальше Exit Sub
...
Рейтинг: 0 / 0
05.07.2018, 14:03
    #39670036
assei
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
организация msgbox
Shocker.Pro,

Private Sub pop4_Click()


If IsBookOpen(App.Path & "D:\путь\Desktop\путь\мини.xlsx") = True Then
If MsgBox("файл открыт !", vbOKCancel + 48, "сообщение") = vbOK Then Shell ("taskkill /F /IM excel.exe")
Exit Sub
Else

Call open_xl ' но ни это важно для меня
здесь открывается файл xl
и записываются данные в книгу

End If
End Sub
...
Рейтинг: 0 / 0
05.07.2018, 14:07
    #39670039
assei
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
организация msgbox
Shocker.Pro, может что то не так понял! после Exit Sub не должно ни чего происходить
...
Рейтинг: 0 / 0
05.07.2018, 14:07
    #39670040
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
организация msgbox
Я в ваших сообщения не вижу вопроса. Проблема в чем?
Вы пишете "не получается обработка кода", что вы хотите обработать? Какой код? Что ожидаете? Ну хоть какие-то зацепки дайте, чтобы угадать, что вам требуется
...
Рейтинг: 0 / 0
05.07.2018, 14:08
    #39670041
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
организация msgbox
asseiпосле Exit Sub не должно ни чего происходитьНичего и не будет происходить (при условии, что код вызывается по нажатию кнопки, а не с помощью прямого вызова pop4_Click)
...
Рейтинг: 0 / 0
05.07.2018, 14:15
    #39670043
assei
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
организация msgbox
Shocker.Pro, пример приложил, загвоздка в том, что при нажатии на кнопку открывается книга xl. НО если она открыта, то выдает сообщение, если ЗАКРЫТА то нет сообщений а происходит открытие файла
...
Рейтинг: 0 / 0
05.07.2018, 14:21
    #39670044
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
организация msgbox
А на какой код смотреть-то в итоге? Тот, который вы на форуме опубликовали, или тот, который приложили? Они отличаются
...
Рейтинг: 0 / 0
05.07.2018, 14:28
    #39670047
assei
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
организация msgbox
Shocker.Pro, тот что приложил , в первом варианте хотел сократить его для простоты
...
Рейтинг: 0 / 0
05.07.2018, 14:30
    #39670050
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
организация msgbox
в приложенном варианте до Call open_xl дело не дойдет никогда, потому что ранее стоит Exit Sub
...
Рейтинг: 0 / 0
05.07.2018, 14:37
    #39670058
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
организация msgbox
Shocker.Proв приложенном варианте до Call open_xl дело не дойдет никогда, потому что ранее стоит Exit Subто есть этого asseiпри нажатии на кнопку открывается книга xl.быть не может, вы что-то перепутали, возможно код, на котором пробуете и код, который выложили, все-таки разные
...
Рейтинг: 0 / 0
05.07.2018, 14:38
    #39670059
assei
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
организация msgbox
Shocker.Pro, так при нажатии кнопки ОТМЕНА и требуется не производить ни каких действий.
СООБЩЕНИЕ! - появляется когда файл открыт, А оно появляется всегда
...
Рейтинг: 0 / 0
05.07.2018, 14:41
    #39670064
assei
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
организация msgbox
Shocker.Pro, будем брать за основу тот который во вложении
...
Рейтинг: 0 / 0
05.07.2018, 14:49
    #39670077
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
организация msgbox
asseiпоявляется когда файл открыт,asseiоно появляется всегдавы не находите, что написали две взаимоисключающих фразы?

Повторюсь. Вы много раз написали, что происходит, прислали кучу противоречивого кода, но ни разу не сказали, что вы хотите. Попробуйте использовать шаблон

- В случае .............
- Хочу, чтобы происходило ...................
- Происходит .........................

- В случае .............
- Хочу, чтобы происходило ...................
- Происходит .........................

- В случае .............
- Хочу, чтобы происходило ...................
- Происходит .........................
...
Рейтинг: 0 / 0
05.07.2018, 15:41
    #39670121
assei
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
организация msgbox
Shocker.Pro,
if книга открыта then
сообщение что книга открыта
иначе
...
Рейтинг: 0 / 0
05.07.2018, 15:43
    #39670123
assei
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
организация msgbox
Shocker.Pro, правильно ли я понимаю
if книга открыта then
сообщение что книга открыта
иначе
книга открывается и записываются данные
end if
...
Рейтинг: 0 / 0
05.07.2018, 15:45
    #39670130
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
организация msgbox
нет
в вашем коде нет никакого "иначе"
...
Рейтинг: 0 / 0
06.07.2018, 09:55
    #39670475
assei
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
организация msgbox
Shocker.Pro, направьте меня в правильное русло, подскажите что не так я делаю
...
Рейтинг: 0 / 0
06.07.2018, 10:09
    #39670485
assei
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
организация msgbox
Shocker.Pro, по немногу стал разбираться что не так НО есть загвоздка....
...
Рейтинг: 0 / 0
06.07.2018, 10:15
    #39670488
assei
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
организация msgbox
Shocker.Pro, у меня все получилось СПАСИБО ВАМ за направление:)
...
Рейтинг: 0 / 0
06.07.2018, 10:34
    #39670512
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
организация msgbox
Рад, что получилось, но опять жеasseiподскажите что не так я делаюну как я могу подсказать, если вы за все это время так ни разу и не сказали, что вы ХОТИТЕ получить?
...
Рейтинг: 0 / 0
06.07.2018, 10:42
    #39670519
assei
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
организация msgbox
Shocker.Pro, очень странное происходит в отдельном примере если путь прописываю так
Код: vbnet
1.
Set mini = XL.Workbooks.Open(App.Path & "\пример.xlsx")

все рабртает
а если так
Код: vbnet
1.
Set mini = XL.Workbooks.Open(App.Path & "D:\Мои документы\Desktop\Рабочие файлы\мини кридит.xlsx") 


не работает, может такое быть?
...
Рейтинг: 0 / 0
06.07.2018, 10:51
    #39670535
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
организация msgbox
Может быть вы уже освоите хоть какие-нибудь способы отладки приложения?
Например
Код: vbnet
1.
MsgBox App.Path & "D:\Мои документы\Desktop\Рабочие файлы\мини кридит.xlsx"



asseiне работаетА еще может быть будете читать сообщение об ошибке? Там же все написано
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / организация msgbox / 23 сообщений из 23, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]