[已解决]VBA right left 的用法。请教下

systemo

例子1 ： M11A03B_11M_YY_SS_1222225_96
例子2 ：M11A03B_11M_YY_SS_1222225_966_55
例子2 ：M11A03B_11M_YY_SS_1222225_966_55_1
例子1可以用下面方法得了红急部分的内容，但是当出来例子2这种或者是例子3的时候这种写法就不行了，那位大哥能帮忙有更好的方法吗？谢谢！

Sub aa()
Dim A, B, C As String
A = ActiveWorkbook.Name
B = VBA.Right(A, 16)
C = VBA.Left(B, 8)
MsgBox C
End Sub

最佳答案

月排行榜 / 总排行榜

易安1

2014-9-13 13:53

1. Sub test()
   
2. a = " M11A03B_11M_YY_SS_1222225_96"
   
3. MsgBox Split(a, "_")(4)
   
4. End Sub
   

复制代码

跳转到最佳答案楼层

ghostjiao

直接用split

易安1

1. Sub test()
   
2. a = " M11A03B_11M_YY_SS_1222225_96"
   
3. MsgBox Split(a, "_")(4)
   
4. End Sub
   

复制代码

雪舞子

Sub aa()
Dim A, B, C As String
A = ActiveWorkbook.Name
B = VBA.Mid(A, 19, 7)
MsgBox B
End Sub

su45

如果M11A03B_11M_YY_SS_长度一样 ，1222225的长度一样，用4楼的就行了
如果不一样，且 _ 的个数一样，就用3楼的