将regexp匹配发送到字符串数组-sendregexpmatchestoanarrayofstrings

3  

You should not use "name" as a variable name as it conflicts with an excel property. Try sName or sNames instead, where s is for string.

您不应将“name”用作变量名，因为它与excel属性冲突。请尝试使用sName或sNames，其中s代表字符串。

With a array you need to give it a size before you can assign a value to each element.

对于数组，您需要先为其指定大小，然后才能为每个元素指定一个值。

Dim sNames(4) As String  '// Or Dim sNames(1 To 4) As String

sName(1) = "John"
...
sName(4) = "Sam"

or if you don't know the total number of elements (names) to begin with then:

或者如果你不知道开始的元素（名称）的总数，那么：

Dim sNames() As String
Dim iTotalNames As Integer

iTotalNames = '// Some code here to determine how many names you will have

ReDim sNames(iTotalNames) '// You can also use ReDim Preserve if you have existing elements

sName(1) = "John"
...
sName(4) = "Sam"

So I suspect you will need something like:

所以我怀疑你需要这样的东西：

  Dim sNames() As String
  Dim iTotalNames As Integer

  '// Your code ....

  iTotalNames = iTotalNames + 1
  ReDim Preserve sNames(iTotalNames)
  sNames(iTotalNames) = Trim(Left(temp2, Len(temp2) - 3))

  '// Rest of your code ...

Also in VBA all dimensioning of variables should be at the top of the module.

同样在VBA中，变量的所有维度都应位于模块的顶部。

0  

change

更改

'call this "A"
Dim temp2 As String
temp2 = myMatches.Item(0)

to

至

'stick this at the top
 redim temp2(0 to 0)

'replace "A" with this
 new_top = ubound(temp2)+1
 redim preserve temp2 (0 to new_top)
 temp2(new_top) = myMatches.Item(0)