ファイルを保存する時、キャンセルをするとタイトルどおりのエラーメッセージが出ます。当方、初心者でデバッグの仕方がわからず困ってます。どなたか教えてください。
コードの一部
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で質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Excel(エクセル) マクロでテキストファイルを読み込んだ際の最終セルにデータと改行が含まれる問題の改善方法 2 2022/03/25 16:50
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:12
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
実行時エラー 438になった時の...
-
エクセルエラー13型が一致しま...
-
ADODB.Streamを使用してUTF-8を...
-
vbaのvlookup関数エラー原因を...
-
マクロについて教えてください...
-
VBS実行時エラー オブジェクト...
-
プロシージャ名の取得
-
OLEDB.NETで接続できない
-
なぜこんな初歩的なVBAのIf文で...
-
VBSで変数の宣言はできないので...
-
実行時エラー48発生時のDLL特定...
-
excel vbaでvlooupの変数がわか...
-
Excelで下記のようにマクロを作...
-
Invalid procedure call or arg...
-
「コンパイルエラー:プロシー...
-
エクセルVBA autofilterでエラー
-
ExcelVBA Range クラスの Page...
-
エラー1004 PDFの保存ができま...
-
VBAマクロ excel2008では使える...
-
エクセルVBA、フリーフォームで...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
実行時エラー 438になった時の...
-
エクセルエラー13型が一致しま...
-
【Excel VBA】マクロをボタンに...
-
なぜこんな初歩的なVBAのIf文で...
-
VBAでのエラー
-
マクロについて教えてください...
-
ExcelVBA Range クラスの Page...
-
実行時エラー3001「引数が間違...
-
VBS実行時エラー オブジェクト...
-
VBAがブレークモードになっ...
-
OLEDB.NETで接続できない
-
プロシージャ名の取得
-
EXCEL VBAマクロ中断でデバッグ...
-
VBSで変数の宣言はできないので...
-
ADODB.Streamを使用してUTF-8を...
-
実行時エラー -'-2147417848
-
AccessVBAでExcelを起動し、罫...
-
VB6+SQL サーバー 2000 で 実行...
-
Outlook.ApplicationをCreateOb...
-
Application.ActiveInspectorで...
おすすめ情報