Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(指定なし : 指定なし)
指定ファイルが存在する場合のみ、マクロの実行
投稿日時: 19/11/10 20:47:43
投稿者: コッスルモリ

エクセルVBAで
 
指定したフォルダにファイルがあれば、モジュールの実行
なければ、ファイルがありませんとメッセージを表示
 
させたいのですが、Dir関数を使ってもうまく実行できません。
 
どのようにすれば、うまくできるでしょうか?

回答
投稿日時: 19/11/10 21:26:07
投稿者: WinArrow
投稿者のウェブサイトに移動

コッスルモリ さんの引用:
エクセルVBAで
 
指定したフォルダにファイルがあれば、モジュールの実行
なければ、ファイルがありませんとメッセージを表示
 
させたいのですが、Dir関数を使ってもうまく実行できません。
 
どのようにすれば、うまくできるでしょうか?

 
 
>うまくできない
なんて、文字だけでは、
どのようにうまくないか伝わりません。
 
貴方が記述したコードを掲示してみましょう。

回答
投稿日時: 19/11/11 16:11:35
投稿者: hatch315
メールを送信

以下のアドレスが参考になるかも
https://www.relief.jp/docs/fso-files-count.html

回答
投稿日時: 19/11/11 16:39:15
投稿者: ななつぼし

 
 コッスルモリ 様
 
 Dir関数を使って作ってみました。ご参考になればと思います。
 
Option Explicit
  Dim Folder As String
  Dim FileName As String
  Dim S As String
 
Private Sub CommandButton1_Click()
  Folder = "C:\"
  FileName = "test.txt"
  S = Dir(Folder & "\") ' 最初のファイル名を取得
  Do Until S = "" ' ファイルがが無くなるまで
    If S = FileName Then
      MsgBox "指定したフォルダにファイルが見つかりました。 " & _
              vbLf & Folder & FileName & vbLf & vbLf & _
             "モジュールを実行します。", _
              vbInformation, "ファイル確認"
      Exit Sub
    End If
    S = Dir() ' 次のファイル名を取得
  Loop
  MsgBox "指定したフォルダにファイル が見つかりませんでした。" & vbLf & _
          Folder & FileName, vbCritical, "警告"
End Sub
 

投稿日時: 19/11/12 18:58:43
投稿者: コッスルモリ

皆さま、ありがとうございます!
無事にできました!