Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

Sign in to follow this  
joseA

RESOLVIDO[ListView]

Recommended Posts

joseA

Olá!!

😲

Como faço para carregar todos os dados de um ListView para uma folha??

Share this post


Link to post
Share on other sites
joseA

Boas,

Com esse procedimento conseguí, mas gostaria de carregar a partir da 2ª linha:

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

Share this post


Link to post
Share on other sites
joseA

Experimenta:

 For i = 2 To ListView1.ListItems.Count

Obrigado pela atenção,

Já tentei assim, no caso despreza a 1ª linha do ListView.

😲

Share this post


Link to post
Share on other sites
jmaocubo

Obrigado pela atenção,

Já tentei assim, no caso despreza a 1ª linha do ListView.

😲

Olá JoseA

Afinal o que pretendias era começar na folha na linha2!!! certo?

Não sei se irá funcionar, mas experimenta assim:

Dim cell As Range
Dim i As Integer, j As Integer
    If Target.Column = 1 And Target.Row > 1 Then
   
    'Loop as lignes
    For i = 1 To ListView1.ListItems.Count
        Cells(i, 1) = ListView1.ListItems(i).Text
       
        'Loop as colunas
        For j = 1 To ListView1.ColumnHeaders.Count - 1
            Cells(i, j + 1) = ListView1.ListItems(i).ListSubItems(j).Text
        Next j
    Next i     
        
               
        
    End If


Share this post


Link to post
Share on other sites
jmaocubo

Olá,

Sim! Exatamente.

Obrigado pelo empenho dispensado, mas deu erro. Segue arquivo modelo:

http://www.sendspace.com/file/z2yxwn

Olá JoseA

Penso que assim já é possivel:

Private Sub CommandButton1_Click()
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
    
  

End Sub

Cumprimentos,

Miguel

Share this post


Link to post
Share on other sites
joseA

Perfeito Miguel,

Funcionou perfeitamente, conforme solicitado.

:cheesygrin:

Muito obrigado pela vossa colaboração.

:cheesygrin:

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.