将函数拆分为数组。类型不匹配错误 #13

Question

我有一个包含多个用分号分隔的电子邮件地址的字符串，我想将它们拆分成单独的值。

Dim RecipientArray() As Variant 'I've also tried as string
Debug.Print txtRecipients.Value
RecipientArray = Split(txtRecipients.Value, ";") 'error happens here
For i = 0 To UBound(RecipientArray)
    Debug.Print RecipientArray(i)
Next

Answer 1

将 RecipientArray 设为普通 Variant 而不是 Variant 数组。

'Dim RecipientArray() As Variant 'I've also tried as string
Dim RecipientArray As Variant