エクセルを表示できない

質問

プログラム初心者です。

Private Sub Command3_Click()
On Error Resume Next
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

With xlApp.Application
Set xlApp = GetObject("F:\vb6.0\book1.xls")
Set xlBook = xlApp.Workbooks.Open("Book1")
Set xlSheet = xlBook.Worksheets(1)

xlApp.Application.Visible = True
End Sub

と入力したのですが、実行してボタンをクリックしてもエクセルの表が表示されません。なぜでしょうか？

回答No.1

piyo2000 · ベストアンサー

>Set xlApp = GetObject("F:\vb6.0\book1.xls")
は
Set xlApp = CreateObject("Excel.Application")
か
Set xlApp = New Excel.Application
ですね。
この場合GetObject()だと、Excelが起動してないとダメなはずです。
GetObject=すでに起動しているインスタンスを参照
CreateObject=新規にインスタンスを作成
ですよ。

回答No.2

pen_pen_pen

piyo2000さんに補足します。
その前に
>With xlApp.Application
を締める
End With
が無くて怒られましたよ。この1行は不要です。

>Set xlApp = GetObject("F:\vb6.0\book1.xls")
はpiyo2000さんの通り。

ekuekuさんはこの1行でファイルを開こうとしたと思いますが、ファイルを開くのは次の
>Set xlBook = xlApp.Workbooks.Open("Book1")
です。ここを
Set xlBook = xlApp.Workbooks.Open("F:\vb6.0\book1.xls")
に変えてくださいね。

あとは、しばらくの間だけでも
>On Error Resume Next
はコメントにされた方がどんなエラーなのか分かると思いますよ。