タイトル : Re^6: VB6参照設定(修正) 投稿日 : 2011/12/06(Tue) 23:31 投稿者 : あいあい
花ちゃん様、コードまで記述していただきありがとうございます。 > 下記を実行して同じエラーがでるのかどうかを試して見て下さい。 > (Excel の参照設定をしてください。) > > Option Explicit > > Private Sub Command1_Click() > Dim xlApp As Excel.Application > Dim xlBook As Excel.Workbook > Dim xlSheet As Excel.Worksheet > > Set xlApp = CreateObject("Excel.Application") > Set xlBook = xlApp.Workbooks.Add > Set xlSheet = xlBook.Worksheets(1) > xlApp.Visible = True > xlApp.CommandBars("Worksheet Menu Bar").Enabled = True > Set xlSheet = Nothing > xlBook.Close > Set xlBook = Nothing > xlApp.Quit > Set xlApp = Nothing > End Sub > 上記コードを実行した場合、EXCELウィンドウは表示されますが その後エラーとなり 「実行時エラー '-2147221163 (80040155)': '~' メソッドは失敗しました: '~' オブジェクト というメッセージが出ました。 > > 又は、参照設定せずに下記ではどうなるのか > > Option Explicit > > Private Sub Command1_Click() > Dim xlApp As Object > Dim xlBook As Object > > Set xlApp = CreateObject("Excel.Application") > Set xlBook = xlApp.Workbooks.Add > xlApp.Visible = True > xlApp.CommandBars(1).Enabled = True > xlBook.Close > Set xlBook = Nothing > xlApp.Quit > Set xlApp = Nothing > End Sub こちらはエラーなく実行できました。 実行時バインディングだとうまくいくのですね。 ありがとうございます。 > Data Formatting Object Library に起因していると言う事はありませんか? Data Formatting Object Library はどういうときに必要なのでしょうか。 参照設定しているものの、わかっておらず…。 よろしくお願いします。 |