У меня есть код макроса, который разбивает файлы XPS, и он отлично работает, если вы ждете, пока Windows или SAP закончат писать файл.
Мне нужен какой-то метод, чтобы узнать, можно ли открыть файл или он все еще используется в Windows / SAP.
Вы печатаете из SAP и печатаете как документ XPS.
Переключитесь на мой документ Excel, чтобы разделить файл на части, в процессе разделения мне нужно переименовать файл в zip-файл и распаковать его, и именно здесь происходит ошибка.
a = 1
On Error GoTo tryagain:
tryagain:
a = a + 1
If a = 10 Then Exit Sub
DoEvents
' rename from example 1.oxps -> 1.zip
Name pth & Fname As pth & Left(Fname, InStr(Fname, ".") - 1) & ".zip"
On Error GoTo 0
Теоретически приведенный выше фрагмент должен циклически повторяться 10 раз (или 9, или что бы то ни было ... это не важно в данный момент) и пытаться переименовать файл, и, если он выходит из строя каждый раз, выходить из подпрограммы.
В действительности я получаю сообщение об ошибке в строке Name
с ошибкой 75, когда a = 3
.
Это означает, что он однажды прошел петлю за линией Name
и потерпел неудачу, вернулся к tryagain:
, а затем потерпел неудачу, но допустил ошибку.
Работает ли coed On Error GoTo 0
при первом сбое? Это единственная причина, по которой я вижу это поведение.
Какие у меня есть варианты? Как я могу убедиться, что мой код ждет, пока файл не может быть переименован и продолжает работать?