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

Listar arquivos em listbox VBA

Ponto de encontro entre aqueles que precisam e fornecem soluções baseadas no Microsoft Excel e VBA. Precisa de uma solucão em VBA? É um consultor ou programador independente? Esse é o lugar!
Marcelo nunes
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Ter Nov 05, 2013 7:35 pm

Listar arquivos em listbox VBA

Mensagem por Marcelo nunes »

Boa tarde. tenho um necessidade de trabalho e encontrei no Blog um código com título "EXCEL – LISTAR ARQUIVOS EM DIRETÓRIO NUM LISTBOX" e precisaria de uma adaptação do mesmo, é o seguinte:
Consulto arquivos .jpg constantemente e para tal, adaptei o seguinte código:

Sub Teste_Fotos()

Dim Pasta As String
Dim Arquivo As String

Pasta = "C:\Users\txmarcelo.00918\Documents\Fotos Teste\"
Arquivo = Me.txtFoto.Text & ".jpg"
Shell "rundll32.exe C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen " & Pasta & Arquivo, vbNormalFocus

End Sub

Onde digito o nome do arquivo em txt.Foto e sou direcionado para o visualizador de imagens do Windows, já com o arquivo aberto.

Porém os produtos passaram a ter várias fotos ex: F100(1), F100(2), F100 Conj. F110, etc...
como meu código só funciona com o o nome de arquivo específco, pensei em criar uma primeira etapa onde, ao consultar um arquivo como "F100", carregasse em uma listbox todos os arquivos que contém esses caracteres em seu nome, foi aí que encontrei seu código.
Porém, ele lista todos os arquivos do diretório e não consegui adaptar um filtro para ele.

será que você pode me ajudar?
Desde já agradeço.


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.


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

Re: Listar arquivos em listbox VBA

Mensagem por srobles »

Marcelo Nunes,

Experimente algo como o que segue :

Código: Selecionar todos

'Etapa de verificação de nome de arquivo que deve estar em uma variável
If Mid(nome_do_arquivo,1, Len(Me.txtFoto)) = Me.txtFoto then
   ' Adiciona os itens ao listbox
End If
Abs


Marcelo nunes
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Ter Nov 05, 2013 7:35 pm

Re: Listar arquivos em listbox VBA

Mensagem por Marcelo nunes »

Deu certo, tive um pouco de dificuldade em adaptar ao código por se tratar de uma funtion, que não é meu forte, mas ficou ótimo.
Obrigado Srobles.
Não estou conseguindo marcar como respondido !!!


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

Re: Listar arquivos em listbox VBA

Mensagem por srobles »

Marcelo Nunes,

Que bom que funcionou meu amigo.

Quaisquer dúvidas, estamos aí.

Abs


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
Rafael Monteiro
Consultor
Consultor
Mensagens: 277
Registrado em: Seg Nov 28, 2011 8:27 am
Localização: Sorocaba - SP
Contato:

Re: Listar arquivos em listbox VBA

Mensagem por Rafael Monteiro »

É importante resaltar que esse tópico é para serviços e não para dar suporte, pra isso existe outros tópicos. Por favor respeitar as regras. Regra desse tópico


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