mas dá uma olhada nisso também..

 

Olha se dá erro na segunda vez, é porque a planilha está aberta, tente fechar assim:

        Set ewkb = Nothing
        Set ewks = Nothing

 

vlu//

 

Blz amigos, estou testando as sugestões, logo posto o resultado

 

Abraços

Olá amigos, bom dia.

Seguinte, consegui resolver os probleminhas e ainda dar uma otimizada no código, agora ficou bastante simples e pequeno. A sub-rotina abaixo exporta para excel dados obtidos de um select qualquer, já testei com Office 2000 e 2003 (eu havia chegado numa versão que dava erro apenas no 2000):

Sub ExportaVB6Excel()

    Dim strQuery As String
 
    Set ExlObj = CreateObject("excel.application")
    ExlObj.Workbooks.Add
    ExlObj.Visible = True
   
    '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)
   
    'Preenche a primeira linha com alguns valores fixos
    With ExlObj.ActiveSheet
        .Range("A1") = "Nome"
        .Range("B1") = "Contato 1"
        .Range("C1") = "Contato 2"
        .Range("D1") = "Cargo"
        .Range("E1") = "E-mail"
        .Range("F1") = "Regional"

        'Transfere o resultado da consulta acima para o excel
        .Range("A2").CopyFromRecordset Rs

        'Auto-ajusta a largura das colunas
        .Cells.EntireColumn.AutoFit
    End With

End Sub

 

Abraços e obrigado a todos

Alex Sandro

Alex Sandro, poderia me passar seu codigo completo, juntamente com a função CopyFromRecordset?

 

 Eu peguei essa função mas nao estou conseguindo fazer com que funcione, estou fazendo uma consulta  no mysql e preciso exporta-a para excel

 

Obrigado pela atenção

 

Carlos