| > '================== データ入力 ==================
> xlSheet.Cells.NumberFormatLocal = "@" '全体を文字列に
> xlSheet.Range("A1").Resize(1, 10).Value = dataArray '範囲指定貼付(これをループで行ってます)
Dim xlRange As Excel.Range
xlRange = xlSheet.Range("A1")
xlRange.Resize(1, 10).Value = dataArray
xlRangeの開放
上記のようにセルに関わるものは一回づつ変数に代入してから
使用したほうがいいかと思います。
> 'オブジェクトの解放
> Private Sub MRComObject(Of T As Class)(ByRef objCom As T)
> If objCom Is Nothing Then
> Return
> End If
> Try
> If System.Runtime.InteropServices.Marshal.IsComObject(objCom) Then
> System.Runtime.InteropServices.Marshal.FinalReleaseComObject(objCom)
> End If
途中で切れていますが例外が発生しても
System.Runtime.InteropServices.Marshal.FinalReleaseComObject(objCom)
この行は実行されますよね? |