將功能拆分爲數組。類型不匹配錯誤＃13

我有一個字符串，其中多個電子郵件地址用分號隔開，並希望將它們拆分爲不同的值。將功能拆分爲數組。類型不匹配錯誤＃13

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

來源

2016-02-11 Cloude

使RecipientArray變成一個普通的Variant而不是一個Variant數組。

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

來源

2016-02-11 18:31:57 HansUp

謝謝。我實際上是這樣工作的：Dim RecipientArray（）As String。我不知道爲什麼之前沒有工作。出於好奇，我也嘗試了你的解決方案，它也起作用。再次感謝。 – Cloude

將功能拆分爲數組。類型不匹配錯誤＃13

回答

相關問題