Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Get active workbook name only(without path name)

Sub GetFileName()   Dim BackSlash As Integer, Point As Integer   Dim FilePath As String, FileName As String   Dim i As Integer      FilePath = ActiveWorkbook.FullName   For i = Len(FilePath) To 1 Step -1     If Mid$(FilePath, i, 1) = "." Then       Point = i       Exit For     End If   Next i   If Point = 0 Then Point = Len(FilePath) + 1   For i = Point - 1 To 1 Step -1     If Mid$(FilePath, i, 1) = "\" Then       BackSlash = i       Exit For     End If   Next i   Debug.Print Mid$(FilePath, BackSlash + 1, Point - BackSlash - 1)    End Sub