タイトル : Re^10: VB6参照設定(修正) 投稿日 : 2011/12/10(Sat) 15:04 投稿者 : あいあい
> Dim objCmd As Object > Set objCmd = xlApp.CommandBars 'A > Set bars = objCmd 'B > にした場合、失敗するのは A の行と B の行のいずれでしょうか。 Aでエラーとなり エラーメッセージは同じです。 Aを指示の通り差し替えて Dim bars As Office.CommandBars 'Set bars = xlApp.CommandBars Dim objCmd As Object 'Set objCmd = xlApp.CommandBars 'A Dim objApp As Object Set objApp = xlApp Set objCmd = objApp.CommandBars Set bars = objCmd 'B としたところ、Bにて 実行時エラー'13': 型が一致しません。 となります。 |