エクセルファイルのフルパスから拡張子のみを取得 Split関数（Excel VBA） Excel

【本日のミッション】

ファイルのフルパス「 C:\VBA\File.xlsx」から Split関数を使用して、拡張子部分の「xlsx」のみを取得せよ。

1 ミッションの概要
2 プロシージャ
3 Split関数
4 UBound関数
5 【参考】

ミッションの概要

ここでは、「Split関数」という関数を使用して、拡張子を取り出す方法をご紹介します。

ファイルのパスをSplit関数を使って「.」で区切ると、前半は「C:\VBA\File」、後半は「xlsx」に分けることができます。これで拡張子を取り出すことができます♪

C:\VBA\File.xlsx

↓↓↓↓↓↓↓↓↓

「C:\VBA\File」「.」「xlsx」

プロシージャ

Sub フルパスから拡張子のみ取得()
    '【変数】
    Dim Pt As String  'ファイルパス
    Dim fn As Variant 'ファイル名配列
    
    '■拡張子の取得
    Pt = "C:\VBA\File.xlsx"     'ファイルパス指定
    fn = Split(Pt, ".")         'ファイル名配列
    MsgBox fn(UBound(fn))

End Sub

「フルパスから拡張子のみ取得」プロシージャのどこかにカーソルを置いてF5キーをクリックしてください。

拡張子だけが取得できましたね♪

Split関数

Split関数はある文字列（Expression）を、指定した区切り文字（Delimiter）で分割した 1 次元配列を返します。

Split (Expression , Delimiter , Limit , Compare)

引数名	説明	省略
Expression	区切り文字を含む文字列式を指定します。	×
Delimiter	文字列を区切る、区切り文字を指定します。省略すると、区切り文字にスペース (” “) が使用されます。	○
Limit	返す配列の要素数を指定します。 -1（既定値）にすると、全ての文字列を含んだ配列を返します。	○
Compare	文字列式を比較するモードを指定します。省略すると、Option Compareステートメントの設定で比較します。「vbBinaryCompare」バイナリモードで比較を行います。「vbTextCompare」テキストモードで比較を行います。テキストモードは全角半角・大文字小文字の区別をしません	○

fn = Split(Pt, ".")

第1引数の「区切り文字を含む文字列（Expression）」は、変数「Pt」にセットしている

C:\VBA\File.xlsx

という文字列式になります。

第2引数の「区切り文字列（Delimiter）」は

. ←ピリオド

です。

C:\VBA\File.xlsx

が区切り文字「.」で区切られ、配列「fn」に格納されると下記の通りになります。

UBound関数

配列（ArrayName）で使用できる最大の添え字を返します。

UBound (ArrayName , Dimension)

引数名	説明	省略
ArrayName	配列変数の名前を指定します。	×
Dimension	添え字の上限を調べたい配列の次元を指定します。省略すると、1 次元とみなされます。	○

UBound(fn)

上記Split関数で、配列fnには fn(0)～fn(1)までの要素が入っています。
「添え字」とは、配列fn()の括弧内の数字のことです。
今回は1次元配列なので、第2引数の「添え字の上限を調べたい配列の次元（Dimension）」は省略しています。

添え字は0～1なので、最大値は UBound(fn)=1 になります。

fn(UBound(fn)) = fn(1) = xlsx

これでファイル名「xlsx」のみ取り出すことができます(#^.^#)

【参考】

■■■スポンサーリンク■■■