Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вопрос про начало выполнения макроса / 5 сообщений из 5, страница 1 из 1
01.12.2003, 12:41
    #32339265
super
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос про начало выполнения макроса
C помощью макроса в Excell выполняю сохраненную процедуру:

sqlstring = "exec pavlov "

connstring = Sheets("Основной").Range("b2")

With ActiveSheet.QueryTables.Add(Connection:=connstring, _
Destination:=Range("a10"), Sql:=sqlstring)
.Refresh
End With
Application.CutCopyMode = False

затем нужно выполнить другой макрос. Подскажите, что нужно добавить в код, чтобы следующий макрос начал выполняться только после того как отработает процедура и результат вставиться в лист Excell.
...
Рейтинг: 0 / 0
01.12.2003, 14:43
    #32339492
Processor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос про начало выполнения макроса
AfterRefresh Event

Occurs after a query is completed or canceled.

Syntax

Private Sub QueryTable_AfterRefresh(Success As Boolean)

Success True if the query was completed successfully.
...
Рейтинг: 0 / 0
03.12.2003, 15:28
    #32342196
Volodya
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос про начало выполнения макроса
to Processor

Не получается прикрутить это событие к моему макросу, не мог бы ты обяснить применительно к моему случаю.
...
Рейтинг: 0 / 0
03.12.2003, 16:07
    #32342272
Processor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос про начало выполнения макроса
1. Объяви статическую переменную типа RefreshIsFinished as ...
2. В QueryTable_AfterRefresh проанализируй Success и установи RefreshIsFinished в ненулевое, но значимое для тебя состояние.
3. Перед "затем нужно выполнить другой макрос" поставь:
Код: plaintext
1.
2.
3.
4.
DoEvents
While RefreshIsFinished= 0 
DoEvents
Wend

4. "Перед тем, как бить по воротам, сядь и подумай, а в те ли ворота ты бьёшь?!!!"
(М.Жванецкий, 1966 г.)
...
Рейтинг: 0 / 0
04.12.2003, 12:33
    #32343252
Processor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос про начало выполнения макроса
Не получается прикрутить это событие к моему макросу
Если загвоздка именно в этом, создай свой класс, членом которого является
Код: plaintext
Private WithEvents myQueryTables As QueryTables  
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вопрос про начало выполнения макроса / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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