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

Listview para Planilha (Resolvido)

Esclarecimentos e dúvidas sob o Modelo de Aplicativo de Cadastro em VBA no Microsoft Excel publicado no site e blog http://www.tomasvasquez.com.br
Neri

Listview para Planilha (Resolvido)

Mensagem por Neri »

tenho uma Listview que eu quero fazer uma das duas coisas:
- Ou imprimir direto a Listview ,
- ou mandar ela para uma planilha para depois imprimir.

quem tem um exemplo?
Vlw
Editado pela última vez por Neri em Qui Mar 01, 2012 7:35 am, em um total de 1 vez.


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.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Listview para Planilha

Mensagem por webmaster »

Neri,

Tem isso no modelo de cadastro, mas não é na listview. De qualquer forma, a fonte de dados para exportar para a planilha é o RecordSet, portanto, acho que não interfere. Dê uma olhada.

Abraços


Neri

Re: Listview para Planilha

Mensagem por Neri »

bom dia
posso estar enganado, porém para o listbox eu usava um comando e queria usar um semelhante, porém está dando um erro (em vermelho), mas precisamente na expressão ".List"

O que devo alterar?

'Pegando os dados do listbox (listview1)
With ListView1
'Colocando esses dados temporariamente em uma sheet (coloca em A1 16 colunas)
Sheets("Relacao").Visible = True
Plan3.Range("A2").Resize(.ListCount, 15).Value = .List


Avatar do usuário
joseA
Jedi
Jedi
Mensagens: 1048
Registrado em: Qui Out 22, 2009 7:22 am
Localização: Cel. Fabriciano - MG

Re: Listview para Planilha

Mensagem por joseA »

Transfere todos dados para Plan a partir de A2.

Código: Selecionar todos

 Dim i As Integer, j As Integer
    
   
   
    'Loop as lignes
    For i = 1 To ListView1.ListItems.Count
        Cells(i + 1, 1) = ListView1.ListItems(i).Text
        
        'Loop as colunas
        For j = 1 To ListView1.ColumnHeaders.Count - 1
            Cells(i + 1, j + 1) = ListView1.ListItems(i).ListSubItems(j).Text
        Next j
    Next i


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.


Avatar do usuário
Mauro Coutinho
Jedi
Jedi
Mensagens: 1561
Registrado em: Sáb Mar 13, 2010 8:10 pm
Localização: São José dos Pinhais - Pr

Re: Listview para Planilha

Mensagem por Mauro Coutinho »

Veja se ajuda :

Criar Filtros e Imprimir ( Mais uma vez ) [Resolvido]
http://www.planilhando.com.br/forum/vie ... 4&start=10

Filtrar ListView Criterios Datas e Texto
http://www.planilhando.com.br/forum/vie ... 586#p16974

E no Forum Tutorial e Dicas aqui mesmo, temos alguns exemplos :
viewforum.php?f=17

[]s


CROVADOR
Manda bem
Manda bem
Mensagens: 106
Registrado em: Ter Mar 13, 2018 11:15 am

Re: Listview para Planilha

Mensagem por CROVADOR »

bom dia amigos...
tenho uma Listview mas nao consigo gravar os dados da Listview para Planilha e ir para a proxima linha

por favor ajudem-me...
obrigado!


CROVADOR
Manda bem
Manda bem
Mensagens: 106
Registrado em: Ter Mar 13, 2018 11:15 am

Re: Listview para Planilha (Resolvido)

Mensagem por CROVADOR »

segue anexo para quem poder ajudar-me...
mais uma vez obrigado!
Anexos
TRANSFERIR ITENS DE TEXTBOX PARA LISTVIEW EXCEL VBA.rar
(22.99 KiB) Baixado 604 vezes


CROVADOR
Manda bem
Manda bem
Mensagens: 106
Registrado em: Ter Mar 13, 2018 11:15 am

segue código tambem para vcs ver

Mensagem por CROVADOR »

Private Sub cmd_salvar_Click()
Dim linha As Integer
Dim i As Integer
Dim Item As ListItem
Dim ws As Worksheet
On Error Resume Next
'cadastra registro na planilha Banco_Dados
'-------------------------------------

Set ws = ThisWorkbook.Worksheets("Banco_Dados")
linha = 2
With ws

Do Until Sheets("Banco_Dados").Cells(linha, 1) = ""
linha = linha + 1
Loop

For i = 1 To ListView1.ListItems.Count

Cells(i + 1, 1) = ListView1.ListItems(i).Text
Cells(i + 1, 2) = ListView1.ListItems(i).SubItems(1)
Cells(i + 1, 3) = ListView1.ListItems(i).SubItems(2)
Cells(i + 1, 4) = ListView1.ListItems(i).SubItems(3)
Cells(i + 1, 5) = ListView1.ListItems(i).SubItems(4)
Next

'Sheets("Banco_Dados").Cells(linha, 1) = UserForm1.TextBox1.Text
'Sheets("Banco_Dados").Cells(linha, 2) = UserForm1.TextBox2.Text
'Sheets("Banco_Dados").Cells(linha, 3) = UserForm1.TextBox3.Text
'Sheets("Banco_Dados").Cells(linha, 4) = UserForm1.TextBox4
'Sheets("Banco_Dados").Cells(linha, 5) = UserForm1.TextBox5

MsgBox "LANÇADO COM SUCESSO", vbInformation, "AÇÃO BEM SUCEDIDA!"

UserForm1.TextBox1.Text = ""
UserForm1.TextBox2.Text = ""
UserForm1.TextBox3.Text = ""
UserForm1.TextBox4 = ""
UserForm1.TextBox5 = ""

End With
End Sub


srobles
Jedi
Jedi
Mensagens: 805
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: Listview para Planilha (Resolvido)

Mensagem por srobles »

CROVADOR,

Veja se as alterações atendem sua demanda.

Abs
Anexos
TRANSFERIR ITENS DE TEXTBOX PARA LISTVIEW EXCEL VBA.zip
(21.67 KiB) Baixado 714 vezes


CROVADOR
Manda bem
Manda bem
Mensagens: 106
Registrado em: Ter Mar 13, 2018 11:15 am

Re: Listview para Planilha (Resolvido)

Mensagem por CROVADOR »

muito obrigado pela ajuda ajudou muito...
Deus abençoe esse site e a todos que ajudam...
obrigado...


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.


Responder