Добрый день столкнулся с такой проблемкой
в глобально объявлена перемена типа книга
она заполняется когда пользователю нужно открыть книгу, (он может несколько раз её воспользоваться)
книга закрывается , но переменная весит
т.е. при If Not Файл Is Nothing Then Файл.Close True она закрывается, но если повторно запустить то Not Файл Is Nothing , а закрывать нечего и ошибка выскакивает
конечно можно ввести доп болан переименую но не хотелось бы, я вышел из ситуации включив игнор ошибок но это как то не правильно
Код |
---|
Public Файл As Workbook
Private Sub кЗагрузить_Click()
Dim АдресФайла As String, ф
'On Error Resume Next
If Not Файл Is Nothing Then Файл.Close True
АдресФайла = Application.GetOpenFilename( _
FileFilter:="Excel Files (*.xls*), *.xls*", _
Title:="Select a file or files", _
MultiSelect:=False)
'On Error Resume Next
If АдресФайла = "False" Then MsgBox "Неправильно выбран файл": Exit Sub |