[已解决]如何去掉文件名后面的.xls

zlj

Sub xx()
Dim x
x = ActiveWorkbook.Name
MsgBox x
End Sub

 

如何去掉文件名后面的.xls

如何去掉.xls   工作簿的名字为book1

最佳答案

月排行榜 / 总排行榜

爱疯

2009-12-8 14:59

x = ActiveWorkbook.Name后加1句，
x = Left(x, Len(x) - 4)

跳转到最佳答案楼层

爱疯

x = ActiveWorkbook.Name后加1句，
x = Left(x, Len(x) - 4)