错误消息Byref类型不匹配

Question

这是代码

Dim Comp_Str, Comp_Val As String
Call Populate(Comp_Str, Comp_Val)

Sub Populate(Str As String, Tpry_Str As String)

这是一个错误 Byref参数类型不匹配

我无法找到问题所在

其String一路

Answer 1

声明每个变量的类型。如果省略一个，则默认情况下它的类型被视为Variant。

Sub Test()
    Dim Comp_Str As String, Comp_Val As String
    Call Populate(Comp_Str, Comp_Val)
End Sub

Sub Populate(Str As String, Tpry_Str As String)
    ' ...
End Sub