如何提取不带后缀.xls的工作簿名称，谢谢！

陌路丢了谁

如何提取不带后缀.xls的工作簿名称，谢谢！
ActiveWorkbook.Name返回带后缀名称，如：工作簿1.xls，想要返回不带后缀名称：工作簿1

孙文政

Sub 获取无后缀工作簿名()
    Dim wbName As String
    ' 提取去掉后缀的名称
    wbName = Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".") - 1)
   
    MsgBox wbName
End Sub

缺月

用fso提取文件名，比较简单，用fso.GetBaseName(f)函数就可以了

• Sub 获取文件名()
  
•     Set fso = CreateObject("Scripting.FileSystemObject")
  
•     fileName = fso.GetBaseName(ThisWorkbook.FullName)
  
•     MsgBox fileName
  
•     Set fso = Nothing
  
• End Sub
  
•