Dim MyString, MyArray, Msg
MyString = "I Love testing for ever."
For i=0 to 4
MyArray=split(MyString," ")
’这边默认是空格,程序可以简单化MyArray=split(MyString)
Msg=MyArray(i)
msgbox "数组: " &Msg
Next
**************************
程序运行正确。
由此可以看出来不是split的问题,楼主能不能DataNum的值贴出来啊。