【エクセルVBAレシピ】指定したファイルがエクセルファイルか調べる

Function isExcelFile(filePath As String) As Boolean
    isExcelFile = False
    Dim extensions(2) As String
    extensions(2) = "xls"
    extensions(0) = "xlsx"
    extensions(1) = "xlsm"
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Dim extensionName As String: extensionName = fso.GetExtensionName(filePath)
    extensionName = LCase(extensionName)
    For Each extension In extensions
        If extensionName = extension Then
            isExcelFile = True
        End If
    Next
End Function

filePath : 調べるファイルのパス。

filePath

調べるファイルのパス。

参考
FileSystemObject オブジェクト | Microsoft Docs
GetExtensionName メソッド (Visual Basic for Applications) | Microsoft Docs
docs.microsoft.com