Добрый день, всю голову сломал по какой причине не запускается макрос, причём в другом модуле по такому же принципу всё прекрасно работает.Рабочий пример:
Код |
---|
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
|