powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как сделать в программе паузу...
7 сообщений из 7, страница 1 из 1
Как сделать в программе паузу...
    #33346213
vallot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А дело вот в чем:
есть код , который создает директорию и файлы, работает нормально!
Но за этим кодом следует другой код, который обрабатывает (уже
созданые первым кодом) файлы , переименовывает и кладет их в другую директорию! И тоже нормально работает, если проверять через "Debag",
но если через командную кнопку в Exele, то останавливается!
--------------------------------------------------------------------
Получается как бы так, что первый код отработал, начинает работать
второй код и сразу останавливается, потому что не находит директории ,
она(директория) еще не успела встать на место(это видно визуально)!
Как бы сделать паузу(1сек) между этими двумя кодами????
--------------------------------------------------------------------------

Кто сталкивлся с такой проблемой, подскажите как сию болячку лечить???
------------------------------------------------------------------------------
...
Рейтинг: 0 / 0
Как сделать в программе паузу...
    #33346226
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
vallotподскажите как сию болячку лечить???
Не разносить создание файлов и работу с ними по разным местам.
...
Рейтинг: 0 / 0
Как сделать в программе паузу...
    #33346237
vallot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
авторНе разносить создание файлов и работу с ними по разным местам.
Расширения у файлов разные, поэтому и не вместе!
-------------------------------------------------------------------------------
Ну, надо же, ничего подходящего не находил , а как только задал вопрос,
так как-будто специально подвернулся ответ, так что вопрос отменяется пока, завтра на работе проверю!
...
Рейтинг: 0 / 0
Как сделать в программе паузу...
    #33346338
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
vallot авторНе разносить создание файлов и работу с ними по разным местам.
Расширения у файлов разные, поэтому и не вместе!
это самое смешное объяснение за весь октябрь.
...
Рейтинг: 0 / 0
Как сделать в программе паузу...
    #33346532
vallot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Не, по моему это ответ смешной!
У меня один файл (.РРО), как рыба мечет икру - графические файлы(.ДФТ),
а потом, изменив, имена этих файлов(.ДФТ) опять надо запихать их в один файл (.ORD)! Причем файлы(.РРО) можно создать только в среде Металикса!!!
Вот отсюда и очередность действий!
Давай вместе посмеемся!
...
Рейтинг: 0 / 0
Как сделать в программе паузу...
    #33348576
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
И при чем здесь интересно Эксель?

Некая среда Металикс создает тебе *.PPO? Что ты потом хочешь с этим фалом сделать? Что это за файл вообще?
Ну хорошо, получил ты A.PPO, запускаешь какую-то программу-конвертор которая превращает A.PPO в A.DFT? Потом запускаешь вторую программу-конвертор которая A.DFT превратит в A.ORD? Я правильно понял что ты хочешь или нет? Если нет, скажи еще раз то же самое, но более понятным языком.

Чтобы решить эту задачу Эксель нафиг не нужен. Достаточно сделать один ppo2ord.bat файл вида:
--------
ppo2dft.exe %1.ppo
dft2ord.exe %1.dft
--------
И запускать его из командной строки:
ppo2ord.bat A
Все.
...
Рейтинг: 0 / 0
Как сделать в программе паузу...
    #33348722
vallot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А в Exelе я заполняю, ну скажем так - заказ! А дальше его
должен выполнить VBA от начала и до конца! И вот практически я дошел до
финиша , если бы ни эти всякие неясности. Ну, с паузой я уже решил,
пошел другим путем, код воткнул в другое место, как ты и намекал!
И в конце, когда я выхoжу из Металикса, он меня спрашивает-не хочу ли я
запомнить, то - чего наваял(модальное окно с тремя кнопками)?
Я говорю "Yes" и он (Металикс) открывает мне диологовое окно "Save As",
я нажимаю "Save" и все!
Но это в "Debag", а через командную кнопку в Exele не хочет нажимать кнопки
"Yes" и "Save"!????

Вот коды на окна:
=================
'
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
--------------------------------------------------------------
hwndCl = FindWindow(vbNullString, "AutoNest2004") 
hwndBtnYes = FindWindowEx(hwndCl, "Button", "Yes")
 SendMessage hwndCl , WM_ACTIVATE,  1 &,  0 
 SendMessage hwndBtnYes, BM_CLICK,  0 ,  0 
'--------------------------------------------------------------
hwndSvAs = FindWindow(vbNullString, "Save As") 
hwndBtnSv = FindWindowEx(hwndSvAs, "Button", "&Save")
 SendMessage hwndSvAs , WM_ACTIVATE,  1 &,  0 
 SendMessage hwndBtnSv, BM_CLICK,  0 ,  0 
End Sub
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как сделать в программе паузу...
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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