WorkBooks.OpenTextコマンドに関連するエラー処理

Question

私は標準のWorkbooks.OpenText関数を使用していますが、キャンセルを押すと、私のコードにデバッグしてしまいます。代わりに私はエラーハンドラが必要なので、私がキャンセルを押すと、 "No File Selected"というエラーボックスが表示されます。私はこのOpenTextがキャンセルされたことを認識するフックをどのように入れるのか把握できませんでした。

Set myfile = Application.FileDialog(msoFileDialogFolderPicker) 
Workbooks.OpenText Filename:=myfile, DataType:=xlDelimited, 
Origin:=xlWindows, Other:=True, OtherChar:="," 

Answer 1

あなたがこれを行うことができます：

Sub MySub() 
    Dim fd As FileDialog 
    Dim vrtSelectedItem As Variant 

    Set fd = Application.FileDialog(msoFileDialogFilePicker) 

    With fd 
     ' TODO configure file dialog 
     ' .AllowMultiSelect = ??? 
     ' .Filters = ??? 
     ' ... 

     If .Show = -1 Then 
      ' TODO code to handle FileDialog OK button 
      ' Depending on settings user may be able to select multiple items 
      For Each vrtSelectedItem in .SelectedItems 
       Debug.Print vrtSelectedItem 
       ' Workbooks.OpenText Filename:=vrtSelectedItem, ... 
      Next vrtSelectedItem 
     Else 
      ' TODO code to handle FileDialog Cancel button 
      Debug.Print "user hit cancel" 
     End If 
    End With 

    Set fd = Nothing 
End Sub 

希望