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

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

スポンサーリンク

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
▲このページの一番上に戻る
スポンサーリンク
カテゴリー
スポンサーリンク