ник: час
Может быть....
Я всё нафиг закрываю - жду....
xl.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xl = Nothing
' Удалить загруженый файл
If Me!DEL_FILE = True Then ' Проверка галочки удаления файла
DTime = Time()
Do Until Second(Time() - DTime) > 2
Loop
Call FUN_DELETE_FILE_NAME(GLB_PATH_TXT)
Else
' переименовать файл
DTime = Time()
Do Until Second(Time() - DTime) > 1
Loop
Call FUN_FILE_RENAME(GLB_PATH_TXT)
End If
|