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

Boa tarde.

 

Modifique seu laço "For" para isso:

 

For i = 0 To .Rows

...

 

 

da erro do mesmo jeito =/

Você poderia descrever esse erro?

da erro de subscript out of range

tipo, diz q a linha esta vazia para exportar para o excel...

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.