'文件名(不带路径) ABC.xlsx
ThisWorkbook.Name
'文件名不带扩展名 ABC
Left(ThisWorkbook.Name, InStr(ThisWorkbook.Name, ".") - 1)
'带全路径的文件名 C:\Folder\ABC.xlsx
ThisWorkbook.Path & "\" & thisworkbook.Name
'文件名(不带路径) ABC.xlsx
ThisWorkbook.Name
'文件名不带扩展名 ABC
Left(ThisWorkbook.Name, InStr(ThisWorkbook.Name, ".") - 1)
'带全路径的文件名 C:\Folder\ABC.xlsx
ThisWorkbook.Path & "\" & thisworkbook.Name