Добрый день!
Задача: автоматом рефрешить данные из OLE DB источника при открытии эксель файла и после рефреша закрывать файл с сохранением.
У меня получается только обновлять данные при открытии, но файл он не закрывает. Подскажите пожалуйста в чем моя ошибка и что не так?
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Sub auto_open()
Call DataRefresh
End Sub
Sub DataRefresh()
TimeToRun = Now
Application.OnTime TimeToRun, "Refresh"
End Sub
Sub Refresh()
ActiveWorkbook.Connections("Shas").Refresh
End Sub
Sub auto_close()
Application.OnTime TimeToRun, "Refresh", , True
Application.Quit
ThisWoorkbook.Close SaveChanges:=True
End Sub
Учимся использовать тэги оформления кода -
FAQ
