VBS/ファイルの拡張子を取得する の変更点

• 追加された行はこの色です。
• 削除された行はこの色です。
• VBS/ファイルの拡張子を取得する へ行く。
• VBS/ファイルの拡張子を取得する の差分を削除

【引用元URL】http://officetanaka.net/excel/vba/tips/tips57.htm

拡張子を取得するには、FileSystemObjectオブジェクトを使う手があります。


 Sub Sample5()
     Dim Target As String
     Target = Application.GetOpenFilename()
     With CreateObject("Scripting.FileSystemObject")
         If LCase(.GetExtensionName(Target)) = "xls" Or _
            LCase(.GetExtensionName(Target)) = "xlsx" Then
             ''Targetに対する処理
         Else
             MsgBox "Excelのブックを選択してください。", 48
         End If
     End With
 End Sub