いつもお世話になっております。
いまボタン�@または�Aを押すと、『ファイルを開く』ダイアログを開き、ファイルを
開くという機能を作っています。
ボタン�@、�Aとも下記のコードを記述しているのですが、なぜかボタン�Aでエラーが起きてしまい
ます。
エラー内容は「キャンセルボタンが選択されました」です。
理由がわからないので、どなたか分かる方がいらしたら、ご教授お願いします。
環境はVb6.0です。


Private Sub Command1_Click()
    With CD1　　'CD1:コモンダイアログ
        .InitDir = "d:\temp"
        .FileName = "*.xls"
        .Filter = "(*.xls)"
        .CancelError = True
        .ShowOpen　　'◎ここでエラーが発生します
    
        If Err.Number = cdlCancel Then
            Exit Sub
        End If
        On Error GoTo 0
    End With
End Sub

エラーで止まるのはエラー処理がされていないからです。

下記サンプルを参考にしてください。

Private Sub Command1_Click()

On Local Error GoTo Error_Handler

    With CD1    'CD1:コモンダイアログ
        .InitDir = "d:\temp"
        .FileName = "*.xls"
        .Filter = "(*.xls)"
        .CancelError = True
        .ShowOpen    '◎ここでエラーが発生します
    End With

    Exit Sub
Error_Handler:
    If Err.Number = cdlCancel Then
        Exit Sub
    Else
        '通常のエラー処理
    End If
    Err.Clear
End Sub

ak さん、ご回答ありがとうございます。
エラーが無くなり、動くようになりました。
今まで、知らなかったので勉強になりました。
ありがとうございました。