关于CallByName无法设置自定义类Property属性值的疑惑

qqwe13

因为我是网页与VBA联合使用，需要从HTML中下传设置信息，中间使用CallByName 来转接相关变量，但是遇到如下问题
如果我的自定义类中的属性 使用 Property 限制，CallByName 会报错，如果取消Property 方式，则不会出问题

我需要使用Property 来校验数据，这个没法忽略，请教各位大神，这个有什么方法可以回避么？
附测试文件

1. '我的自定义类 globalData
   
2. Private plnNumOfPaper As Long '每页纸上的贴纸数量v
   
3. Public Property Let lnNumOfPaper(s As Double)
   
4. plnNumOfPaper = s
   
5. End Property
   
6. 
   
7. Public Property Get lnNumOfPaper() As Double
   
8. lnNumOfPaper = plnNumOfPaper
   
9. End Property

复制代码

1. Option Explicit
   
2. Dim gbdata As globalData
   
3. '功能函数
   
4. Function GetStringFromHtmlData(name As String, data As Variant) As String
   
5. CallByName gbdata, name, VbLet, data '此处总是提示类型不符
   
6. End Function
   
7. 
   
8. Sub Test()
   
9. Set gbdata = New globalData
   
10. GetStringFromHtmlData "lnNumOfPaper", "34"
    
11. End Sub
    

复制代码

如果我将自定义类模块中的属性直接改成Public赋值，就没问题比如下面这样

1. '我的自定义类 globalData
   
2. Public lnNumOfPaper As Long '每页纸上的贴纸数量v

复制代码

已经解决，感谢“风清扬”，自定义类中的属性也改成Variant，对于此问题可以修复。遗留问题是我的自定义类中，其他Public属性的变量，像string类型，long类型都可以直接赋值，如果使用Property 方式，就必须设置变量类型跟传入参数的函数一致才行，不知为什么 暂时做个标记

1. '我的自定义类 globalData
   
2. Private plnNumOfPaper As Variant'每页纸上的贴纸数量v
   
3. Public Property Let lnNumOfPaper(s As Variant)
   
4. plnNumOfPaper = s
   
5. End Property
   
6. 
   
7. Public Property Get lnNumOfPaper() As Variant
   
8. lnNumOfPaper = plnNumOfPaper
   
9. End Property

复制代码

qqwe13

自己顶一下，求关注，请求大神帮忙解答下

qqwe13

Visual Basic 语言参考


CallByName 函数

执行对象的方法，或者设置或返回对象的属性。

Public Function CallByName( _
   ByVal ObjectRef As System.Object, _
   ByVal ProcName As String, _
   ByVal UseCallType As CallType, _
   ByVal Args() As Object _
) As Object
参数
ObjectRef
必选。Object。指向公开属性或方法的对象的指针。

ProcName
必选。String。包含对象的属性名或方法名的字符串表达式。

UseCallType
必选。CallType 枚举类型的枚举成员，表示所调用过程的类型。CallType 的值可以是 Method、Get 或 Set。

Args
可选。ParamArray。参数数组，包含要传递给所调用的属性和方法的参数。

这个函数的介绍中明确说了可以对GET SET 操作，为什么我这里会出错，我忽略了什么地方的小细节了么？