HOME>TOP>アプリケーション

フォルダ内のエクセルファイルをすべて開くには?


キーワード>>FileSearch

Point :指定したフォルダ内のエクセルファイルを全部開きたい。

Sub Test()
   With Application.FileSearch
        .LookIn = "c:\my documents"
       '検索するフォルダのパス

        .FileType = msoFileTypeExcelWorkbooks
       'エクセルファイル

        .Execute

    If .Execute() > 0 Then
      MsgBox .FoundFiles.Count & _
            " 個のファイルが見つかりました。"
      For i = 1 To .FoundFiles.Count

           Workbooks.Open .FoundFiles(i)
           'ファイルを開く

      Next i
   Else
       MsgBox "検索条件を満たすファイルはありません。"
   End If
  End With
End Sub


掲載サンプルコードの使用に関して、直接・間接
を問わず生じた一切の損害について如何なる責任も負いません。