Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Carregar ListView com dados externo

Dúvidas gerais sobre Excel
Jamilson
Colaborador
Colaborador
Mensagens: 14
Registrado em: Sex Ago 31, 2012 10:47 am

Carregar ListView com dados externo

Mensagem por Jamilson »

Boa noite todos!
Olá Pessoal,
Alguém pode dar uma ajudinha?

Primeiro quero agradecer este fórum todos vocês pela ajuda e aprendizado nestes anos, obrigado.

Estou com este projeto de "Registro de Ocorrência Diária", estou apanhando no carregamento da ListView1.
ao abri o formulário teria que carregar os lançamentos e os lançamento do dia ficar com a cor cinza, loco acima filtro
entre duas dadas para filtragem no mesmo ListView1.
e tenho que criar um código para o relatório ainda.

Segue em anexo toda da Planilha, desde já agradeço.
Obrigado!
Anexos
Registro_ocorrencia.rar
(114.88 KiB) Baixado 191 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Jamilson
Colaborador
Colaborador
Mensagens: 14
Registrado em: Sex Ago 31, 2012 10:47 am

Re: Carregar ListView com dados externo

Mensagem por Jamilson »

Uma luz
Estou escrevendo este código, onde pode esta o erro? para carregar o ListView 1 no formulario2


Sub carregar_dados()

modWorkDB.sbIniciaObjetos

Dim Valor_Celula As String
Dim linha As Integer
linha = 1

Dim LinhaListbox As Integer
LinhaListbox = 0

Do

linha = linha + 1
Valor_Celula = objWsheet.Cells(linha, 1).Text
If Ucse(Left(Valor_Celula, Len(txt_data_inicial.Text))) = UCase(txt_data_inicial.Text) Then

With ListView1
.AddItem

.List(LinhaListbox, 1) = objWsheet.Cells(linha, 1).Text
.List(LinhaListbox, 2) = objWsheet.Cells(linha, 2).Text
.List(LinhaListbox, 3) = objWsheet.Cells(linha, 3).Text
.List(LinhaListbox, 4) = objWsheet.Cells(linha, 4).Text
.List(LinhaListbox, 5) = objWsheet.Cells(linha, 5).Text
.List(LinhaListbox, 6) = objWsheet.Cells(linha, 6).Text
.List(LinhaListbox, 7) = objWsheet.Cells(linha, 7).Text
.List(LinhaListbox, 8) = objWsheet.Cells(linha, 8).Text
.List(LinhaListbox, 9) = objWsheet.Cells(linha, 9).Text
.List(LinhaListbox, 10) = objWsheet.Cells(linha, 10).Text
.List(LinhaListbox, 11) = objWsheet.Cells(linha, 11).Text
.List(LinhaListbox, 12) = objWsheet.Cells(linha, 12).Text
.List(LinhaListbox, 13) = objWsheet.Cells(linha, 13).Text
.List(LinhaListbox, 14) = objWsheet.Cells(linha, 14).Text
.List(LinhaListbox, 15) = objWsheet.Cells(linha, 15).Text
.List(LinhaListbox, 16) = objWsheet.Cells(linha, 16).Text
.List(LinhaListbox, 17) = objWsheet.Cells(linha, 17).Text
.List(LinhaListbox, 18) = objWsheet.Cells(linha, 18).Text
.List(LinhaListbox, 19) = objWsheet.Cells(linha, 19).Text
.List(LinhaListbox, 20) = objWsheet.Cells(linha, 20).Text

End With

LinhaListbox = LinhaListbox + 1

End If

Loop Until objWsheet.Cells(linha, 2).Value = ""

Call Desconecta

End Sub


Responder