Excel Application close problem -- vb

[saaprasad2002]

i opened an excel application using follwing code to load test data to run mstest cases


Public Class ExcelMatrixRead er

Public oXL As Excel.Applicati on
Public oWB As Excel.Workbook
Public oSheet As Excel.Worksheet
Public path As String

Public ExValuetoPass As String
Public Exexpected As String

Dim searchmethod As String
Dim scenariokey As String

Dim irow As Integer
Dim icol As Integer


Public Sub New(ByVal s As String)
path = s
End Sub



Private Sub NAR(ByVal o As Object)
Try
System.Runtime. InteropServices .Marshal.Releas eComObject(o)

Catch
Finally
o = Nothing
End Try
End Sub



Public Sub FindScenario(By Val classname As String, ByVal scenarioke As String)

'Try
oXL = CreateObject("E xcel.Applicatio n")
'oWB = oXL.Workbooks.O pen("C:\source\ Source\UnitTest s\Integration\S ecureSync\Test_ Data\IronMtn.St ringFormatter.T est.Data.xls")
oWB = oXL.Workbooks.O pen(path)
oSheet = oWB.Worksheets( classname)
scenariokey = scenarioke
'irow = 3
icol = 1
For irow = 1 To 20
searchmethod = Convert.ToStrin g(oSheet.Cells( irow, icol).Value)


If (searchmethod.E quals(scenariok ey)) Then ' if equal return -1

ExValuetoPass = Convert.ToStrin g(oSheet.Cells( irow, icol + 1).Value)
Exexpected = Convert.ToStrin g(oSheet.Cells( irow, icol + 2).Value)
'oXL.Quit()
End If

Next irow
'Catch ex As System.Runtime. InteropServices .COMException


oXL.Quit()



NAR(oSheet)
NAR(oWB)
NAR(oXL)
GC.Collect()

End Sub

End Class


here is the test case in mstest



<TestClass()> Public Class StringFormatter Test

Private Exobj As New TestData.ExcelM atrixReader("C: \source\Source\ UnitTests\Integ ration\SecureSy nc\Test_Data\Ir onMtn.StringFor matter.Test.Dat a.xls")
Private testContextInst ance As TestContext

'''<summary>
'''Gets or sets the test context which provides
'''information about and functionality for the current test run.
'''</summary>
Public Property TestContext() As TestContext
Get
Return testContextInst ance
End Get
Set(ByVal value As TestContext)
testContextInst ance = value
End Set
End Property




''''<summary>
''''A test for ToUSAPhoneForma t()
''''</summary>
<TestMethod() > _
Public Sub ToUSAPhoneForma tTest()
Dim valueToPass As String
Dim expected As Object
Dim actual As Object
Dim target As StringFormatter

' Scenario 1 : Passing Numbers with characters
exobj.FindScena rio("StringForm atter", "ToUSAPhoneForm atTest.Scenario 1")
valueToPass = exobj.ExValueto Pass
target = New StringFormatter (valueToPass)
expected = exobj.Exexpecte d
actual = target.ToUSAPho neFormat()
Assert.AreEqual (expected, actual, "StringFormatte r.ToUSAPhoneFor mat() Scenario 1 did not return the expected value.")


'' Scenario 2 : Passing Numbers
exobj.FindScena rio("StringForm atter", "ToUSAPhoneForm atTest.Scenario 2")
valueToPass = exobj.Exvalueto Pass
target = New StringFormatter (valueToPass)
expected = exobj.Exexpecte d
actual = target.ToUSAPho neFormat()
Assert.AreEqual (expected, actual, "StringFormatte r.ToUSAPhoneFor mat) Scenario 2 did not return the expected value.")

'' Scenario 3 : Passing Numbers and characters , number count less than 10
exobj.FindScena rio("StringForm atter", "ToUSAPhoneForm atTest.Scenario 3")
valueToPass = exobj.Exvalueto Pass
target = New StringFormatter (valueToPass)
expected = exobj.Exexpecte d
actual = target.ToUSAPho neFormat
Assert.AreEqual (expected, actual, "StringFormatte r.ToUSAPhoneFor mat() Scenario 3 did not return the expected value.")

End Sub




after running the application still the EXCEL.EXE is running in the task manager

can u please help me to overcome this problem