ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вывести счетчик времени обновления worksheet
4 сообщений из 4, страница 1 из 1
Вывести счетчик времени обновления worksheet
    #35058602
Елеонора
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Елеонора
Гость
здравствуйте коллеги,
Очень нужна помощь как можно скорее. В Excel показываются данные из внешнего источника, при нажатии кнопки Refresh посылается запрос на внешний сервер. Мне нужно в момемнт нажатия на кнопку показать где-нибудь часы установленные в 0:0, во время выполнения refresh часы увеличивают время, и в момент окончания команды показывают время, которое команда заняла.
В принципе, если это сложно то процесс увеличения времени можно опустить и показать только результирующее время в конце.
Если можно дайте подробное об'яснение с кодом макро, уже почти нет времени разбираться и делать самой.
Спасибо.
...
Рейтинг: 0 / 0
13.01.2008, 22:30:11
| Ответить | Цитировать | Написать  
Вывести счетчик времени обновления worksheet
    #35058961
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Подробно не буду, а по алгоритму можно так ( без текущего времени)
Код: 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:31
| Ответить | Цитировать | Написать  
Вывести счетчик времени обновления worksheet
    #35058963
@Nik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
@Nik
Гость
Если точность до 1 с устроит, то можно сделать так:
TimeStart=Time
Query.Refresh
Dellay = Time-TimeStart
...
Рейтинг: 0 / 0
14.01.2008, 10:03:49
| Ответить | Цитировать | Написать  
Вывести счетчик времени обновления worksheet
    #35059034
@Nik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
@Nik
Гость
А вот с точностью до 0,01с :
TimeStart=Timer
Query.Refresh
Dellay = Timer-TimeStart
...
Рейтинг: 0 / 0
14.01.2008, 10:31:56
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вывести счетчик времени обновления worksheet
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/search_topic.php?author=potapov&author_mode=last_posts&do_search=1]:
 0ms
get settings:
 7ms
get forum list:
 8ms
get settings:
 5ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 36ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 26ms
get tp. blocked users:
 1ms
others: 641ms
total:  745ms
созд. / загр.: 745ms
x
x
Закрыть


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