ファイルがフォルダ内にあるか調べてファイルを開く

雲 Excel VBA すべて
2024.09.07

検索するフォルダ内にファイルがあるのかを調べてからファイルを開きます、Dir関数でファイルの存在を確認した後にファイルの有る無しをメッセージで表示することによって使う人に優しいプログラムになると思います。

Sub ファイルがフォルダ内にあるか調べてファイルを開く()

Dim name As String
name = Range("A1").Value                                                      'A1セルに入力したファイル名で検索します。
         
If Dir(ThisWorkbook.Path & "\フォルダ\" & name & ".xlsx") <> "" Then            'ファイルがフォルダ内にあるか調べます。
                
   MsgBox "ファイルはフォルダ内にありました。"
   
   Workbooks.Open Filename:=ThisWorkbook.Path & "\フォルダ\" & name & ".xlsx"                     'ファイルを開きます。

Else
        
   MsgBox "ファイルはフォルダ内にありません。"        
             
End If
                            
End Sub
Dir(ファイルパス)

Dir関数のカッコ内には検索するファイルのファイルパスを指定します。

同じフォルダに保存する

「検索するフォルダ」と「マクロを実行するファイル」を同じフォルダに入れてThisWorkbook.Pathでフォルダまでのパスを自動で取得するとUSBメモリーやSDカードからマクロを実行するときもフォルダパスを考えずに使えるので良いかと思います。

コメント