vba - 获取编译错误 : argument type mismatch error

Question

Option Explicit

Sub data()

Dim a, b As String

a = "demo"
b = "text"    

Call getValue(a, b)

End Sub


Sub getValue(a As String, b As String)    

Cells(1, 1).Value = a
Cells(1, 2).Value = b

End Sub

我收到编译时错误:上述代码上的 byref 参数类型不匹配错误

Answer 1

当您定义 Dim a, b As String这意味着仅限 b As String而a As Variant .您需要为您定义的每个变量显式定义类型。

将您的行修改为:Dim a As String, b As String ，它会工作。