如何使用CallByName函数？

作者：绿色风分类：时间：2022-08-17 浏览：109

楼主
水星钓鱼

Q：如何使用CallByName函数？
A：CallByName函数可以通过一种方式获取某个对象的属性或者执行它的方法。
它的语法规则如下：

Public Function CallByName( _
ByVal ObjectRef As System.Object, _
ByVal ProcName As String, _
ByVal UseCallType As CallType, _
ByVal Args() As Object _
) As Object

其中第一个参数是要访问的对象名，第二个参数是这个对象对应的方法或者属性名，第3个参数是它的访问类型，可以是vbGET、vbLET、vbSET、VbMethod,第4个参数是要对应的方法或者属性所需要的参数值。
其中vbGET表示获取某个属性值，vbLET表示设置某个属性值、VbMethod表示是执行该对象的方法。

如以下代码可以执行A1单元格对象的Clear方法

Sub lyq()
Dim obj As Range
Set obj = Range("a1")
CallByName obj, "clear", VbMethod
End Sub

如以下代码可以设置A1单元格的value属性值

Sub lyq()
Dim obj As Range
Set obj = Range("a1")
CallByName obj, "Value", VbLet, "abc"
End Sub

如以下代码可以获取A1单元格的值

Sub lyq()
Dim obj As Range
Set obj = Range("a1")
MsgBox CallByName(obj, "Value", VbGet)
End Sub

当然在实际操作中我们没有必要用这种方式去访问单元格对象的属性和方法。CallByName 用在类模块或者访问其它外接对象时很有用。

2楼
wise

又学习了，阿星好厉害啊

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表