Passar para Proxima linha no Excel


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Passar para Proxima linha no Excel

$VALMIR$

UBERLANDIA
MG - BRASIL

ENUNCIADA !

Postada em 27/07/2007 09:39 hs

Galera, como faço para rodar dentro da tabela do excel até o final dela..
preciso passar para proxima linha.. como fazer?

Michel Morgado

SAO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 27/07/2007 10:04 hs

SE você estiver fazendo com RecordSet, você deve colocar assim.

Exemplo:

Dim rsExcel as New adodb.recordset

rsExcel.movenext

ASsim ele passa para o outro registro da planilha, dai você faz um loop enquanto nao for o final do arquivo.

FAV

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 27/07/2007 11:59 hs

Valmir,

Se a sua necessidade for encontrar o final a ultima linha preenchida na célula da planilha, você pode seguir os dois passos abaixo:

1º Você pode rodar um while se baseando pela a coluna de controle que sempre é presente e alimentando uma variável de posição.

Ex. Dim pos as integer

while cells(pos,1)<>""

pos=pos+1

wend

pos=pos+1

Ou o excel tem uma função que tambem funciona para chegar ao final da linha, é o mesmo que você apertar a tecla end e depois para baixo.

função: Selection.End(xlDown).Select

Ex.

dim pos as integer

Range("A1").select

Selection.End(xlDown).Select

pos=activecell.row+1

Mas para fazer tudo isso pelo VB você deve ter referenciado a biblioteca nas referencias do excel e criar um objeto de aplicação excel.

Ex.

Dim EX as Excel.application

set EX=createobject("excel.application")

e utilizar as funções de macro do excel quando se tratar de referencia a celulas do documento com o "EX" na frente

Ex.

EX.cells(pos,1)="teste"

$VALMIR$

UBERLANDIA
MG - BRASIL

ENUNCIADA !

Postada em 27/07/2007 15:02 hs

Amigo, esta acontecendo o seguinte erro..
"Application-defined or object-defined error" na linha do while.. veja meu codigo

Sub Teste_Excel()

Dim Excel As Object
Dim CodCurso As String
Dim NomeCurso As String
Dim Matricula As String
Dim NomeAluno As String
Dim DataNascimento As String
Dim NumroDocumento As String
Dim Pos As Integer

Dim ContLinha As Double
ContLinha = 1

Set Excel = CreateObject("Excel.Application")
Excel.Workbooks.Open filename:="j:     este.xls"
Excel.Visible = True
Excel.Sheets("Plan1").Select

While Excel.cells(Pos, 1) <> ""   'ESTA DANDO O ERRO AQUI...
        With Excel

            .Range("A" & CStr(ContLinha)).Select
            CodCurso = .activecell.Value

            .Range("B" & CStr(ContLinha)).Select
            NomeCurso = .activecell.Value

            .Range("C" & CStr(ContLinha)).Select
            Matricula = .activecell.Value

            .Range("D" & CStr(ContLinha)).Select
            NomeAluno = .activecell.Value

            .Range("E" & CStr(ContLinha)).Select
            DataNascimento = .activecell.Value

            .Range("F" & CStr(ContLinha)).Select
            NumroDocumento = .activecell.Value

            ContLinha = ContLinha + 1
        End With
        Pos = Pos + 1
Wend
Pos = Pos + 1

End Sub

JSFF

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 27/07/2007 15:14 hs

Boa tarde.

Valmir,

Inicialize a variável Pos antes do While, assim:

...

Pos = 1

While Excel.Cells(Pos, 1) <> ""

...

Teste aí.

JSFF

priscila
não registrado

ENUNCIADA !

Postada em 25/06/2010 21:47 hs

voces presisam aumentar esta letra.

Página(s): 1/2 PRÓXIMA »

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR