запуск макроса по дате и времени....

СновымГодом! Гость	#1 30.12.2011 15:17:42 Добрый день! Каждый день выгружаю макросом данные.. завтра нужно выгрузить, а на работу идти не охота... Какой код добавить в макрос чтобы он ждал да 31/12/11 до 12,00 ??? С наступающим!!!

Duracell Гость	#2 30.12.2011 15:26:01 application.Ontime (смотрите справку) Но кто-то должен будет включить компьютер и открыть файл с макросом

Hugo

Пользователь

Сообщений: 26418 Регистрация: 22.12.2012

30.12.2011 15:42:46

Я думаю, удобнее в планировщик забить выполнение такого *.vbs:

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShellApp = CreateObject("Shell.Application")
ExcelPath = objFSO.GetParentFolderName(WScript.ScriptFullName)
Set objExcel = CreateObject("Excel.Application"): Set wb = objExcel.Workbooks.Open (ExcelPath & "\CompareFiles.Find.xls")
objExcel.Visible = True
objExcel.Application.OnTime Now, "CompareFiles"
Set objExcel = Nothing

Естественно, название файла и макроса измените на свои, vbs должен быть в папке с файлом (ну или укажите явно полный путь к файлу).
Разрешать макросы не требуется :)
Но будет открыть только этот файл без всяких Персоналов и надстроек!

Guest Гость	#4 30.12.2011 15:44:13 Задача проще... оставляю рабочий файл с запущеным макросом который будет выполнен после 31/12/11 12:00

Guest Гость	#5 30.12.2011 15:45:05 {quote}{login=}{date=30.12.2011 03:44}{thema=}{post}Задача проще... оставляю рабочий файл с запущеным макросом который будет выполнен после 31/12/11 12:00{/post}{/quote} может в код добавить паузу?

lapink2000 Пользователь Сообщений: 2186 Регистрация: 01.01.2013	#6 30.12.2011 15:49:44 А что Remote Desktop уже отменили. Выгрузка данных наверное какого-никакого контроля требует :) KL

Guest Гость	#7 30.12.2011 15:51:09 RDP из домашней в корпоратиную сеть я не имею доступа...

lapink2000 Пользователь Сообщений: 2186 Регистрация: 01.01.2013	#8 30.12.2011 15:53:43 {quote}{login=}{date=30.12.2011 03:51}{thema=}{post}RDP из домашней в корпоратиную сеть я не имею доступа...{/post}{/quote} А спать(пить) спокойно сможете, не зная сработало или нет? :) KL

Guest Гость	#9 30.12.2011 15:56:57 Смогу...

Guest Гость	#10 30.12.2011 16:27:35 Смог.. Sub RunOnTime() Application.OnTime Now + TimeValue("68:00:05"), "zapusk_All" End Sub зарядил ещё и на 2 января..

Guest Гость	#11 30.12.2011 16:31:17 {quote}{login=}{date=30.12.2011 04:27}{thema=}{post}Смог.. Sub RunOnTime() Application.OnTime Now + TimeValue("68:00:05"), "zapusk_All" End Sub зарядил ещё и на 2 января..{/post}{/quote} на 68 ругается Sub RunOnTime() Application.StatusBar = "ожидание RuтOnTime1" Application.OnTime Now + TimeValue("20:00:05"), "RuOnTime1" End Sub Sub RunOnTime1() Application.StatusBar = "ожидание RuтOnTime2" Application.OnTime Now + TimeValue("24:00:05"), "RuOnTime2" End Sub Sub RunOnTime2() Application.StatusBar = "ожидание zapusk_All" Application.OnTime Now + TimeValue("24:00:05"), "zapusk_All" End Sub

Читают тему