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.

ūüė≤

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.

ūüė≤

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.