Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

joseA

RESOLVIDO[ListView]

Mensagens Recomendadas

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

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros 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.

:shocking:

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
jmaocubo

Obrigado pela atenção,

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

:shocking:

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


Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros 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

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.