string - 将字符串拆分为字符数组？

如何将VBA字符串拆分为字符数组？

我尝试了Split(my_string, "")，但是没有用。

最佳答案

最安全，最简单的方法就是循环；

Dim buff() As String
ReDim buff(Len(my_string) - 1)
For i = 1 To Len(my_string)
    buff(i - 1) = Mid$(my_string, i, 1)
Next

如果您保证只使用ansi字符，则可以；

Dim buff() As String
buff = Split(StrConv(my_string, vbUnicode), Chr$(0))
ReDim Preserve buff(UBound(buff) - 1)

关于string - 将字符串拆分为字符数组？，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/13195583/