【Excel VBA】インプットボックスでファイルの検索をする

インプットボックスにファイル名を入力してOKボタンを押すとファイルの検索ができるVBAのプログラムを紹介します。

VBEを起動して「挿入」→「標準モジュール」を選択して標準モジュールを作成します、作成した標準モジュールのModule1に下のコードをコピーして貼り付けます。

Sub ファイルの検索()

Dim name As String
name = InputBox("検索するファイル名を入力してください。")

If StrPtr(name) = 0 Then                                                'キャンセルボタンが押されたときの処理。
        
   MsgBox "キャンセルが押されました。"
   Exit Sub
   
ElseIf name = "" Then                                                 'ファイル名が入力されていないときの処理。

   MsgBox "ファイル名が入力されていません。"
   Exit Sub
   
End If

Dim ブック As Workbook
Dim Flag As Boolean
               
For Each ブック In Workbooks                                          '検索したファイルが開いているか調べます。
    
   If ブック.name = name & ".xlsx" Then Flag = True
             
Next ブック
                  
If Flag = True Then                                                   '検索したファイルが開いていた場合の処理。
       
   MsgBox "「" & name & "」" & "のファイルは既に開いているので最前面に表示します。"
         
   Workbooks(name & ".xlsx").Activate                                 '開いていたファイルを最前面に表示します。
                
   Exit Sub
                
Else                                                  '検索したファイルが開いていない場合はファイルを開きます。
         
   If Dir(ThisWorkbook.Path & "\フォルダ\" & name & ".xlsx") <> "" Then 'ファイルがフォルダ内にあるか調べます。
                
      Workbooks.Open Filename:=ThisWorkbook.Path & "\フォルダ\" & name & ".xlsx"          'ファイルを開きます。

   Else                                               'ファイルがフォルダ内に無いときはメッセージを表示します。
        
      MsgBox "ファイルはフォルダ内にありません。"
             
   End If
                            
End If
  
End Sub