Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


37704 / 76732 ←次へ | 前へ→

【44190】エラーメッセージの出し方
質問  what's me  - 06/11/7(火) 21:02 -

引用なし
パスワード
   テキストボックスに入力されたファイル(パスから入力)を、
コマンドボタン押下で開くマクロをつくっています。
聞きたいのはマクロ実行後のエラー時のメッセージと
処理についてです。

やりたいことは、
テキストボックスに入力されたファイル名が違っていたときの
エラーメッセージを出すことです。

1.テキストボックスにファイル名が入力されていないとき
 msgbox "ファイル名を入力してください"
2.入力されたファイルが存在しないときand間違えているとき
 msgbox "指定したファイルは存在しません"

以下のようにつくりたかったのですが、
参考書見ながらでもできませんでした。
要は、ErrオブジェクトのRaiseメソッドの調べ方が
わかりませんでした。

以下のマクロは動きませんが、どなたか訂正しながら教えてください。


Private Sub CommandButton1_Click()
  Dim f As String
  On Error GoTo ErrorHandler
     
Workbooks.Open (f):
  f = Me.TextBox1.Value
  Workbooks.Open (f)
  
ErrorHandler:
  Select Case Err.Number
    Case 1
      MsgBox "ファイル名を入力してください"
    Case 2
      MsgBox "指定したファイルは存在しません"
    Exit Sub
  End Select
End Sub

0 hits

【44190】エラーメッセージの出し方 what's me 06/11/7(火) 21:02 質問
【44191】Re:エラーメッセージの出し方 ぱっせんじゃー 06/11/7(火) 21:20 発言
【44192】Re:エラーメッセージの出し方 what's me 06/11/7(火) 21:38 回答

37704 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free