技术分享(求指教): 针对office开发中判断对象成员是否可用的一个函数

[bcrun]

其实可能是一个多余的东西,估计已经有现成的更好的办法.不过因为是有个OFFICE插件程序急着要改,先急着写个用着再说.谁有好的,请指点,马上给分:)

Sub Macro1()
    If (Not TestObjAvail(Selection.Range, "ShapeRange")) Then
        Debug.Print "not avail"
        Exit Sub
    Else
        Debug.Print Selection.Range.ShapeRange.Count
    End If

End Sub
'---------------------------------------------------------------------------------------
' 过程名    : TestObjAvail
' 时间      : 2013/2/27
' 作者      : 杨过.网狐.cn(csdn bcrun)
' 功能      : 测试对象变量是否可用,如可用则下一步可访问他的对象成员
' 说明      :
' 备注      : 星辰设计室VB一群:283362041,星辰学园BASIC辅导群:289219875
'---------------------------------------------------------------------------------------

Function TestObjAvail(obj1 As Object, vProp As String) As Boolean
    Dim o1 As Object
    TestObjAvail = False
    On Error GoTo TestObjAvail_Error
    
    Set o1 = CallByName(obj1, vProp, VbGet)
    If Not (o1 Is Nothing) Then
        TestObjAvail = True
        
    End If
    On Error GoTo 0
    Exit Function
    
TestObjAvail_Error:
    
    'MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure TestObjAvail of Module mdlMain"
End Function

[柠檬土豆泥]

真心说没看懂啊，亲

[bcrun]

引用 29 楼 h437134717 的回复:

但是 现在 还要使用这样的么 TestObjAvail = False On Error GoTo TestObjAvail_Error

你是和15楼一个意思吗,见19楼

[MuTiBingDu]

说实话 看不懂。。。

[stevenyou7]

谢谢楼主分享。。。！

[leolee82]

也可以用typename或typevalue判断selection的类型,excel中就这个selection问题多

[vansoft]

从上往下看完了，才明白楼主想干什么。 大概是office不同版本下，某些对象的某些属性时有时无， 所以需要判断一下，CallByName+错误处理是可以做到。 版主提到的tlbinfo是可以的，也就是枚举对象的属性和方法， 就跟VB的IDE中按了F2一样，网站有VB6的代码，你可以做成一个组件， 供你的程序调用就可以了。

[h437134717]

但是 现在 还要使用这样的么 TestObjAvail = False On Error GoTo TestObjAvail_Error

[mzxf512]

好好学习，天天向上

[milaoshu1020]

也可以利用Debug.Assert来判断是否是调试状态:

Public Function InDebugMode() As Boolean
    Debug.Assert SetTrue(InDebugMode)
End Function

Public Function SetTrue(byref val) As Boolean
    val = True
    SetTrue = True
End Sub

[mimixi666]

谢谢分享。。。

[TiiiiiiiME]

飘过，感谢楼主

[oppo11]

谢谢分享，我要

[ggxiaomeisk]

好！！！！！！！

[lrover]

学习这个方法。

[xslg1314]

谢谢分享 不错

[ljt1235]

不懂

[nettman]

[zhyzhsh]

引用 11 楼 bcrun 的回复:

补充说明一下,写这代码的直接原因,是因为Selection.Range在2007中能访问,但在WORD2003中时,如果文档中只有简单的文本,则会报这类错误: Error 5852 (应用程序定义或对象定义错误) 其实发帖时还想到了是否能通过tlbinfo之类的办法来做判断,但毕竟不熟那方面的,还需等待高人指点:)

首先要判断当前程序吧，不同Office程序的对象差别很大。接着再判断程序版本，这样写的代码就会比较安全，也比较容易维护。

[liuliupopo]

学习了！！！！

[天才在左疯子在右]

不会，这个真的不会