“VBA Dapatkan Nama Buku Kerja” Kode Jawaban

VBA Dapatkan Nama Buku Kerja

fileName = ThisWorkbook.Name 
Debug.Print fileName		' With extension
If InStr(fileName, ".") > 0 Then 
   fileName = Left(fileName, InStr(fileName, ".") - 1) 
   Debug.Print fileName		' Without extension
End If