Таймер запуска программы

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Таймер запуска программы (Макросы/Sub)

A_3485

Дата: Понедельник, 15.09.2014, 14:00 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 146

Репутация: 0 ±

Замечаний: 40% ±

2007

Уважаемы формучане добрый день!
Помогите пожалуйста разобраться с работой функции: Application.OnTime
Я хочу чтобы функция автоматически запускалсь в определенное время. Для этого, в номвом модуле я вставляю код:
[vba]

Код

Application.OnTime TimeValue("12:30:00"), "Папка"

[/vba]
Я предполагал, что в 12:30 произойдет автоматический запуск функции и выполнится Sub Папка (), в которой выполняется определенный код. Но ничего не происход........ и как проверить работу кода я не знаю.

Сообщение отредактировал A_3485 - Понедельник, 15.09.2014, 14:01

Ответить

AndreTM

Дата: Понедельник, 15.09.2014, 14:44 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1762

Репутация: 501 ±

Замечаний: 0% ±

2003 & 2010

Как бы время у вас - где-то 14:15, а 12:30 сегодняшнего дня уже прошли, чего же вы ожидаете тогда от кода?

Skype: andre.tm.007
Donate: Qiwi: 9517375010

Ответить

A_3485

Дата: Понедельник, 15.09.2014, 15:11 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 146

Репутация: 0 ±

Замечаний: 40% ±

2007

Т.е. сам запуск программы не может быть выполнен по коду выше?
Я думал, что будет достаточно открытой книги Exel. Может нужно эту строчку написать в код, который должен выполняться при открытии книги......
Можно более подробнее описать как сработал этот код.

[moder]можно увидеть файл/ы, где это реализовывается?[/moder]

Ответить

A_3485

Дата: Понедельник, 15.09.2014, 15:50 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 146

Репутация: 0 ±

Замечаний: 40% ±

2007

Попытался сохранить книгу, пишет ошибку. Значит что-то я не так делаю.

К сообщению приложен файл: 3352420.xls (38.0 Kb)

Ответить

Саня

Дата: Понедельник, 15.09.2014, 16:28 | Сообщение № 5

Группа: Друзья

Ранг: Ветеран

Сообщений: 1068

Репутация: 560 ±

Замечаний: 0% ±

XL 2016

при запуске процедуры m будет запланирован запуск процедуры "Папка"

[vba]

Код

Sub m()
Application.OnTime Date + TimeValue("16:25:00"), "Папка"
End Sub

Sub Папка()
MsgBox "Таймер работает!", vbInformation, Now
End Sub

[/vba]

Ответить

A_3485

Дата: Понедельник, 15.09.2014, 16:58 | Сообщение № 6

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 146

Репутация: 0 ±

Замечаний: 40% ±

2007

У меня была откыта книга, но ничего не произошло:

[vba]

Код

Private Sub Workbook_Open()

Application.OnTime Date + TimeValue("15:56:00"), "Папка"
End Sub

Sub Папка()
MsgBox "Òàéìåð ðàáîòàåò!", vbInformation, Now
End Sub

[/vba]

..может у меня отключена какая-нибудь библиотека?

[moder]Workbook_Open - эта процедура д.б. в модуле "ЭтаКНига"[/moder]

Сообщение отредактировал A_3485 - Понедельник, 15.09.2014, 16:59

Ответить

A_3485

Дата: Понедельник, 15.09.2014, 17:07 | Сообщение № 7

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 146

Репутация: 0 ±

Замечаний: 40% ±

2007

У меня так и есть.

Ответить

The_Prist

Дата: Понедельник, 15.09.2014, 18:06 | Сообщение № 8

Группа: Друзья

Ранг: Участник

Сообщений: 85

Репутация: 22 ±

Замечаний: 0% ±

2010

1. Процедура "Папка" должна иметь в точности такое же название(до каждого символа) и должна быть расположена в стандартном модуле.
2. Сама строка Application.OnTime должна быть внутри процедуры, а не за её пределами. Сравните коды, предложенные выше. Нигде нет такого как у Вас в приложенном файле.
3. Время и дата для запуска обязательно должны быть больше, чем текущие дата и время. Иначе ничего не сработает.
4. Если все верно сделали - попробуйте такой код:
[vba]

Код

Sub RunMyCode()
Application.OnTime Now+ TimeValue("00:00:05"), "Папка"
End Sub
Sub Папка()
MsgBox "Таймер работает!", vbInformation
End Sub

[/vba]

Код должен будет запуститься через 5 секунд. Советую прямо скопировать код, который я выложил. Полностью. Заменив свои коды.

Errare humanum est, stultum est in errore perseverare

Сообщение отредактировал The_Prist - Понедельник, 15.09.2014, 18:11

Ответить

A_3485

Дата: Понедельник, 15.09.2014, 18:22 | Сообщение № 9

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 146

Репутация: 0 ±

Замечаний: 40% ±

2007

Этот код отработал. Секундомер на 1с. сработал, после того как я открыл книгу. Мне нужно чтобы макрос отработал в нужное мне время.
Например в 08:00:00 я открыл книгу, а сработал макрос в 14:30:00 автоматически.

Ответить

A_3485

Дата: Понедельник, 15.09.2014, 18:26 | Сообщение № 10

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 146

Репутация: 0 ±

Замечаний: 40% ±

2007

Всем спасибо за участие. Получилось.
The_Prist - отдельное спасибо.

Ответить

Таймер запуска программы (Макросы/Sub)

Страница 1 из 1
1