Добрый день столкнулся с такой проблемкой
в глобально объявлена перемена типа книга
она заполняется когда пользователю нужно открыть книгу, (он может несколько раз её воспользоваться)
книга закрывается , но переменная весит
т.е. при If Not Файл Is Nothing Then Файл.Close True она закрывается, но если повторно запустить то Not Файл Is Nothing , а закрывать нечего и ошибка выскакивает
конечно можно ввести доп болан переименую но не хотелось бы, я вышел из ситуации включив игнор ошибок но это как то не правильно
в глобально объявлена перемена типа книга
она заполняется когда пользователю нужно открыть книгу, (он может несколько раз её воспользоваться)
книга закрывается , но переменная весит
т.е. при 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 |
у меня простая версия Экселя, в ней нет кнопки "Прочитать мысли и сгенерировать файл пример"