0

Есть функция, которая открывает по очереди все файлы в заданной папке, обновляет данные, сохраняет и закрывает. Файл действительно открывается и сохраняется, а вот обновиться данные, по всей видимости, не успевают, т.к. файл закрывается. Как решение видится проверка закончилось ли обновление данных. Но как это реализовать? Возможно есть другое решение.

Sub Obnovlenie_Sokhranenie_failov_v_papke()
Dim s As String, fldr As String, j As Integer, f As Integer
Dim rc As Range
fldr = "d:\"
s = Dir(fldr & "*.xls*")
j = 0
f = 0
Application.ScreenUpdating = False

'podschyot kolichestva failov v papke
Do While s <> ""
    s = Dir
    f = f + 1
Loop

'obrabotka failov v papke
s = Dir(fldr & "*.xls*")
Do While s <> ""
    With Workbooks.Open(fldr & s)
        'deistviia s knigoi
        .RefreshAll
        .Save
        .Close (True)
    End With
    s = Dir
    j = j + 1
    Application.StatusBar = "Obrabotano: " & j & " iz " & f & " failov" & " -> " & s: DoEvents
Loop

    Application.ScreenUpdating = True
    ActiveWorkbook.RefreshAll
    Application.StatusBar = "Obrabotano: " & j & " èç " & f & " failov"

    End Sub

1 ответ 1

0

В VBA нет распараллеливания вычислений - пока выполняется код, другие действия выполнить нельзя (если это не разрешено в коде). В случае с обновлением связей - по логике: пока обновление не закончено, макрос дальше не работает. Возможно, не успевают пересчитаться формулы или во внутренней кухне не все на место поставлено...

Советы на уровне догадок.

Попробуйте поработать с задержкой сохранения и закрытия книги:

    .RefreshAll
    Application.Wait Time:=Now + TimeValue("0:00:04") ' задержка'
    .Save:.Close

Если не помогло, попробовать использовать (ну очень уж нелепая догадка) прерывания (передачу управления)

.RefreshAll
DoEvents

Да, непонятно, какие связи в книге... Вместо (или вместе с) .RefreshAll обновить все связи

.UpdateLink Name:=.LinkSources, Type:=xlExcelLinks

Больше мыслей по этому поводу нет.

Дополните код отключением/включением Application.DisplayAlerts - от Excel не будет лишних вопросов.

9
  • Все равно и даже с большими (20-30 с) задержками обновление не происходит. Открывает, ждет, сохраняет, но не обновляет. 16 окт 2018 в 13:53
  • Еще дополнил ответ 16 окт 2018 в 18:48
  • Всё равно не помогает. 17 окт 2018 в 10:30
  • Попробую другим путем. Например открывать файлы, как и раньше, но запускать в каждом из них макрос. 17 окт 2018 в 10:31
  • В каждом файле в Module1 есть макрос UpdateFile. Как его запускать с помощью команды Application.Run ? 17 окт 2018 в 10:40

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.