![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
ファイルを保存する時、キャンセルをするとタイトルどおりのエラーメッセージが出ます。当方、初心者でデバッグの仕方がわからず困ってます。どなたか教えてください。
コードの一部
Dim myFile As String
Private Sub Command2_Click()
CommonDialog1.Filter = "テキスト(*.txt)|*.txt|すべて(*.*)|*.*"
CommonDialog1.FilterIndex = 1
CommonDialog1.Flags = cdlOFNOverwritePrompt '上書き確認する
CommonDialog1.ShowSave '!!!デバッグの際はこの行が反転表示されます!!!
If CommonDialog1.FileName = "" Then Exit Sub
myFile = CommonDialog1.FileName
FileWrite
Form1.Caption = "Form1" & myFile
End Sub
Private Sub FileWrite()
Dim buf As String
Open myFile For Output As #1
Print #1, RichTextBox1.Text; '最後の';'は余計な複改を入れないため
Close #1
Exit Sub
End Sub
No.1ベストアンサー
- 回答日時:
エラー処理を入れました。
そのほかに便宜上command2--->1,
RichTextBox1.Text; -->"aaa"に変えましたが
私の場合上手くいきました。ご参考に。
Dim myFile As String
Private Sub Command1_Click()
CommonDialog1.Filter = "テキスト(*.txt)|*.txt|すべて(*.*)|*.*"
CommonDialog1.FilterIndex = 1
CommonDialog1.Flags = cdlOFNOverwritePrompt '上書き確認する
On Error GoTo error1
CommonDialog1.ShowSave '!!!デバッグの際はこの行が反転表示されます!!!
If CommonDialog1.FileName = "" Then Exit Sub
myFile = CommonDialog1.FileName
MsgBox myFile
FileWrite
Form1.Caption = "Form1" & myFile
Exit Sub
error1:
MsgBox Err.Description
Err.Clear
End Sub
Private Sub FileWrite()
Dim buf As String
Open myFile For Output As #1
Print #1, "aaa" 'RichTextBox1.Text; '最後の';'は余計な複改を入れないため
Close #1
Exit Sub
End Sub
この回答への補足
エラーが出ずに処理できたのは良いのですが、出来れば、メッセージボックスを出さずに、そのまま今のプログラムを続けたいのですが、どうすればよいか教えていただけないでしょうか。
補足日時:2002/08/27 18:28No.4
- 回答日時:
こんにちは。
maruru01です。No.2の人が挙げているので、付けたし程度ですが。
コモンダイアログでは一般的には、CanselErrorプロパティにTrueを入れる方法を使用します。
Private Sub Command2_Click()
With CommonDialog1
.CancelError = True
.Filter = "テキスト(*.txt)|*.txt|すべて(*.*)|*.*"
.FilterIndex = 1
.Flags = cdlOFNOverwritePrompt
On Error Goto ErrHandler
.ShowSave
myFile = .FileName
End With
FileWrite
Form1.Caption = "Form1" & myFile
Exit Sub
ErrHandler:
'[キャンセル]ボタンクリック時(何もしない)
End Sub
なおキャンセルボタンクリック時に、myFileをクリアする処理を書いてもいいでしょう。(Form1のキャプションも変更しなくてはいけないでしょうが。)
No.3
- 回答日時:
エラー番号は、err.numberで取得できます。
(ERRオブジェクトのヘルプを参照)今回はエラー番号がわかるのだから、1のサンプルの最後の方を
error1:
if err.number=32755 then
'何もしない
else
MsgBox Err.Description
'(ここは本当のエラーなので処理を中断するような記述が必要かも)
end if
Err.Clear
End Sub
とすればいいのでは?
No.2
- 回答日時:
On Error Resume とか
On Error Resume Nextというのもあります。
CommonDialog1.CancelError=trueダイアログキャンセルをエラーとする、などもあります。
http://www-user.interq.or.jp/~komurak/err/
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
実行時エラー 438になった時の...
-
なぜこんな初歩的なVBAのIf文で...
-
VBAがブレークモードになっ...
-
EXCEL/VBAで、自分のPCだけエラ...
-
VBSで変数の宣言はできないので...
-
エクセルエラー13型が一致しま...
-
vbaのvlookup関数エラー原因を...
-
なぜエラーになるのでしょうか...
-
Exce2007でBorder クラスの Lin...
-
実行エラー9 インデックスが...
-
ExcelVBA Range クラスの Page...
-
VBAでのエラー
-
VBA 新しいフォルダを作成する方法
-
ASP.NET OleDbConnectionが定義...
-
実行時エラー3001「引数が間違...
-
テキストボックスに記述した数...
-
INSERT INTOステートメント構文...
-
VBS実行時エラー オブジェクト...
-
EXCEL VBAマクロ中断でデバッグ...
-
「コンパイルエラー:プロシー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
実行時エラー 438になった時の...
-
エクセルエラー13型が一致しま...
-
VBAがブレークモードになっ...
-
なぜこんな初歩的なVBAのIf文で...
-
【Excel VBA】マクロをボタンに...
-
VBSで変数の宣言はできないので...
-
VBS実行時エラー オブジェクト...
-
実行時エラー3001「引数が間違...
-
ExcelVBA Range クラスの Page...
-
ExcelVBAで、ユーザー定義型は...
-
EXCEL VBAマクロ中断でデバッグ...
-
マクロについて教えてください...
-
プロシージャ名の取得
-
ADODB.Streamを使用してUTF-8を...
-
実行時エラー -'-2147417848
-
Outlook.ApplicationをCreateOb...
-
VBAでのエラー
-
なぜエラーになるのでしょうか...
-
VBAのコードがエラーになっ...
-
[Delphi] データセットは閉じて...
おすすめ情報