[ツリー表示へ] [ワード検索] [Home]
タイトル ： Excelで罫線を作成したさいプロセスが残ってしまいます。 投稿日 ： 2005/11/14(Mon) 16:15 投稿者 ： Kentaro
| [OSのVer]：Windows2000 [VBのVer]：VB.NET 2003 いつも参考にさせて頂いています。今回初めて投稿させていただきます。 今回VB.NETでExcelを起動しデータ入力後、2つの違う種類の罫線を作成するというものを作っていま す。 こちらにあった過去の掲示板の記事等を参考にして作成したのですがプロセスが残ってしまいます。 １つ目の 罫線だけですと残らないのですが2つ目の罫線を作成するとプロセスが残ってしまいます。 どなたか御教授お願いします。 又、今回初めて掲示板に投稿するので文章等におかしい部分がありましたら大変申し訳ありません。 '***********************罫線作成部分 Dim objCells As Excel.Range Dim objRange As Excel.Range Dim objBorders As Excel.Borders Dim exrange1, exrange2 As Excel.Range objCells = xlSheet.Cells 'セルの範囲の指定 exrange1 = DirectCast(objCells._Default(2, 1), Excel.Range) exrange2 = DirectCast(objCells._Default(50, 10), Excel.Range) objRange = xlSheet.Range(exrange1, exrange2) objBorders = objRange.Borders '罫線の設定(一つ目) With objBorders(Excel.XlBordersIndex.xlInsideHorizontal) .LineStyle = 1 'Excel.XlLineStyle.xlContinuous .Weight = 1 End With '解放処理 NAR(exrange1) NAR(exrange2) NAR(objCells) NAR(objRange) NAR(objBorders) '↓↓↓↓↓こちらを書くとプロセスが残る objCells = xlSheet.Cells 'セルの範囲の指定 exrange1 = DirectCast(objCells._Default(1, 1), Excel.Range) exrange2 = DirectCast(objCells._Default(50, 10), Excel.Range) objRange = xlSheet.Range(exrange1, exrange2) objBorders = objRange.Borders '罫線の設定(2つ目) With objBorders(Excel.XlBordersIndex.xlInsideVertical) .LineStyle = 1 'Excel.XlLineStyle.xlContinuous .Weight = 2 End With '解放処理 NAR(exrange1) NAR(exrange2) NAR(objCells) NAR(objRange) NAR(objBorders) '*************************** 'Excel解放 Private Sub NAR(ByVal objXl As Object) Try System.Runtime.InteropServices.Marshal.ReleaseComObject(objXl) objXl = Nothing Catch ex As Exception objXl = Nothing End Try End Sub |
をクリックするとツリー全体を一括表示します） - Excelで罫線を作成したさいプロセスが残ってしまいます。 - Kentaro 11/14-16:15No.2572