获取编译错误:参数类型不匹配错误

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,它将起作用.