Boa tarde!!

Qual versão você usa?

Leia:
http://forum.imasters.com.br/topic/4386 ... ara-excel/

Outros:
http://www.spectralcore.com/fullconvert ... d-to-excel
http://softwaresolution.informer.com/Ex ... -to-Excel/

Autor: J.V.A

Dim conn As ADODB.Connection, rst As ADODB.Recordset 
Dim row As Long 
 
Set conn = New ADODB.Connection 
conn.Open "DRIVER=Firebird/InterBase(r) driver;UID=SYSDBA;PWD=masterkey;DBNAME=C:Program FilesFirebirdFirebird_1_5examplesEmployee.fdb" 
Set rst = New ADODB.Recordset 
 
rst.Open "Select * From CUSTOMER", conn, adOpenDynamic, adLockOptimistic 
row = 5 
With Me 
    Do While Not rst.EOF 
        .Range("A" & CStr(row)).Value = rst.Fields(1) 
        .Range("B" & CStr(row)).Value = rst.Fields(2) 
        .Range("C" & CStr(row)).Value = rst.Fields(3) 
        .Range("D" & CStr(row)).Value = rst.Fields(4) 
        .Range("E" & CStr(row)).Value = rst.Fields(5) 
        .Range("F" & CStr(row)).Value = rst.Fields(6) 
         
        rst.MoveNext 
        row = row + 1 
         
    Loop 
End With 

Att

nao sei cara....preciso que a pessoa entre via remoto e faça o serviço pra mim