ファイル名から拡張子のみ取得 : Excel(エクセル)

Excel Tipsメニューに戻る

スポンサーリンク





Excel VBA 呼び出し側

Private Sub CommandButton1_Click()
    Dim ext As String
    
    '「xls」が戻ります。
    ext = ExGetExt("C:\Documents and Settings\in\My Documents\Book1.xls")
End Sub

スポンサーリンク





Excel VBA 標準モジュールコード

'拡張子を取得
Private Function ExGetExt(sfina As String) As String
    Dim i As Long
    Dim s1 As String
    
    ExGetExt = ""
    'ファイル名の最後の文字から「.」を探す
    For i = Len(sfina) To 1 Step -1
        If Mid(sfina, i, 1) = "." Then
            '拡張子を取得
            ExGetExt = Mid(sfina, i + 1)
            Exit For
        End If
    Next
End Function

スポンサーリンク






Excel Tipsメニューに戻る

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


Copyright (c) Excel-Excel ! All rights reserved