Прерывание макроса при нажании "Отмена" или 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 КБ)

Игорь

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

Сообщений: 3697 Регистрация: 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 Парсинг сайтов Мониторинг цен конкурентов

Читают тему