Добрый день. Прошу мне объяснить, почему так происходит:
есть макрос, который открывает файл, обновляет его и сверяет дату по которую обновились данные из этого файла с текущей датой.
если прогоняю макрос пошагово, все получается.
но, если запускаю полностью, процесс обновления вроде как происходит (в строке состояния), но сначала выдается мой MsgBox что "данные еще не обновились", а потом уже появляется обновленная дата в ячейке I1.
Файл приложить не могу, т.к. обновление внешнее.
Буду оч благодарна за помощь.
есть макрос, который открывает файл, обновляет его и сверяет дату по которую обновились данные из этого файла с текущей датой.
если прогоняю макрос пошагово, все получается.
но, если запускаю полностью, процесс обновления вроде как происходит (в строке состояния), но сначала выдается мой MsgBox что "данные еще не обновились", а потом уже появляется обновленная дата в ячейке I1.
Файл приложить не могу, т.к. обновление внешнее.
Буду оч благодарна за помощь.
Код |
---|
Sub SalesLinkFile() 'откроем файл-источник и сравним в нем последнюю дату обновления с текущей датой: Dim wbMSSQL As Workbook Set wbMSSQL = Workbooks.Open(Filename:="\\nas\bosco_sport$\ВЫРУЧКА\MS SQL ВыручкаПоДням.xlsx") wbMSSQL.RefreshAll 'MyDate - последняя дата обновления базы sql Dim MyDate As Date MyDate = wbMSSQL.Worksheets("pivot").Range("I1").Value If MyDate < (Date - 1) Then MsgBox "Данные еще не обновились по вчерашний день. Подождите. Обновление, как правило, происходит в 10:30", _ vbInformation Exit Sub End If ... End Sub |