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