Get active workbook name only(without path name) : Workbook File « Excel « VBA / Excel / Access / Word






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

 








Related examples in the same category

1.Is selected file open?
2.Open Workbook file (xls file)
3.Get path of current work book
4.Get work book from same directory
5.Save as the active workbook
6.Get next file name
7.Open a text file for workbook
8.Load excel file
9.Presents user with a GetOpenFileName dialog that allows multiple file selection.
10.tells you how many workbooks are open
11.Save changes automatically, specify this as a parameter of the Close method