|
Subject:
|
EXCEL process stays in memory even after deallocat
|
|
Posted By:
|
kool_creative
|
Post Date:
|
1/13/2006 4:04:49 AM
|
i am using EXCEL objects in a web apllication to pupulate data from a excel file. i am using code
Dim table(,) As String
Dim i, j As Integer
Dim xApp As New Excel.Application
Dim xWBS As Workbooks = xApp.Workbooks
Dim xWB As Workbook
Dim xWS As Excel.Worksheet
Dim xWSS As Object
xWBS.Open(FilePath)
xWB = xWBS.Item(1)
xWSS = xWB.Worksheets
xWS = xWSS.Item(1)
Dim xRange As Excel.Range
xRange = xWS.UsedRange
Dim xCols As Object = xRange.Columns
Dim xRows As Object = xRange.Rows
Dim xRowCount As Integer
xRowCount = xRows.Count
Dim xColCount As Integer
xColCount = xCols.Count
Dim inti, intj, iRow, iCol As Integer
iRow = 0
iCol = 0
ReDim table(xRowCount, xColCount)
For inti = 1 To xRowCount + 1
For intj = 1 To xColCount
table(iRow, iCol) = xRows(inti).Cells(intj).Text.ToString()
table(iRow, iCol) = table(iRow, iCol).Replace("'", "''")
iCol += 1
Next
iCol = 0
iRow += 1
Next
xWBS.Close()
xApp.Quit()
ReleaseComObject(table)
ReleaseComObject(xRows)
ReleaseComObject(xCols)
ReleaseComObject(xRange)
ReleaseComObject(xWSS)
ReleaseComObject(xWS)
ReleaseComObject(xWBS)
ReleaseComObject(xWB)
ReleaseComObject(xApp)
Private Sub ReleaseComObject(ByRef Reference As Object)
Try
Do Until System.Runtime.InteropServices.Marshal.ReleaseComObject(Reference) <= 0
Loop
Catch
Finally
Reference = Nothing
System.GC.Collect()
System.GC.WaitForPendingFinalizers()
End Try
End Sub
it is working fine if i don't use this code
For inti = 1 To xRowCount + 1
For intj = 1 To xColCount
table(iRow, iCol) = xRows(inti).Cells(intj).Text.ToString()
table(iRow, iCol) = table(iRow, iCol).Replace("'", "''")
iCol += 1
Next
iCol = 0
iRow += 1
Next
when i use this code to read data from excel file then the EXCEL process stays in memory.
can anyone help
khizar,lahore,pakistan
|
|
