タイトル | : Excelオープン、クローズ |
記事No | : 8877 |
投稿日 | : 2009/04/24(Fri) 09:13 |
投稿者 | : ると |
こんにちは。 下記の用に設定してVB.NETからExcelをオープン、クローズさせています。 1回目にオープンさせる時はエラーなく上手くいくのですが 2回目にオープンさせるときに
xlBook = xlBooks.Open(xlFilePathO) ↑この箇所で 「オブジェクト参照がオブジェクト インスタンスに設定されていません。」 とエラーになります。 Publicで宣言してあるので再度宣言しなくても大丈夫だと思うのですが・・・。 タスクで見てみてもExcel自体は立ち上がってるようです。 何が問題なのでしょうか?
Public xlApp As New Excel.Application Public xlBooks As Excel.Workbooks = xlApp.Workbooks Public xlBook As Excel.Workbook = Nothing Public xlSheets As Excel.Sheets = Nothing Public xlSheet As Excel.Worksheet = Nothing
Public Function ExcelOpen()
xlFilePathO = "TEST1.xls"
xlBook = xlBooks.Open(xlFilePathO) xlSheets = xlBook.Worksheets
'// Excelの表示 xlApp.Visible = True
End Function
Public Sub ExcelClose()
'================== 終了処理 ===================== MRComObject(xlSheet) 'xlSheet の解放 MRComObject(xlSheets) 'xlSheets の解放 xlBook.Close(False) 'xlBook を閉じる MRComObject(xlBook) 'xlBook の解放 MRComObject(xlBooks) 'xlBooks の解放 xlApp.Quit() 'Excelを閉じる MRComObject(xlApp) 'xlApp を解放
End Sub
|