Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11801 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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関数を使うのは分かるのですが、具体的に、どのようにコードをつくればいいのか分かりません。すみません、まだ初心者なもので（ＴＴ）
ご教示願えたら、うれしいです。
【14035】Re:デバッグの回避方法
回答  つん E-MAIL  - 04/5/18(火) 20:50 -
引用なし
パスワード
   こんばんは。
横から失礼します。

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

こんな感じです

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さん、ありがとうございました。
　問題解決です。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11801 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free