[ツリー表示へ] [ワード検索] [Home]
タイトル ： commondialogのエラーについて 投稿日 ： 2014/04/03(Thu) 13:13 投稿者 ： 小村
| 私はいまさらですが、ＶＢ６を勉強し始めた者です。 質問の意味が理解できないことも多々あると思いますが、 なにとぞ、よろしくお願いいたします。 今回、Commondialogを使ってファイル選択しようと思っておりますが、 なぜか、キャンセルボタンを押すとエラートラップに飛びません。 普通のエラーメッセージボックスが表示されます。なぜでしょうか？ ソースを抜粋しましたので、何かアドバイス等あればお願いします。 ※環境Windows7、ＶＢ６（ＳＰ６）、Excel2010 Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Set xlApp = CreateObject("Excel.Application") With CommonDialog1 .DialogTitle = "ファイルを選択して下さい。" .InitDir = "D:\" .FileName = "" .Filter = "すべての Excel(xls)ファイル|*.xls|すべての ファイル|*.*" .FilterIndex = 1 .CancelError = True .Flags = .Flags Or FileOpenConstants.cdlOFNFileMustExist .Flags = .Flags Or FileOpenConstants.cdlOFNPathMustExist .Flags = .Flags Or FileOpenConstants.cdlOFNNoChangeDir .Flags = .Flags Or FileOpenConstants.cdlOFNHideReadOnly End With On Error GoTo CANCEL2 Call CommonDialog1.ShowOpen Exit Sub ' '***** キャンセル ***** CANCEL2: X = 0: MSG = "" MSG = Err.Description & Chr(&HD) & _ "メイン画面に戻ります。" X = MsgBox(MSG, vbInformation + vbOKOnly, "キャンセル") 出来ればキャンセル処理（cancel2）にループして欲しいです。 すみませんが、よろしくお願いいたします。 |
をクリックするとツリー全体を一括表示します） - commondialogのエラーについて - 小村 14/04/03-13:13No.15882