Excel VBA質問箱 IV

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

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


6618 / 13644 ツリー ←次へ | 前へ→

【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 回答[未読]

【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

【44191】Re:エラーメッセージの出し方
発言  ぱっせんじゃー  - 06/11/7(火) 21:20 -

引用なし
パスワード
   ご希望の回答とは違いますが・・・。

テキストボックス未入力チェック、
ファイルの有無のチェック、
の方法です。

With Me.TextBox1
 If .Value = "" Then
   MsgBox "ファイル名未入力"
   Exit Sub
 ElseIf Dir(.Value) = "" Then
   MsgBox "存在しません。"
   Exit Sub
 Else
   Workbooks.Open (.Value)
 End If
End With

【44192】Re:エラーメッセージの出し方
回答  what's me  - 06/11/7(火) 21:38 -

引用なし
パスワード
   シンプルでわかりやすくてベストです!!
Errオブジェクトについては別の機会に挑戦してみます。
ありがとうございました。

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