タイトル : Excel操作のサンプルでのエラー 投稿日 : 2006/01/22(Sun) 15:15 投稿者 : ラグ
[OSのVer]:Windows XP [VBのVer]:VB.NET [ExcelのVer]:Excel2002 今、Excelのファイルにデータを書き込みたいと思っていて、VB.NETからExcelを操作する方法を、 こちらのサイトで勉強していて、サンプルを利用してみました。 hhttp://www.bcap.co.jp/hanafusa/dotnet/Excel01.htm あらかじめ、テスト用の空のExcelファイルを用意して、 このサンプルの「既存のファイルを開く」の方をそのまま利用してみました。 すると、 Dim xlApp As New Excel.Application ここで、波下線が出てきて 「'New'をインターフェイスで使用することはできません。」 とメッセージが表示されました。 ここを他のサイトなどを参考にして Dim xlApp As Excel.Application xlApp = CreateObject("Excel.Application") と書き換えるとメッセージはなくなりました。 そして実行すると、 Dim xlBooks As Excel.Workbooks = xlApp.Workbooks ここの部分で ------------ 'System.Runtime.InteropServices.COMException' のハンドルされていない例外が mscorlib.dll で 発生しました。 追加情報 : メンバが見つかりません。 ------------ となってエラーメッセージが表示されました。 自動変数を見てみるとxlAppには System.__ComObject が Excel.Application型で格納されています。 過去ログを調べてみたところ、 hhttp://www.bcap.co.jp/hanafusa/bbs/wforum.cgi?mode=allread&no=974 で似たようなエラーとなっており、回答を参考にして Dim xlApp As Excel._Application = New Excel.Application() としてみましたが、 行末の()が自動的に無くなり、 先ほどと同じように、「'New'をインターフェイスで使用することはできません。」となります。 そこで ._Application型が定義されていませんとなっているので、参照設定を見ると ._Application型はなく、._ExcellApllicationがありましたので、利用してみましたが、 状況は変わりません。 ちなみに_Workbook 型もありませんでした。 試しに Dim xlApp As Excel._ExcelApplication = New Excel._ExcelApplication という風に宣言もしてみましたが、 Dim xlBooks As Excel.Workbooks = xlApp.Workbooks の所で同様の例外が発生してしまいます。 このサンプルを実行するにはどのようにすればいいでしょうか? 参照の設定では Microsoft Excel 10.0 ObjectLibrary を追加しました。 どなたか御教示いただけますでしょうか? |