Как сделать временной цикл с задержкой 0,1 сек?

[clever77]

Сообщение от IgorGO

Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)


Sub PauseExample()
Dim t As Single
t = Timer
Sleep 100
MsgBox Timer - t
End Sub

Спасибо теперь понятно
А то я по не грамотности
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

непосредственно в текст программы Sub////End sub вписывал

Одной проблемой меньше.

[clever77]

Нашел автозапуск макроса другим макросом
И вся программа будет примерно выглядеть так
Если время 10:00, то управление передается в save_1, а если 19:00, то обратнов Auto_Open


Остались 2 вопроса:
1. Что нужно что бы включился 1 макрос Auto_Open? Надо открыть Excel, эту книгу (файл) и запустить 1 макрос в ручную, а он в опр время запустит второй или что то изменить в настройках самого Excel
Ведь пока файл не открыт, то и макрос не активен.....
Можно ли сделать что бы макрос запускался автоматически при открытии книги? Дело в том что прога которая пересылает данные в EXCEL сама открывает нужный файл, а это и есть 1 момент поступления данных......
2.Как организовать остановку программы в ручную, ну к примеру день предпраздничный короткий, а прога еще час работать будет, привязано ко времени....
К примеру ввести переменную L в тело цикла по умолчанию равно 1, а если нажать одновременно 1+2+3 изм на ноль (как это сделать?). А в цикле проверку 1 работаем, 0 выход. И как при необходимости возобновить запись данных, если нажатие было к примеру случайным, не с начальной позиции, а с того места где закончили..... Пусть и с потерей тех данных пока программа не активна


Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

sub Auto_Open()
Application.OnTime TimeValue("10:00:00"),"save_1"
End sub

Sub save_1()
...................................
3: For j = 1 To 21
............................
10: If Application.Now= TimeValue("19:00:00") Then GoTo 1
..........................
sleep 100
GoTo 3

1: Range("A25") = Time
Range("A32") = Range("A25").Value
End Sub

[IgorGO]

1. поместить его в программный модуль

sub Auto_Open()
If Now > Date + 10 / 24 Then
save_1
Else
Application.OnTime Date + 10/24, "save_1"
end if
End sub

[EducatedFool]

Здесь есть код для запуска макроса через заданное количество миллисекунд:

10. Использование Application.OnTime с задержкой меньше секунды

Sub ЗапускМакросаСНебольшойЗадержкой() ' по мотивам макроса ZVI_Timer
    ЗадержкаВСекундах = 0.3    ' в секундах
    НазваниеМакроса$ = "test"    ' этот макрос будет запущен через 0.3 сек.
    ЗадержкаВЧасах$ = Replace(Format(CDbl(TimeSerial(0, 0, 1)) * ЗадержкаВСекундах, "0.000000000"), ",", ".")
    macro = "ON.TIME(NOW()+" & ЗадержкаВЧасах$ & ", """ & НазваниеМакроса$ & """)" ' формируем команду запуска
    ExecuteExcel4Macro macro ' macro = ON.TIME(NOW()+0.000003472, "test")
End Sub

[clever77]

Путем проб и ошибок решил задачку
Одним Sleep ее решить не получилось, т.к Excel замирает на время задержки и не реагирует на внешние запросы....
Пришлось организовать цикл в связке:
DoEvents
Sleep

Если после запуска макроса Excel не трогать все работает.... В остальном тестирую.

[Vegas_Real]

В 64-битных системах и соответственно в версиях приложений для этих систем (написано 64-битная версия)
Данную функцию надо объявить так:
Private Declare PtrSafe Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

В противном случае Excel выдает ошибку