vba无效的标识符

对于以下代码Excel报告“UngültigerBezeichner”（无效的识别符）。 它所投诉的行是Select Case parts.Length 。 这是在抱怨parts 。 有任何想法吗？

 Public Sub parseFileName(fName As String, ByRef art As String, ByRef objnr As String, ByRef phase As String, ByRef index As String, ByRef text As String, ByRef warning As Boolean) Dim parts() As String parts = Split(fName, ".") parts = Split(fName, parts(0)) warning = False Select Case parts.Length Case Is < 5 ' not a valid filename, do nohting Return Case 5 ' old style file name art = part(0) objnr = part(1) text = part(2) index = part(4) Case 6 ' new stype file name art = part(0) phase = part(1) objnr = part(2) text = part(3) index = part(5) Case Is > 6 ' user used _ in text, do what we can and issue warning art = part(0) phase = part(1) objnr = part(2) text = part(3) index = part(5) warning = True End Select End Sub 

Answer 1

要确定VBA中的数组长度：

 Dim arrLength as Integer arrLength = UBound(parts) - LBound(parts) + 1