如何用VBA获取当前活动的excel的文件名,不含路径和扩展名

zz1180

如何用VBA获取当前活动的excel的文件名,不含路径和扩展名

1. '获取当前活动的excel的文件名,不含路径和扩展名
   
2. Sub GetFileName()
   
3.    Dim FileName, FileName1      
   
4. ' 获取其他工作薄的名称，需要先使其活动  工作薄名.Sheets(1).Activate
   
5.    MsgBox ActiveWorkbook.Name                         '含扩展名
   
6.    MsgBox Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)     '不含扩展名(4位扩展名，*.xls)
   
7.    FileName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)  
   
8.    MsgBox Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5)     '不含扩展名(5位扩展名，*.xlsx或*.xlsm)
   
9.    FileName1 = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5)  
   
10. End Sub
    

复制代码