Office TANAKA - Excel VBA(ブックが開かれているかどうか調べる)

Office TANAKA - Excel VBA(ブックが開かれているかどうか調べる): "Sub Sample4() On Error Resume Next Err.Clear Open 'C:\Book1.xls' For Append As #1 Close #1 If Err.Number > 0 Then MsgBox 'すでに開かれています' Else MsgBox 'ブックは開かれていません' End If End Sub"