USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Exportando dados para o Excel
Juliana T.
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 16/06/2010 12:06 hs         
Boa tarde galeraa! Sera que alguem poderia me ajudar?
Eu estou fazendo uma consulta no banco que me retorna cerca de 100 mil linhas! E preciso exportar isso para o excel. Estou exportando para o excel novo que nao tem limites de linhas, o meu problema, eh que esta muitooo lento! Ele demora quase 8 horas para fazer isso! Alguem sabe me dizer o que eu posso fazer para que isso se torne mais rapido? Pois a consulta ao banco esta rapida, nao demora nem dois minutos! O problema mesmo eh na hora de exportar o arquivo.
 
Estou fazendo assim...
 
exclSheet.Cells(z, 9).Value = rs(5) 'numnota
                exclSheet.Cells(z, 10).Value = rs(6)
                exclSheet.Cells(z, 11).Value = rs(7)
                exclSheet.Cells(z, 12).Value = Format(rs(8), "yyyy/mm/dd")
                exclSheet.Cells(z, 13).Value = Format(rs(9), "yyyy/mm/dd")
                exclSheet.Cells(z, 14).Value = rs(10)
                exclSheet.Cells(z, 15).Value = rs(11)
                exclSheet.Cells(z, 16).Value = rs(12)
                exclSheet.Cells(z, 17).Value = rs(13)
                exclSheet.Cells(z, 18).Value = rs(14)
                exclSheet.Cells(z, 19).Value = rs(15)
                exclSheet.Cells(z, 20).Value = rs(16)
                exclSheet.Cells(z, 21).Value = Format(rs(17), "##,##0.00")
                exclSheet.Cells(z, 22).Value = Format(rs(18), "##,##0.00")
                exclSheet.Cells(z, 23).Value = Format(rs(19), "##,##0.00")
                exclSheet.Cells(z, 24).Value = Format(rs(20), "##,##0.00")
                exclSheet.Cells(z, 25).Value = Format(rs(21), "##,##0.00")
                exclSheet.Cells(z, 26).Value = Format(rs(22), "##,##0.00")
                exclSheet.Cells(z, 27).Value = Format(rs(23), "##,##0.00")
                exclSheet.Cells(z, 28).Value = rs(24)
                z = z + 1
                rs.MoveNext
   
Juliana
não registrado
ENUNCIADA !
Postada em 03/08/2010 09:26 hs   
Galeraaaa, por favor? Alguem sabe me ajudar???
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2022   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página