access将文本拆分转化为一个数组

有网友问到如何把文本转换成变量数组。

有下面文字“This website is office-cn”。我们希望把这段文字拆分单词后放入数组中。

拆分我们可以使用split函数。空白用space（1）即可

Sub TheSplitFunction()
  
  Dim vaWords As Variant
  Dim i As Long
  
  vaWords = Split("This website is office-cn.", Space(1))
  
  For i = LBound(vaWords) To UBound(vaWords)
    Debug.Print vaWords(i)
  Next i
  
End Sub

vawords变量将是包含四个元素的变量数组，这个元素分别是This、website、is、office-cn。

分隔符是一个空格，并未包含在元素中。