Прерывание макроса при нажании "Отмена" или ESC.

RSS

name.BVV

Пользователь

Сообщений: 20 Регистрация: 23.11.2016

03.05.2017 00:04:10

доброго дня.
есть макрос типа

Код

Sub START()
 
Application.Run "TEST.xlsm!ShowGetOpenDialod"
Cancel = True
 
' вот тут надо что б SUB START прекращал свою работу.
 
    MsgBox "какой-то следующий макрос"
 
End Sub
 
Private Sub ShowGetOpenDialod()
    Dim avFiles
      avFiles = Application.GetOpenFilename _
                ("Excel files(*.xls*),*.xls*", 1, "??????? Excel ?????", , False)
    If VarType(avFiles) = vbBoolean Then
        Exit Sub
    End If
    Application.Workbooks.Open avFiles
End Sub

при выполнении "ShowGetOpenDialod" предлагается выбать файл для открытия.

как сделать что б при нажатии "Отмена" при выборе файла или ESC работа START прекращалась (сейчас при отмене окно закрывается и макрос выполняет послеющующе команды.
спасибо

Прикрепленные файлы

TEST.xlsm (17.03 КБ)

Игорь

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

03.05.2017 01:43:31

Вот так попробуйте:

Код

Sub START()
    Dim res As Boolean
    res = Application.Run("TEST.xlsm!ShowGetOpenDialod")
 
    ' вот тут надо чтоб SUB START прекращал свою работу.
    If Not res Then Exit Sub    ' выход, если в том макросе отмену нажали
 
    MsgBox "какой-то следующий макрос"
End Sub
 
Function ShowGetOpenDialod() As Boolean
    Dim avFiles
    avFiles = Application.GetOpenFilename("Excel files(*.xls*),*.xls*", 1, "Файлы Excel", , False)
    If VarType(avFiles) = vbBoolean Then Exit Function
 
    ShowGetOpenDialod = True    ' возвращаем TRUE, если макрос продолжил выполнение
    Application.Workbooks.Open avFiles
End Function

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Читают тему