2021-10-07から1日間の記事一覧
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 …