- 871 名前：デフォルトの名無しさん mailto:sage [2012/03/28(水) 23:50:44.42 ]
-
' 閉じる時の自動実行処理
Private Sub Auto_Close()
Dim xlAPP As Application
Dim objBar As CommandBar
Set xlAPP = Application
★Set objBar = xlAPP.CommandBars(g_cnsTITLE)
objBar.Delete
Set objBar = Nothing
End Sub
★の部分で
実行時エラー'5':
プロシージャの呼び出し、または引数が不正です。
となります。原因と対策をご教示下さい。
