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
