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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Ler arquivo xls até o final
Eh Nhois
SAO PAULO
SP - BRASIL
Postada em 27/06/2006 18:06 hs         
Boa noite galera!

Seguinte, estou abrindo um arquivo Excel (.xls) via VB6. Leio linha por
linha com For Next.
Pergunto: como faço para saber o fim do arquivo (a última linha que tenha
informação).

Agradeço a todos!
     
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 27/06/2006 18:13 hs            
o seu For ... next não está tendo fim??
Como vc faz? Coloca o código aqui por favor :)
     
Eh Nhois
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 28/06/2006 10:19 hs         
Hoje eu faço assim: abro o arquivo xls, vejo a última linha e altero o programa. Assim:
 
For x = 1 to 632     (última linha do arquivo xls)
Next
 
Ridículo, mas é o máximo que eu consegui.
   
Eh Nhois
SAO PAULO
SP - BRASIL
Postada em 28/06/2006 14:53 hs         
Putz! Falei um absurdo. Na verdade eu abro o arquivo xls, vejo a última linha e digito em um textbox. Depois faço o for next:
 
For x = 1 to val(Textbox)
Next
 
     
Eh Nhois
SAO PAULO
SP - BRASIL
Postada em 05/07/2006 09:54 hs         
E aí galera, alguém tem alguma luz? Deve haver uma marca de fim de arquivo no Excel, afinal quando você digita Ctrl + End ele vai pra última linha.
     
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 05/07/2006 16:12 hs            
Dim ws As Excel.Application
Dim xlw As Excel.Workbook
 
Set ws = New Excel.Application
Set xlw = ws.Workbooks.Open("c:arq.xls")
For i = 1 To ws.ActiveCell.SpecialCells(xlL astCell).Row 'última célula
Next
 
tenta ae...
 
t+
TÓPICO EDITADO
   
Página(s): 1/2      PRÓXIMA »

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