Vamos lá então, estou tentando o seguinte (resultado da adaptação de uns 3 codigos diferentes):
Sub RelExcel()
Dim EApp As Object
Dim EwkB As Object
Dim EwkS As Object
Dim strQuery As String
Dim a, b As String
Dim i As Integer
Dim Exlc As New Chart
'Cria a componente da classe application
'Inclui um novo arquivo e uma nova planilha
Set EApp = CreateObject("Excel.Application")
Set EApp = Excel.Application
Set EwkB = EApp.Workbooks.Add
Set EwkS = EwkB.Sheets(1)
'Exibe a aplicação Excel
EApp.Application.Visible = True
'Preenche a primeira e a segunda coluna com alguns valores numéricos
Range("A1") = "Nome"
Range("B1") = "Contato 1"
Range("C1") = "Contato 2"
Range("D1") = "Cargo"
Range("E1") = "E-mail"
Range("F1") = "Regional"
'Cria consulta no banco de dados usando a conexão da aplicação para exportar para o excel
strQuery = "SELECT E.nome, E.contato1, E.contato2, E.email, E.cargo, E.regional FROM Equipe e, cargos c WHERE e.cargo = c.cargo ORDER BY e.regional, C.Classificador, E.nome;"
Set Rs = CNN.Execute(strQuery)
'Transfere o resultado da consulta acima para o excel
With Worksheets(EwkS.Name).Range("A2")
.CopyFromRecordset Rs
End With
Cells.EntireColumn.AutoFit
End Sub
o problema é que dá erro na segunda vez consecuiva q tento exportar o relatório. Já passeio por fases que dava erro se fechasse o excel gerado pela primeira vez. Ou então abria uma nova aplicação excel porem gravava na primeira.
