フルパスからファイル名のみ取得 : Excel(エクセル)

Excel VBAでファイル選択ダイアログを使用した場合など、取得したファイル名はフルパスになります。 そこから、下記のようにしパスを除いたファイル名のみを取り出すことができます。 方法は、フルパスを逆の最後尾から1文字づつ読み「¥」文字が見つかれば、そこまでがファイル名ということになります。 一文字の取り出しはMid関数を使用しています。この方法を応用し、拡張子、拡張子を除くファイル名、パス名のみなどを取り出すこともできます。

Excel Tipsメニューに戻る

スポンサーリンク





呼び出し

Private Sub GetFile()
    Dim makefile As String
    
    makefile = GetFileName("C:\MYEXCEL\book2.xls")
End Sub

スポンサーリンク





フルパスからファイル名のみ取得するExcel標準モジュールコード

'フルパスからファイル名のみ取得
Function GetFileName(fullpath As String) As String
    Dim i As Integer
    Dim nlen As Integer
    Dim s As String

On Error GoTo Errsub
    nlen = Len(fullpath)
    For i = nlen To 0 Step -1
        s = Mid$(fullpath, i, 1)
        If s = "\" Then Exit For
    Next
    s = Right$(fullpath, nlen - i)
    GetFileName = s
    Exit Function
Errsub:
    GetFileName = ""
End Function

Excel Tipsメニューに戻る

スポンサーリンク






■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved