VB6.0用掲示板の過去のログ(No.1)－VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2004/01/27(Tue) 09:44
投稿者： NJ
Ｅメール：
ＵＲＬ：
タイトル： ShowOpenでのエラーについて

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

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -