[已解决]提取变量某部分字符 谢谢个位大神的帮助!!

cocoYan199015

变量=C:\Users\s044765\Desktop\Fichier\CSV\auto-20150323_1235.csv

如何获取  auto-20150323_1235 这部分字符串呢?

万分感谢

最佳答案

月排行榜 / 总排行榜

爱疯

2015-3-23 21:06

Sub test()
    Dim str As String
    Dim i As Integer

    str = "C:\Users\s044765\Desktop\Fichier\CSV\auto-20150323_1235.csv"
    i = VBA.InStrRev(str, "\")
    MsgBox Mid(str, i + 1)
End Sub

跳转到最佳答案楼层

26759761@qq.com

1. arr = Split("C:\Users\s044765\Desktop\Fichier\CSV\auto-20150323_1235.csv", "")
   
2. MsgBox Replace(arr(UBound(arr)), ".csv", "")

复制代码

cocoYan199015

auto-20150323_1235 这部分字符串 设成另一个变量

NomFichier = Replace(arr(UBound(arr)), ".csv", "")
有错误消息 怎么办呢　谢谢

baksy

附件

爱疯

Sub test()
    Dim str As String
    Dim i As Integer

    str = "C:\Users\s044765\Desktop\Fichier\CSV\auto-20150323_1235.csv"
    i = VBA.InStrRev(str, "\")
    MsgBox Mid(str, i + 1)
End Sub

cocoYan199015

26759761@qq.com 发表于 2015-3-23 20:41

thank you very much!!!!!

cocoYan199015

baksy 发表于 2015-3-23 21:06
附件

thank you, just i need code vba

cocoYan199015

爱疯 发表于 2015-3-23 21:06
Sub test()
    Dim str As String
    Dim i As Integer

.csv   还在, 怎么删掉呢?

爱疯

Sub test()
    Dim str As String
    str = "C:\Users\s044765\Desktop\Fichier\CSV\auto-20150323_1235.csv"
    str = Mid(str, VBA.InStrRev(str, "\") + 1)
    str = VBA.Replace(str, ".csv", "")
    MsgBox str
End Sub