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

Question

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

我试图将一个"文件目录字符串"从右到左拆分为子字符串。

"C:UsersMeCustomerNameProductName2017"

然后从右向左拆分到

year
productname
customername

我尝试使用Split((使其工作，但总是将其拆分到错误的位置。

Answer 1

您提到您已经尝试过Split，所以这是一个良好的开端：

Option Explicit
Public Sub TestMe()
Dim strFolderString As String
Dim arrFolderString As Variant
strFolderString = "C:UsersMeCustomerNameProductName2017"
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个位置是空的。