Mã:
'INPUT: aaaa_Project_PrjNm.xlsx
'OUTPUT: PrjNm
Function GetProjectName(ByVal InputString As String) As String
Dim InputString As String
Dim OutputString As String
Dim LastUnderscore As Integer
'InputString = "aaaa_Project_PrjNm.xlsx"
LastUnderscore = InStrRev(InputString, "_")
If LastUnderscore > 0 Then
OutputString = Mid(InputString, LastUnderscore + 1)
Else
OutputString = ""
End If
GetProjectName = OutputString
End Function