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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Exportar GRID para o Excel
Juliana T.
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 15/09/2008 14:11 hs         
Pessoal, vejam se conseguem me ajudar.
Estou tentando exportar dados de uma grid para o EXCEL.... Só que não esta dando certo na hora de fazer o LOOP. Preciso encontrar uma condição que diga q na hora que não tiver mais dados parar o LOOP.
Segue abaixo meu código:
 
    i = 0
    l = 0
    exclsheet.Rows(1).Font.Bold = True
         For i = 0 To 999999
         l = l + 1
               exclsheet.Cells(l, 1).Value = .TextMatrix(i, 0)
               exclsheet.Cells(l, 2).Value = .TextMatrix(i, 1)
               exclsheet.Cells(l, 3).Value = .TextMatrix(i, 2)
               exclsheet.Cells(l, 4).Value = .TextMatrix(i, 3)
               exclsheet.Cells(l, 5).Value = .TextMatrix(i, 4)
               exclsheet.Cells(l, 6).Value = .TextMatrix(i, 5)
               exclsheet.Cells(l, 7).Value = .TextMatrix(i, 6)
            Next
 
Me ajudem!!! PLEASE
   
DeFreitas
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 15/09/2008 15:23 hs            
Boa tarde.
 
Modifique seu laço "For" para isso:
 
For i = 0 To .Rows
...
 
 
   
Juliana T.
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 15/09/2008 15:59 hs         
da erro do mesmo jeito =/
   
DeFreitas
SÃO PAULO
SP - BRASIL
Postada em 15/09/2008 16:58 hs            
Você poderia descrever esse erro?
     
Juliana T.
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 15/09/2008 17:11 hs         
da erro de subscript out of range
tipo, diz q a linha esta vazia para exportar para o excel...
   
DeFreitas
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 15/09/2008 17:37 hs            
Poderia mostrar mais algumas partes do seu código para tentarmos entender melhor o que pode estar havendo? Esse erro é de índice de "array" maior que sua capacidade.
   
Página(s): 1/2      PRÓXIMA »


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