Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

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 » Seg Jan 11, 2016 3:34 pm

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: 766
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: Listar arquivos em listbox VBA

Mensagem por srobles » Seg Jan 11, 2016 7:19 pm

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


Espero ter ajudado.

Abs.

Saulo Robles


Remember when you were young?
You shone like the sun.
Shine On You Crazy Diamond


Se suas dúvidas foram esclarecidas, acrescente ao lado do título o texto [RESOLVIDO].

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 » Ter Jan 12, 2016 12:01 pm

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: 766
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: Listar arquivos em listbox VBA

Mensagem por srobles » Ter Jan 12, 2016 1:52 pm

Marcelo Nunes,

Que bom que funcionou meu amigo.

Quaisquer dúvidas, estamos aí.

Abs


Espero ter ajudado.

Abs.

Saulo Robles


Remember when you were young?
You shone like the sun.
Shine On You Crazy Diamond


Se suas dúvidas foram esclarecidas, acrescente ao lado do título o texto [RESOLVIDO].

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

Re: Listar arquivos em listbox VBA

Mensagem por Rafael Monteiro » Qui Jan 14, 2016 2:30 pm

É 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


Abs.

Rafael R Monteiro.

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