VBA将字符串从文件目录拆分为子字符串

Question

我已经搜索了很多这个主题，但没有找到我的确切问题。此外，我似乎不知道如何调整代码示例以供我使用。

我正在尝试将“文件目录字符串”从右到左拆分为子字符串。

"C:\Users\Me\CustomerName\ProductName\2017\"

然后从右到左拆分为

year
productname
customername

我尝试使用 Split() 让它工作，总是在错误的地方拆分它。

Answer 1

你提到你已经尝试过Split，所以这是一个好的开始：

Option Explicit

Public Sub TestMe()

    Dim strFolderString As String
    Dim arrFolderString As Variant

    strFolderString = "C:\Users\Me\CustomerName\ProductName\2017\"
    arrFolderString = Split(strFolderString, "\")

    Debug.Print arrFolderString(UBound(arrFolderString) - 1)
    Debug.Print arrFolderString(UBound(arrFolderString) - 2)
    Debug.Print arrFolderString(UBound(arrFolderString) - 3)

End Sub

这个想法是使用UBound 作为从右到左。我不是从0开始的，因为你的字符串以\结尾，所以第0位是空的。