このサイトの記事内では「アフィリエイト広告」などの広告を掲載している場合があります。
消費者庁が問題としている「誇大な宣伝や表現」とならないよう配慮しコンテンツを制作しておりますのでご安心ください。
問題のある表現が見つかりましたらお問い合わせよりご一報いただけますと幸いです。

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

2024年7月2日

VBAでファイルの拡張子を取得

今回はVBAでファイルの拡張子を取得する方法を紹介します。

ちなみに、Right関数で取得する方法はあまりおすすめしません。

Right(string, length)

https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/right-function

Right関数では文字数を指定する必要があるため、例えば4文字を指定していたのに3文字の拡張子(xlsなど)だとエラーの原因となってしまいます。

Right関数で安易に対処せず、専用メソッドを使って取得するようにしましょう。

VBAが難しいと感じたら
ココナラにてVBAの作成依頼を受け付けています。
ご依頼・ご相談はこちらから

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

Sub GetExtensionName()
    
    '拡張子を取得したいファイルを選択
    Dim filePath As String
    filePath = Application.GetOpenFilename

    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    'ファイルの拡張子を表示
    Debug.Print fso.GetExtensionName(filePath)

End Sub

拡張子の取得にはfso(ファイルシステムオブジェクト)を使用します。

fsoのGetExtensionNameメソッドで、引数にファイルパスを渡すと拡張子を取得することができます。

このプログラムを実行すると、ダイアログでファイルを選択し、選択したファイルの拡張子がイミディエイトウィンドウに表示されます。

《VBA上級者になりたい人へ》
VBA上級者を目指したい人にはパーフェクトExcel VBA一択です。
この本を読み切れば間違いなくVBA上級者になれます。

created by Rinker
技術評論社
¥3,608 (2024/12/02 20:25:22時点 Amazon調べ-詳細)
VBAが難しいと感じたら
ココナラにてVBAの作成依頼を受け付けています。
ご依頼・ご相談はこちらから

VBA

Posted by やろまい