Как разрешить отменить, чтобы быть выбран в файл Windows, диалоговое окно грациозно

Question

Привет всем (экспертов и тех, кто умнее меня),

Я бегу на вопрос где, когда я ударил отменить для открытия файла окон Диалог, он отлаживает эту строку. Что я хочу сделать, я хочу добавить какое-то «исключение», где, если я нажму «Отмена» на «Диалог открытия файла», он не даст мне «Ошибка времени выполнения» 1004 »и имеет опцию «End» «Debug» и «Help», но вместо этого, когда пользователь нажимает на отмену, он выходит изящно. Это в VBA. Возможно ли это? Я искал и не мог найти подход, который работал, поскольку это единственный случай. Я просто не хочу, чтобы «пользователь» должен был быть вынужден смотреть на код, если они передумают в «открытии» файла, а вместо этого позволяют им изящно выйти и все еще смотреть на главную книги Excel, они были первоначально

Workbooks.OpenText Filename:=strFileToOpen, StartRow:=11, DataType:=xlDelimited, Tab:=True, TrailingMinusNumber:=True 

Answer 1

При нажатии кнопки Отмена, диалог GetOpenFilename возвращает "FALSE" Попробуйте это:..

Sub CancelFileOpenGracefully() 
Dim strFileToOpen As String 


    On Error GoTo GracefulExit: 
    Application.ScreenUpdating = True 
    Application.EnableEvents = True 
    strFileToOpen = Application.GetOpenFilename 
    'Test if user didn't hit Cancel and run your code 
    If strFileToOpen <> "FALSE" Then 
     Workbooks.OpenText Filename:=strFileToOpen, StartRow:=11, DataType:=xlDelimited, _ 
     Tab:=True, TrailingMinusNumbers:=True 
      'Do things 
    End If 
GracefulExit: 
    Application.ScreenUpdating = True 
    Application.EnableEvents = True 
End Sub