[已解决]翻开旧贴，提出新问题：去除扩展名

billyzhang0609

http://www.excelpx.com/thread-258097-1-1.html

For i = 1 To Workbooks.Count
a = Workbooks(i).Name
b = Left(a, Application.Find(".", a) - 1)
Next


如果文件名是诸如：“1.2.3.4.5.6.xls"和“1.2.3.4.5.xlsx”

请问如何将扩展名去掉？

最佳答案

月排行榜 / 总排行榜

dsmch

2015-3-16 17:07

1. Sub Macro1()
   
2. For i = 1 To Workbooks.Count
   
3.   MsgBox Split(Workbooks(i).Name, ".xls")(0)
   
4. Next
   
5. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. For i = 1 To Workbooks.Count
   
3.   MsgBox Split(Workbooks(i).Name, ".xls")(0)
   
4. Next
   
5. End Sub

复制代码

roych

可以用InstrRev函数返回最后一个点号。然后确定文件名。附上一段测试代码

1. Sub test()
   
2. Dim s
   
3. s = "1.2.3.4.5.6.xls"
   
4. Debug.Print InStrRev(s, ".")
   
5. '返回12
   
6. '后面可以用mid或者left来截取字符串了。
   
7. End Sub
   

复制代码