VBA：測試工作簿是否爲

Question

編輯：我真正的問題是如何測試是否設置了實例化的對象。我並不是真的想要「糾正」我的代碼。它只是一個例子。

我有一個返回工作簿的功能：

編輯：添加代碼

Sub GetWb() as Workbook 

Application.DisplayAlerts = False 
Application.EnableEvents = False 
On Error Resume Next 
Set wM = Application.Workbooks.Open("Z:\somepath.xlsm", ReadOnly:=True) 
Application.EnableEvents = True 
Application.DisplayAlerts = True 
On Error GoTo 0 

end sub 

在另一個子我要檢查，如果該對象是由功能正確設置。我通常不喜歡這樣使用對象一般爲：

dim w as Workbook 
set w = GetWb 
if w is nothing then 
debug.print "no workbook" 
else 
debug.print "workbook" 
end if 

然而，is nothing測試不工作，因爲對象實例化，但沒有設置所以它是什麼，不是什麼。

我已經使出這個醜陋的解決方案，工作正常：

dim w as Workbook 
set w = GetWb 
on error goto someerrorhandling 
if w.name = "" then 
end if 
on error goto 0 
'other code here 


someerrorhandling: 
msgbox "no workbook" 

換句話說，我檢查對象的屬性，迫使一個錯誤，還是不行。必須有更好/更清潔的方式。

我檢查這個環節說我這樣做的方式是最好的方法： VBA: Conditional - Is Nothing

Answer 1

改變你的錯誤處理GetWB所以它沒有返回櫃面錯誤的，也可以使用函數而不是子。

Function GetWb() As Workbook 

    Application.DisplayAlerts = False 
    Application.EnableEvents = False 

    On Error GoTo errHandler: 

    Set GetWb = Application.Workbooks.Open("Z:\somepath.xlsm", ReadOnly:=True) 
    Application.EnableEvents = True 
    Application.DisplayAlerts = True 

errHandler: 
     If Err.Number <> 0 Then 
      Set GetWb = Nothing 
      Application.EnableEvents = True 
      Application.DisplayAlerts = True 
     End If 

End Function