Selecionar item do ListView

[Clauido José 3]

Galera é seguinte tenho um sisteminha que to fazendo onde ele lista o conteudo de um diretorio preenchendo um listBox com os arquivo contidos nele são planilhas excel quero que faça automatico um consolidadados com todas essas planilhas eliminando uma por uma o listview, quando tem um arquivo o só ele funcionalegal quando tem mais de um ele da erro veja como estou fazendo.

 

 

Dim linha As String
linha = Me.lstArquivos.ListIndex + 1
Me.TextBox1.Value = lstArquivos.Value
If lstArquivos.ListCount = 0 Then
MsgBox "fim ", vbInformation, "Mensagem"
Else
lstArquivos.RemoveItem (lstArquivos.ListIndex)
End If

 

[KhaosDoctor 242]

Não entendi o que você quer fazer

[Clauido José 3]

bom hoje pra fazer a consolidação de varios arquivos excel levamos 5h para fazer isso estou fazendo um sisteminha em vba que vai automatizar esse processo por exemplo num diretorio tem 20 arquivos excel exemplo o sistema le esse diretorio joga os arquivos num listbox vai fazendo a consolidacao, tipo pega o 1o. a elimina do listbox pega o 2o. e elimina da listbox assim sucessivamente, entendeu.

[KhaosDoctor 242]

Você quer consolidar os arquivos ou você quer eliminar os duplicados?