タイトル : 掛線を書いて、EXCELを終了 投稿日 : 2004/07/20(Tue) 18:08 投稿者 : kkouzi
[OSのVer]:Windows XP Professional [VBのVer]:VB.NET 2003 Office 2000使用 いつも参考にさせてもらっています。 質問なのですが、下記のようなプログラムを書いて、EXCEL上に掛線を引きたいのですが、 Excelのプロセスが残ります。 Bordersのオブジェクトを解放する必要があるのは分かったのですが、書き方をいろいろ 変えてみたのですが、上手くいきません。何か方法はあるのでしょうか? すみませんがよろしくお願いします。 'アプリケーションオブジェクト取得用変数 Dim objApp As Excel.Application 'ブックスオブジェクト取得用変数 Dim objbooks As Excel.Workbooks 'ブックオブジェクト取得用変数 Dim objbook As Excel.Workbook 'シートオブジェクト取得用変数 Dim objsheet As Excel.Worksheet '掛線オブジェクト取得用変数 Dim objBorders As Excel.Borders 'アプリケーションオブジェクト生成 objApp = New Excel.Application 'ワークブック開く objbooks = objApp.Workbooks 'ブックを追加 objbook = objbooks.Add '現在、アクティブなシートを取得する objsheet = objApp.ActiveSheet '掛線を引く objBorders = _ objsheet.Cells(1, 1).Borders objBorders.LineStyle = Excel.XlLineStyle.xlContinuous 'オブジェクト解放 System.Runtime.InteropServices.Marshal.ReleaseComObject(objBorders) objBorders = Nothing System.Runtime.InteropServices.Marshal.ReleaseComObject(objsheet) objbook.Close(False) objsheet = Nothing System.Runtime.InteropServices.Marshal.ReleaseComObject(objbook) objbook = Nothing System.Runtime.InteropServices.Marshal.ReleaseComObject(objbooks) objbooks = Nothing objApp.Quit() System.Runtime.InteropServices.Marshal.ReleaseComObject(objApp) objApp = Nothing 'ガーベジコレクト起動 GC.Collect() |