Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Listar arquivos em listbox VBA
-
- Acabou de chegar
- Mensagens: 2
- Registrado em: Ter Nov 05, 2013 7:35 pm
Listar arquivos em listbox VBA
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.
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.
Re: Listar arquivos em listbox VBA
Marcelo Nunes,
Experimente algo como o que segue :
Abs
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
-
- Acabou de chegar
- Mensagens: 2
- Registrado em: Ter Nov 05, 2013 7:35 pm
Re: Listar arquivos em listbox VBA
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 !!!
Obrigado Srobles.
Não estou conseguindo marcar como respondido !!!
Re: Listar arquivos em listbox VBA
Marcelo Nunes,
Que bom que funcionou meu amigo.
Quaisquer dúvidas, estamos aí.
Abs
Que bom que funcionou meu amigo.
Quaisquer dúvidas, estamos aí.
Abs
- Rafael Monteiro
- Consultor
- Mensagens: 277
- Registrado em: Seg Nov 28, 2011 8:27 am
- Localização: Sorocaba - SP
- Contato:
Re: Listar arquivos em listbox VBA
É 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