'文件名(不帶路徑) 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