style propertie causing excel not being released

Z

zino

the following procedure in visual studio 2005, works fine and the Excel
process can be released successfully, but when I try to use the Style
propertie (between doted lines below), it looks that some hidden object is
created which I'm not able to release:

Public sub SaveExcel(ByVal filePath As String)
Dim xl As Excel.Application
Dim wbs As Excel.Workbooks
Dim wb As Excel.Workbook
Dim sheets As Excel.Sheets
xl = New Excel.Application
wbs = xl.Workbooks
wb = wbs.Add()
sheets = wb.Worksheets
xl.Visible = False
Dim range As Excel.Range = xl.ActiveCell
sheets(1).Range("A1") = "Client code:"

'---------------------------------------------------------------------------
Dim labelStyle As Excel.Style
labelStyle = wb.Styles.Add("myStyle")
..... ...
... .
' ----------------------------------------------------------------------------

ReleaseComObject(labelStyle)
labelStyle = Nothing
xl.DisplayAlerts = False
wb.SaveAs(filePath, FileFormat:=Excel.XlFileFormat.xlExcel7)
ReleaseComObject(range)
Dim sheet As Excel.Worksheet
For Each sheet In sheets
ReleaseComObject(sheet)
Next
ReleaseComObject(sheets)
wb.Close(False)
xl.Quit()
ReleaseComObject(wb)
ReleaseComObject(wbs)
ReleaseComObject(xl)
End sub



Private Sub ReleaseComObject(ByRef Reference As Object)
Try
Do Until System.Runtime.InteropServices.Marshal.ReleaseComObject(Reference)
<= 0
Loop
Catch
Finally
Reference = Nothing
End Try
End Sub


thanks for help.
 
W

Wei Lu [MSFT]

Hello Zino,

Yes, when you use the wb.Styles.add(), it will create a Style Collection
object.

So in your code, you need to explicitly create a collection object and
release it.


Sincerely,

Wei Lu
Microsoft Online Community Support

==================================================

When responding to posts, please "Reply to Group" via your newsreader so
that others may learn and benefit from your issue.

==================================================
This posting is provided "AS IS" with no warranties, and confers no rights.
 
W

Wei Lu [MSFT]

Hi ,

How is everything going? Please feel free to let me know if you need any
assistance.

Sincerely,

Wei Lu
Microsoft Online Community Support

==================================================

When responding to posts, please "Reply to Group" via your newsreader so
that others may learn and benefit from your issue.

==================================================
This posting is provided "AS IS" with no warranties, and confers no rights.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top