VBAProject --> 標準モジュール --> ModuleXX

Sub Sample()
    
    Dim strFileNameA As String
    
    Const strFileNameB As String = "TestFile.xlsm"
    
    'TestFile.xlsmから、.xlsm をとる
    
    strFileNameA = Left(strFileNameB, InStrRev(strFileNameB, ".") - 1)
    
    MsgBox strFileNameA

End Sub

　↓　facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ


 
タグ ：
Excel-VBA
文字列