E
Erlan
Всем добрый день!
Прошу помочь разобраться с ошибкой.
Скрипт пробегается по документам и по выбранным критериям (ищутся документы в определенном периоде) идет выгрузка данных в Excel.
Раньше скрипт работал, а теперь при переборе документов выходит ошибка entry is no longer in view и лотус полностью закрывается.
весь скрипт не вставляю так как он очень длинный.
смысл скрипта такой
Прошу помочь разобраться с ошибкой.
Скрипт пробегается по документам и по выбранным критериям (ищутся документы в определенном периоде) идет выгрузка данных в Excel.
Раньше скрипт работал, а теперь при переборе документов выходит ошибка entry is no longer in view и лотус полностью закрывается.
весь скрипт не вставляю так как он очень длинный.
смысл скрипта такой
Код:
'выше перебираются Имена_категории и циклом подставляются в CreateViewNavFromCategory("Имя_категории")
Set nav =view.CreateViewNavFromCategory("Имя_категории")
If nav Is Nothing Then Goto nexti
Set entry = nav.GetFirstDocument
If Not entry Is Nothing Then
While Not(entry Is Nothing)
Set doc_a= entry.Document
'далее работа с полученным документом, вставляются определенные значения в Excel
Set entry = nav.Getnextdocument(entry) ' переход на след.документ
Wend
End If
nexti: Call CloseExcelDoc
Msgbox {Нет документов, удовлетворяющие Ваши условия.Попробуйте еще раз задать период.}, 64,{Стоп!}
Exit Function
End If