Excel VBA質問箱 IV

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

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


11800 / 13645 ツリー ←次へ | 前へ→

【14029】デバッグの回避方法 キキ 04/5/18(火) 18:39 質問[未読]
【14030】Re:デバッグの回避方法 IROC 04/5/18(火) 18:43 回答[未読]
【14032】Re:デバッグの回避方法 キキ 04/5/18(火) 19:01 質問[未読]
【14035】Re:デバッグの回避方法 つん 04/5/18(火) 20:50 回答[未読]
【14037】Re:デバッグの回避方法 YN61 04/5/18(火) 21:29 回答[未読]
【14053】Re:デバッグの回避方法 キキ 04/5/19(水) 13:22 お礼[未読]

【14029】デバッグの回避方法
質問  キキ  - 04/5/18(火) 18:39 -

引用なし
パスワード
   初めて投稿させていただきます。
実は、作業ブック(マクロを登録しているファイル)を開き、そこから、マイドキュメントに保存しているファイルのデータをコピーして、作業ブックへ貼り付けるという簡単なマクロなのですが、マイドキュメントに対象となるファイルがなければ、当然、エラーとなります。これを、エラーが出ない様にし、尚且つ、例えば、”ファイルがありません”というようなメッセージがでる方法をご存知の方、
申し訳ありません、キキに教えてください。宜しくお願いします。

【14030】Re:デバッグの回避方法
回答  IROC  - 04/5/18(火) 18:43 -

引用なし
パスワード
   dir関数で、ファイルの有無を調べては如何でしょうか?

【14032】Re:デバッグの回避方法
質問  キキ  - 04/5/18(火) 19:01 -

引用なし
パスワード
   ▼IROC さん:
>dir関数で、ファイルの有無を調べては如何でしょうか?

IROCさん、こんばんは。
すみません、dir関数を使うのは分かるのですが、具体的に、どのようにコードをつくればいいのか分かりません。すみません、まだ初心者なもので(TT)
ご教示願えたら、うれしいです。

【14035】Re:デバッグの回避方法
回答  つん E-MAIL  - 04/5/18(火) 20:50 -

引用なし
パスワード
   こんばんは。
横から失礼します。

>IROCさん、こんばんは。
>すみません、dir関数を使うのは分かるのですが、具体的に、どのようにコードをつくればいいのか分かりません。すみません、まだ初心者なもので(TT)
>ご教示願えたら、うれしいです。

こんな感じです

Sub test()

  Dim strFile As String
  
  strFile = Dir("D:\test.xls")
  
  If strFile = "" Then
    MsgBox "ファイルがありません"
  End If

End Sub

ヘルプを見て頂いたら、より詳しい使用例が載ってます。

【14037】Re:デバッグの回避方法
回答  YN61  - 04/5/18(火) 21:29 -

引用なし
パスワード
   ▼キキ さん:
こんなのいかがです
Rang("F10")はファイルの名前です。
フォルダーを仮に「請求書」とした場合です。
Dir関数を使って作りました。
小生も、この質問をこのURLで聞き、作りました。
ご参考になりましたら幸いです。

  Dim i As Integer
  Dim j As String
  
  j = Range("F10").Value
  
  Filename = Dir("U:\請求\" & Range("F10"), vbDirectory)
  If Filename = "" Then
    MsgBox "「" & Range("F10") & "のフォルダはありません」" & _
    Chr(10) & "「フォルダを作成してください」"
   Exit Sub
  End If
  
  
  Filename = Dir("U:\請求\" & (j) & "\*.xls")
  If Filename <> "" Then
    MsgBox "「ファイルは既にあります」"
   Exit Sub
  End If

【14053】Re:デバッグの回避方法
お礼  キキ  - 04/5/19(水) 13:22 -

引用なし
パスワード
   ▼YN61 さん、つんさん、IROCさん、ありがとうございました。
 問題解決です。

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