ReSQL.ru
     
powered by simpleCommunicator - 2.0.36     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / организация msgbox
23 сообщений из 23, страница 1 из 1
организация msgbox
    #39670008
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Ребята здравствуйте! что то у меня не получается обработка кода после 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:23
| Ответить | Цитировать | Написать  
организация msgbox
    #39670031
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
asseiне получается обработка кода после msgboxпоясните, не вижу никакой обработки, дальше Exit Sub
...
Рейтинг: 0 / 0
05.07.2018, 13:53
| Ответить | Цитировать | Написать  
организация msgbox
    #39670036
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
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:03
| Ответить | Цитировать | Написать  
организация msgbox
    #39670039
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Shocker.Pro, может что то не так понял! после Exit Sub не должно ни чего происходить
...
Рейтинг: 0 / 0
05.07.2018, 14:07
| Ответить | Цитировать | Написать  
организация msgbox
    #39670040
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Я в ваших сообщения не вижу вопроса. Проблема в чем?
Вы пишете "не получается обработка кода", что вы хотите обработать? Какой код? Что ожидаете? Ну хоть какие-то зацепки дайте, чтобы угадать, что вам требуется
...
Рейтинг: 0 / 0
05.07.2018, 14:07
| Ответить | Цитировать | Написать  
организация msgbox
    #39670041
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
asseiпосле Exit Sub не должно ни чего происходитьНичего и не будет происходить (при условии, что код вызывается по нажатию кнопки, а не с помощью прямого вызова pop4_Click)
...
Рейтинг: 0 / 0
05.07.2018, 14:08
| Ответить | Цитировать | Написать  
организация msgbox
    #39670043
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Shocker.Pro, пример приложил, загвоздка в том, что при нажатии на кнопку открывается книга xl. НО если она открыта, то выдает сообщение, если ЗАКРЫТА то нет сообщений а происходит открытие файла
...
Рейтинг: 0 / 0
05.07.2018, 14:15
| Ответить | Цитировать | Написать  
организация msgbox
    #39670044
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
А на какой код смотреть-то в итоге? Тот, который вы на форуме опубликовали, или тот, который приложили? Они отличаются
...
Рейтинг: 0 / 0
05.07.2018, 14:21
| Ответить | Цитировать | Написать  
организация msgbox
    #39670047
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Shocker.Pro, тот что приложил , в первом варианте хотел сократить его для простоты
...
Рейтинг: 0 / 0
05.07.2018, 14:28
| Ответить | Цитировать | Написать  
организация msgbox
    #39670050
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
в приложенном варианте до Call open_xl дело не дойдет никогда, потому что ранее стоит Exit Sub
...
Рейтинг: 0 / 0
05.07.2018, 14:30
| Ответить | Цитировать | Написать  
организация msgbox
    #39670058
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Shocker.Proв приложенном варианте до Call open_xl дело не дойдет никогда, потому что ранее стоит Exit Subто есть этого asseiпри нажатии на кнопку открывается книга xl.быть не может, вы что-то перепутали, возможно код, на котором пробуете и код, который выложили, все-таки разные
...
Рейтинг: 0 / 0
05.07.2018, 14:37
| Ответить | Цитировать | Написать  
организация msgbox
    #39670059
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Shocker.Pro, так при нажатии кнопки ОТМЕНА и требуется не производить ни каких действий.
СООБЩЕНИЕ! - появляется когда файл открыт, А оно появляется всегда
...
Рейтинг: 0 / 0
05.07.2018, 14:38
| Ответить | Цитировать | Написать  
организация msgbox
    #39670064
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Shocker.Pro, будем брать за основу тот который во вложении
...
Рейтинг: 0 / 0
05.07.2018, 14:41
| Ответить | Цитировать | Написать  
организация msgbox
    #39670077
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
asseiпоявляется когда файл открыт,asseiоно появляется всегдавы не находите, что написали две взаимоисключающих фразы?

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

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

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

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



asseiне работаетА еще может быть будете читать сообщение об ошибке? Там же все написано
...
Рейтинг: 0 / 0
06.07.2018, 10:51
| Ответить | Цитировать | Написать  
23 сообщений из 23, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / организация msgbox
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=39670485&tid=2155038]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 97ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 1ms
others: 12ms
total:  202ms
созд. / загр.: 202ms
x
x
Закрыть


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