Wagner,
Veja abaixo o código da applicação Web aqui da empresa que funciona exportando dados para o Excel.
Public Function ExportaDados(ByVal pHostAddress As String, ByVal pIdeUni As Double, ByVal pIdePlaGes As Double, ByVal pBuscaAvancada As cFiltroGestaoRisco.stcBuscaAvancada) As String
Try
Dim strReturnPath As String = String.Empty
Dim lExcel As New Excel.Application
Dim lBooks As Excel.Workbooks
Dim lBook As Excel.Workbook
Dim lSheets As Excel.Sheets
Dim lSheet As Excel.Worksheet
Dim lCells As Excel.Range
Try
'String.Format("{0}\TmpExcel\TmpExcel.xls", pHostAddress)
Dim lDir As New System.IO.DirectoryInfo(String.Format("{0}arquivos\GestaoRiscos", pHostAddress))
If lDir.Exists Then
For Each lFile As System.IO.FileInfo In lDir.GetFiles
If lFile.CreationTime < DateTime.Today Then lFile.Delete()
Next
Else : System.IO.Directory.CreateDirectory(String.Format("{0}arquivos\GestaoRiscos", pHostAddress))
End If
Dim lFileName As String = String.Empty
Select Case Avaliacao
Case eRiscos.Ambiental
lFileName = Resources.Resource.Ambientais
Case eRiscos.Saude + eRiscos.SegurancaOcupacional
lFileName = Resources.Resource.Ocupacionais
Case eRiscos.Financeira
lFileName = Resources.Resource.Financeiros
Case eRiscos.Operacional
lFileName = Resources.Resource.Operacionais
Case eRiscos.ParteInteressada
lFileName = Resources.Resource.PartesInteressadas
End Select
Dim lTemplatePath As String = String.Format("{0}Templates\GestaoRiscos\{1} - {2}.xls", pHostAddress, Resources.Resource.GestaoDeRiscos, lFileName) 'Caminho do arquivo Template
strReturnPath = String.Format("{0}arquivos\GestaoRiscos\Tmp{1}_{2}.xls", pHostAddress, lFileName, DateTime.Now.ToString().Replace("/", String.Empty).Replace(":", String.Empty).Replace(" ", String.Empty))
lExcel.Visible = False
lExcel.DisplayAlerts = False
'Start a new workbook
lBooks = lExcel.Workbooks
'Carrega o arquivo de template
lBooks.Open(lTemplatePath)
'Pega o primeiro Workbook
lBook = lBooks.Item(1)
'Carrega as planilhas do arquivo
lSheets = lBook.Worksheets
'Pega a primeira planilha do arquivo
lSheet = CType(lSheets.Item(1), Excel.Worksheet)
'Seta o nome da planilha
lSheet.Name = String.Format("{0} {1}", Resources.Resource.Riscos, lFileName)
'Carreta as células da planilha
lCells = lSheet.Cells
'Setando as linhas da planilha
Me.OpenDataReader(Me.RetornaRiscosPorAplicacao(pIdeUni, pIdePlaGes, pBuscaAvancada, True))
Select Case Avaliacao
Case eRiscos.Ambiental
PreencheCelulasAmbiental(lCells)
Case eRiscos.Saude + eRiscos.SegurancaOcupacional
PreencheCelulasOcupacional(lCells)
Case eRiscos.Financeira
PreencheCelulasFinanceiro(lCells)
Case eRiscos.Operacional
PreencheCelulasOperacional(lCells)
Case eRiscos.ParteInteressada
PreencheCelulasPartesInteressadas(lCells)
End Select
lCells.Columns.AutoFit()
'Salva arquivo
lSheet.SaveAs(strReturnPath)
Catch ex As Exception
Throw ex
Finally
lBook.Close()
'Finaliza o Excel e desaloca os objetos
lExcel.Quit()
ReleaseComObject(lCells) : ReleaseComObject(lSheet)
ReleaseComObject(lSheets) : ReleaseComObject(lBook)
ReleaseComObject(lBooks) : ReleaseComObject(lExcel)
lExcel = Nothing : lBooks = Nothing : lBook = Nothing
lSheet = Nothing : lCells = Nothing : lSheets = Nothing
'Coletor de lixo
System.GC.Collect()
End Try
Return strReturnPath
Catch ex As Exception
Throw ex
End Try
End Function
Pode ser porque no seu código você não esta chamando o método Quit do objeto Excel.
E também usamos o método ReleaseComObject da classe Marshal do .Net.
E depois chamamos o GC por precaução.
Espero ter ajudado.
Douglas Aguiar
MCAD, MCT
