| タイトル | ： Excelで罫線を作成したさいプロセスが残ってしまいます。 |
| 記事No | ： 2572 |
| 投稿日 | ： 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
|