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个位置为空。

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

1 个答案: