分かりやすく、使いやすく。

ファイルの拡張子を取得する方法

スポンサーリンク

Excel VBA でファイルの拡張子を取得するには、 FileSystemObject の GetExtensionName を使用します。

サンプルコードは次の通りです。

VBA(実行可能なサンプルコード)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
 
Sub test()
    Dim objFileSys As Object
    Dim extensionName As String
    
    'ファイルシステムを扱うオブジェクトを作成
    Set objFileSys = CreateObject("Scripting.FileSystemObject")
     
    '拡張子無しのファイル名を取得
    extensionName = objFileSys.GetExtensionName("c:\temp\data\商品リスト.xlsx")
    
    Debug.Print extensionName
    
    Set objFileSys = Nothing
End Sub 

上記の実行結果は次の通りです。

実行結果
1
xlsx 

GetExtensionName は絶対パス(フルパス)ではなくても動作します。次のサンプルコードではフォルダのパスは指定しないで、ファイル名だけを指定しています。

VBA(実行可能なサンプルコード)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
 
Sub test()
    Dim objFileSys As Object
    Dim extensionName As String
    
    'ファイルシステムを扱うオブジェクトを作成
    Set objFileSys = CreateObject("Scripting.FileSystemObject")
     
    'ファイルの拡張子を取得
    extensionName = objFileSys.GetExtensionName("昨日の写真.jpg")
    
    Debug.Print extensionName
    
    Set objFileSys = Nothing
End Sub 

上記の実行結果は次の通りです。

実行結果
1
jpg 
スポンサーリンク
スポンサーリンク