tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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 はどういうときに必要なのでしょうか。
参照設定しているものの、わかっておらず…。

よろしくお願いします。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。