Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вывести счетчик времени обновления worksheet / 4 сообщений из 4, страница 1 из 1
13.01.2008, 22:30:11
    #35058602
Елеонора
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вывести счетчик времени обновления worksheet
здравствуйте коллеги,
Очень нужна помощь как можно скорее. В Excel показываются данные из внешнего источника, при нажатии кнопки Refresh посылается запрос на внешний сервер. Мне нужно в момемнт нажатия на кнопку показать где-нибудь часы установленные в 0:0, во время выполнения refresh часы увеличивают время, и в момент окончания команды показывают время, которое команда заняла.
В принципе, если это сложно то процесс увеличения времени можно опустить и показать только результирующее время в конце.
Если можно дайте подробное об'яснение с кодом макро, уже почти нет времени разбираться и делать самой.
Спасибо.
...
Рейтинг: 0 / 0
14.01.2008, 10:03:31
    #35058961
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вывести счетчик времени обновления worksheet
Подробно не буду, а по алгоритму можно так ( без текущего времени)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Private Declare Function GetTickCount _
     Lib "kernel32" () As Long
Private sub MyRefresh()
   Dim S as long
   S=GetTickCount
   ' ваше refresh
   msgbox "Время работы — " & GetTickCount-S " мс"
End Sub
...
Рейтинг: 0 / 0
14.01.2008, 10:03:49
    #35058963
@Nik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вывести счетчик времени обновления worksheet
Если точность до 1 с устроит, то можно сделать так:
TimeStart=Time
Query.Refresh
Dellay = Time-TimeStart
...
Рейтинг: 0 / 0
14.01.2008, 10:31:56
    #35059034
@Nik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вывести счетчик времени обновления worksheet
А вот с точностью до 0,01с :
TimeStart=Timer
Query.Refresh
Dellay = Timer-TimeStart
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вывести счетчик времени обновления worksheet / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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