Добрый день. Пишу макрос Импорт из txt файла.
[vba]Код
Private Sub ИмпортКнопка_Click()
Application.ScreenUpdating = False ' выключает обновление экрана
Worksheets("Импорт").Select ' Активный лист "Импорт"
ОчистьЛист ' Запуск макроса из мудуля "На листе1 (Импорт)"
ИмпортИзTXT ' Запуск макроса из мудуля "На листе1 (Импорт)"
УмнаяТаблица ' Запуск Функции из мудуля "На листе1 (Импорт)"
РедактированиеУмной ' Запуск Функции из мудуля "На листе1 (Импорт)"
'МенятьЗначенияСтолбцов ' Запуск Функции из мудуля "На листе1 (Импорт)"
РазмерСтолбцов ' Запуск Функции из мудуля "На листе1 (Импорт)"
РазмерСтолбцов ' Запуск Функции из мудуля "На листе1 (Импорт)"
ОбводТаблицы ' Запуск Функции из мудуля "На листе1 (Импорт)"
Application.ScreenUpdating = True ' включает обратно обновление экрана
ActiveCell.Select 'Фокус ввода попадёт после этого на первую ячейку ранее выделенного диапазона.
End Sub
[/vba]
и создание на основе импортированного умной таблицы. При Импорте файла все работает. Открывает Окно выбора файла загружает и т.д.
Если отменить выбор файла соответственно выдает ошибку в функции УмнаяТаблица .
Как при отмене импорта файла отменить выполнения остальных процедур(функций)?