blocks|key|2862|text|试试这个：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|2863|Dim+myarray+As+Variant
myarray+=+Array("Cat",+"Dog",+"Rabbit")|code-block|syntax|javascript|2864|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

Try this: 

<pre><code>Dim myarray As Variant
myarray = Array("Cat", "Dog", "Rabbit")
</code></pre>

blocks|key|2900|text|使用|type|unstyled|depth|inlineStyleRanges|entityRanges|data|2901|Dim+myarray+As+Variant|code-block|syntax|javascript|2902|有效，但是|2903|Dim+myarray+As+String|2904|没有，所以我坐到了变种|2905|entityMap^0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|O|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|Q|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|R|8|@]|9|@]|A|$E|F]]|$1|K|3|L|5|6|7|S|8|@]|9|@]|A|$]]|$1|M|3|-4|5|6|7|T|8|@]|9|@]|A|$]]]|N|$]]

Using

<pre><code>Dim myarray As Variant
</code></pre>

works but 

<pre><code>Dim myarray As String
</code></pre>

doesn't so I sitck to Variant

blocks|key|2964|text|在字符串数组的特定情况下，您可以使用Split+Function初始化该数组，因为它返回字符串数组而不是变量数组：|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|2965|Dim+arrWsNames()+As+String
arrWsNames+=+Split("Value1,Value2,Value3",+",")|code-block|syntax|javascript|2966|这允许您避免使用Variant数据类型，并为arrWsNames保留所需的类型。|2967|entityMap|0|LINK|mutability|MUTABLE|url|http://msdn.microsoft.com/en-us/library/6x627e5f(v=vs.90).aspx^0|I|E|0|0|0|0^^$0|@$1|2|3|4|5|6|7|S|8|@]|9|@$A|T|B|U|1|V]]|C|$]]|$1|D|3|E|5|F|7|W|8|@]|9|@]|C|$G|H]]|$1|I|3|J|5|6|7|X|8|@]|9|@]|C|$]]|$1|K|3|-4|5|6|7|Y|8|@]|9|@]|C|$]]]|L|$M|$5|N|O|P|C|$Q|R]]]]

In the specific case of a String array you could initialize the array using the <a href="http://msdn.microsoft.com/en-us/library/6x627e5f(v=vs.90).aspx">Split Function</a> as it returns a String array rather than a Variant array:

<pre><code>Dim arrWsNames() As String
arrWsNames = Split("Value1,Value2,Value3", ",")
</code></pre>

This allows you to avoid using the Variant data type and preserve the desired type for arrWsNames.

blocks|key|2981|text|这里的问题是数组的长度是未定义的，如果数组被显式定义为字符串，这会使VBA感到困惑。然而，变体似乎能够根据需要调整大小(因为它们占用了大量内存，人们通常会出于一系列原因避免使用它们)。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|2982|下面的代码运行得很好，但与其他一些语言相比，它有点手动：|2983|Dim+SomeArray(3)+As+String

SomeArray(0)+=+"Zero"
SomeArray(1)+=+"One"
SomeArray(2)+=+"Two"
SomeArray(3)+=+"Three"|code-block|syntax|javascript|2984|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|L|8|@]|9|@]|A|$]]|$1|D|3|E|5|F|7|M|8|@]|9|@]|A|$G|H]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

The problem here is that the length of your array is undefined, and this confuses VBA if the array is explicitly defined as a string. Variants, however, seem to be able to resize as needed (because they hog a bunch of memory, and people generally avoid them for a bunch of reasons).

The following code works just fine, but it's a bit manual compared to some of the other languages out there:

<pre><code>Dim SomeArray(3) As String

SomeArray(0) = "Zero"
SomeArray(1) = "One"
SomeArray(2) = "Two"
SomeArray(3) = "Three"
</code></pre>

blocks|key|219747|text|Dim+myStringArray()+As+String
*code*
redim+myStringArray(size_of_your_array)|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|219748|然后你可以像这样做一些静态的事情：|unstyled|219749|myStringArray+=+{+item_1,+item_2,+...+}|219750|或者像这样的迭代：|219751|Dim+x
For+x+=+0+To+size_of_your_array
++++myStringArray(x)+=+data_source(x).Name
Next+x|219752|entityMap^0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|O|8|@]|9|@]|A|$B|C]]|$1|D|3|E|5|F|7|P|8|@]|9|@]|A|$]]|$1|G|3|H|5|6|7|Q|8|@]|9|@]|A|$B|C]]|$1|I|3|J|5|F|7|R|8|@]|9|@]|A|$]]|$1|K|3|L|5|6|7|S|8|@]|9|@]|A|$B|C]]|$1|M|3|-4|5|F|7|T|8|@]|9|@]|A|$]]]|N|$]]

<pre><code>Dim myStringArray() As String
*code*
redim myStringArray(size_of_your_array)
</code></pre>

Then you can do something static like this: 

<pre><code>myStringArray = { item_1, item_2, ... }
</code></pre>

Or something iterative like this:

<pre><code>Dim x
For x = 0 To size_of_your_array
 myStringArray(x) = data_source(x).Name
Next x
</code></pre>

blocks|key|219792|text|一个只需要什么的函数，它的工作方式与array()类似，但提供了一个字符串类型。您必须首先将数组调暗为string，如下所示：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|219793|Sub+UseStringArray()

++++Dim+sample()+As+String
++++sample+=+StringArray("dog",+"cat",+"horse")

End+Sub

Function+StringArray(ParamArray+ArgList())

++++ReDim+tempArray(UBound(ArgList))+As+String
++++For+i+=+0+To+UBound(ArgList)
++++++++tempArray(i)+=+ArgList(i)
++++Next
++++StringArray+=+tempArray

End+Function|code-block|syntax|javascript|219794|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

An only-what's-needed function that works just like array() but gives a string type. You have to first dim the array as string, as shown below:
<pre><code>Sub UseStringArray()

 Dim sample() As String
 sample = StringArray(&quot;dog&quot;, &quot;cat&quot;, &quot;horse&quot;)

End Sub

Function StringArray(ParamArray ArgList())

 ReDim tempArray(UBound(ArgList)) As String
 For i = 0 To UBound(ArgList)
 tempArray(i) = ArgList(i)
 Next
 StringArray = tempArray

End Function
</code></pre>

This should work according to another stack overflow post but its not:

<pre><code>Dim arrWsNames As String() = {"Value1", "Value2"}
</code></pre>

Can anyone let me know what is wrong?

Declare and Initialize String Array in VBA

这应该根据另一个堆栈溢出帖子工作，但它不是：Dim arrWsNames As String() = {"Value1", "Value2"}谁能让我知道哪里出了问题？

问在VBA中声明和初始化字符串数组
EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问在VBA中声明和初始化字符串数组EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问在VBA中声明和初始化字符串数组
EN