投稿日 | : 2004/01/27(Tue) 09:44 |
投稿者 | : NJ |
Eメール | : |
URL | : |
タイトル | : ShowOpenでのエラーについて |
いつもお世話になっております。
いまボタン@または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