function 中split方法字符转换数组报错--类型不匹配

dbluep

Sub Macro2()

Dim str, mailtxt() As String

str = "时间:2024-04-15 16:18:19 任务 基础产品"
str1 = cs1("时间:2024-04-15 16:18:19 任务 基础产品")    '此条可正确执行
str1 = cs1(str)  '此处编译时报错--ByRef参数类型不符
MsgBox str1



End Sub


Function cs1(neirong As String) As String
Dim str, mailtxt() As String

str = neirong

mailtxt = Split(str, " ")
'mailtxt = Split(str, Chr(32))
cs1 = ""
For i = LBound(mailtxt) To UBound(mailtxt)
        Debug.Print mailtxt(i)
cs1 = cs1 & "*" & mailtxt(i)
Next
End Function

--------------------------------------------------------
Sub Macro3()

Dim str, mailtxt() As String

MsgBox zlqchtab("收寄时间:2024-04-15 16:18:19 产品:法院专递 基础产品:国内特快专递")

End Sub
，，，，，，，，，，，，，，，，，，，，，，，，，，，，，
Function zlqchtab(neirong As String) As String  
  Dim zlxx(), mailtxt(), bxxl(), str As String

str = "时间:2024-04-15 16:18:19 任务 基础产品"

'zlxx(0) = ""
mailtxt = Split(str, " ")  '此处执行时报错--类型不匹配
mailtxt = Split(neirong, Chr(32))
For i = LBound(mailtxt) To UBound(mailtxt)

zlqchtab = zlqchtab & "*" & mailtxt(i)
Next
End Function



该如何修改
请大神指导！！！

taller

excel玉米

这里的dim str  要写成 dim str as string，才能和后面的函数 neirong As String 一致。

tanglf188

试试这样定义函数呢
Function cs1(ByVal neirong As String) As String

dbluep

excel玉米 发表于 2024-4-25 09:58
这里的dim str  要写成 dim str as string，才能和后面的函数 neirong As String 一致。

多谢，问题解决了，还是定义变量的问题，还是VB不熟悉，以为和C一样可以一次定义多个变量