Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
не запускается Application.OnTime, Не запускается при открытии книги Application.OnTime
 
Добрый день, всю голову сломал по какой причине не запускается макрос, причём в другом модуле по такому же принципу всё прекрасно работает.Рабочий пример:
Код
Sub RunOnTime()
    Application.OnTime TimeValue("12:05:30"), "Розница_склады"
    Application.OnTime TimeValue("15:05:30"), "Розница_склады"
    Application.OnTime TimeValue("18:05:30"), "Розница_склады"
End Sub
Sub Розница_склады()
    Application.ScreenUpdating = False
    Workbooks.Open Filename:="C:\для Excel из 1С\Остатки розн. магазины (XLS).xls"
    Rows("1").Delete
    Cells(1, 1) = "Номенклатура"
    Cells(1, 2) = "Л-30"
    Cells(1, 3) = "С-63"
    Cells(1, 4) = "Дан-8/25"
    ActiveSheet.ListObjects.Add(xlSrcRange, Cells(1, 1).CurrentRegion, , xlYes).Name = _
        "Таблица1"
    ActiveSheet.ListObjects("Таблица1").TableStyle = "TableStyleMedium13"
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\Ирина\YandexDisk\ххххххххххххххххххххххх.xls", FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
        ActiveWindow.Close
    Application.ScreenUpdating = True
End Sub
И тот который не срабатывает при открытии книги:
Код
Sub Остатки_магазинов()
Dim r As Date
r = Format(Now(), "dd mmmm yyyy")
    Application.ScreenUpdating = False
    Workbooks.Open Filename:="C:\для Excel из 1С\Остатки_магазинов (XLS).xls"
    Rows("1").Insert
    Cells(1, 2).Value = r
    Rows("6:6").Select
    ActiveWindow.FreezePanes = True
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\Ирина\YandexDisk\Остатки магазинов\Остатки_магазинов.xls", FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
        ActiveWindow.Close
    Application.ScreenUpdating = True
End Sub
Sub Запуск()
Application.OnTime TimeValue("11:30:00"), "Остатки_магазинов"
End Sub
 
наверное наждо  запустить что-то при открытии книги в которой все эти макросы
Код
Private Sub Workbook_Open()
    Запуск
End Sub

Посмотрите в книге, где все работает, в модуле книги наверняка есть что-то подобное. только с RunOnTime вместо Запуск
 
БМВ, Вы совершенно правы. Мой косяк, не обратил внимание на момент открытия книги, там всё это и есть. Спасибо. Порой такая ерунда забивает головы, что перестаёшь искать простые решения. Спасибо ещё раз.
Страницы: 1
Читают тему (гостей: 1)
Наверх