使用VB函數拆分我得到編譯錯誤：「不能分配給數組」。

Question

我正在嘗試使用split（）函數根據Microsoft Access中給定名稱字符串中的空格拆分出名稱。當試圖編譯我在下面寫的代碼時，我得到一個編譯錯誤：「不能分配給數組」。

誰能告訴我我做錯了什麼？

Public Function cleanName(position As Integer, inName As String) As String 

Dim nameArray() As String 
Dim outName As Variant 

nameArray = Split(inName, " ") 

Select Case position 
    Case 1 'Titles 
     outName = nameArray(0) 
    Case 2 'First Name 
     outName = nameArray(1) 
    Case 3 'Middle Name 
     outName = nameArray(2) 
    Case 4 'Last Name 
     outName = nameArray(3) 
    Case 5 'Suffix 
     outName = nameArray(4) 
    Case Else 
End Select 

cleanName = outName 

End Function 

Answer 1

嘗試修改你的代碼是這樣的：

nameArray() = Split(inname, " ")