确定是否调用属性的一般方法会引发错误

Question

假设您有一张带有一个图表的幻灯片，并且您运行此代码（在2007年之后的Office版本中）：

Dim pptWorkbook As Object
Dim result As Object

Set pptWorkbook = ActivePresentation.slides(1).Shapes(1).Chart.ChartData.Workbook
Set result = pptWorkbook.ContentTypeProperties

您将生成错误：

应用程序定义或对象定义的错误

我相信这是因为“Office 2010中不推荐使用智能标记。”（ 来源 ），一般来说，为了避免抛出错误和退出VBA这类问题，您可以采用以下两种方法之一：

//Method 1
If OfficeVersion <= 2007
    Set result = pptWorkbook.ContentTypeProperties

//Method 2
On Error Resume Next // or GOTO error handler
Set result = pptWorkbook.ContentTypeProperties

方法一要求您知道属性导致错误的具体原因，这在这种情况下很容易，但对于其他属性可能不那么容易。 方法二要求您使用某种形式的错误处理来处理错误事实之后，我对大多数其他Microsoft语言的理解通常是不鼓励的（ 例如 ， 另一个例子 ）。 这是VBA的标准做法吗？

在VBA中，有没有其他方法可以确定对象的属性是否会在调用时抛出错误，BEFORE调用该属性，并且不知道该调用属性的细节？

Answer 1

我喜欢为这种情况做的是创建一个单独的函数来检查属性是否存在并返回一个布尔值。 在这种情况下，它看起来像这样：

Public Function CheckIfExists(targetObj As Object) As Boolean
Dim testObj As Object
On Error GoTo failedTest:
Set testObj = targetObj.ContentTypeProperties
CheckIfExists = True
Exit Function
failedTest:
CheckIfExists = False
End Function

如果该属性导致错误，则返回false;如果不是，则返回true

然后将您的子修改为：

Public Sub FooSub()
Dim pptWorkbook As Object
Dim result As Object

Set pptWorkbook = ActivePresentation.slides(1).Shapes(1).Chart.ChartData.Workbook
If CheckIfExists(pptWorkbook) Then
    Set result = pptWorkbook.ContentTypeProperties
End If

...其余代码或适当的错误处理......

希望这会有所帮助，TheSilkCode