VisualBaic2005でExcelファイルを読む方法２

質問

temtecomai2さんにアドバイスを頂き、下記のようにプログラムを修正して実行してみたのですが、下記のエラーになりました。
Dim xlApplication As New Excel.Application()
Dim xlBooks As Excel.Workbooks
xlBooks = xlApplication.Workbooks
xlBooks.Open("C:\book1.xls")
↑を実行した時点で「保護されているメモリに読み取りまたは書き込み操作を行おうとしました。他のメモリが壊れていることが考えられます。」のエラーメッセージがでます。
新しいExcelブックの追加（xlBooks.Add()）を実行してもエラーはでないです。大変申し訳ないのですが、エラーの回避方法を教えてください。よろしくお願いいたします。

回答No.1

tom11 · ベストアンサー

こんにちは、

以下のように書くと私の環境では、上手くいきますが！！！！！！

Dim app As New Excel.Application
Dim wb As Excel.Workbook
Dim sheet1 As Excel.Worksheet

app.Visible = True

wb = app.Workbooks.Open("C:book1.xls")

sheet1 = wb.Worksheets.Item(1)

Debug.WriteLine(sheet1.Range("A1").Value.ToString)

app = Nothing

WorkbookとWorkbooksの使い方が、違っているようなきもしますが、
この辺を考慮して、試してみてください。

お礼

どうもありがとうございました。助かりました。