macro executa funçã...
 
Notifications
Clear all

macro executa função Musicas no Listbox

9 Posts
2 Usuários
0 Reactions
1,855 Visualizações
(@xman2000)
Posts: 0
New Member
Topic starter
 

macro executa função Musicas no Listbox

Olá Edcronos, Gere, e demais feras.

trabalhando no arquivo: "Exemplo Busca MP3 v2010 com InfoAdd-FORUM-teste1.rar"

o Edcronos me mostrou como é possível uma macro executar uma função e adicionar o valor do resultado a uma ListBox.
agora, eu preciso de algo semelhante, só que é outro arquivo,
implantar o arquivo que lista musicas, adicionar as musicas à Listbox ao clickar num botao e a macro executar a função que lista as musicas.

trabalhando no arquivo: "Exemplo Busca MP3 v2010 com InfoAdd-FORUM-teste1.rar"

eu gostaria muito de poder escolher o tipo de musica, mas, se já implementar esse listbox acho que vou conseguir selecionar o tipo de musica porque existe um lugar que cita o formato ".mp3"

eu tentei reproduzir o exemplo que o Edcronos fez antes mas nao consegui passar pro novo arquivo de Musicas.
anexo os dois arquivos, o de ExemploEdcronos e o de Musicas.

 
Postado : 14/07/2015 9:36 pm
(@xman2000)
Posts: 0
New Member
Topic starter
 

Olá Edcronos!

na função que vc fez, vc definiu argumentos de inicio e fim. Inicio na letra "A" e fim no numero "10"
mas eu não sei quantos arquivos de musica existirão, e não quero usar parametros da planilha,
quero apenas que a macro execute a função.
claro, estou me referindo usando o meu arquivo que lista musicas e nao mexendo no seu exemplo.

letra = "A"

For n = 0 To 10

 
Postado : 14/07/2015 10:16 pm
(@edcronos)
Posts: 1006
Noble Member
 

olha nem olhei o seu arquivo pq não vou poder te ajudar muito

mas para listar os arquivos de um diretorio

troque "Caixa de listagem 1" pelo nome da sua caixa de listagem

Sub Eddd()
LocArq = "e:musicas"  '<<------ 'coloque aqui a pasta que tem as musicas
tipoArq = "mp3"        '  <<------ 'coloque aqui o tipo de arquivo

 ArqV = Dir(LocArq & "*." & tipoArq, vbArchive)
 
With Sheets("plan1").Shapes("Caixa de listagem 1").ControlFormat

        .RemoveAllItems
        While ArqV <> vbNullString
            .AddItem ArqV
            ArqV = Dir(, vbArchive)
        Wend
End With

End Sub
 
Postado : 14/07/2015 10:39 pm
(@xman2000)
Posts: 0
New Member
Topic starter
 

Olá Edcronos,

agradeço a ajuda, foi superlegal!
esse codigo nao serve, usa "Dir" e eu preciso "FSO".
com certeza os experientes vao conseguir, porque
o codigo está todo pronto, já lista as musicas nas celulas e eu quero que as coloque no LISTBOX.

o resultado está sendo colocado direto na celula e assim nao quero.

Tô quase com Alzheimer de tanto queimar neuronios.
aguardo ajuda.

 
Postado : 14/07/2015 11:13 pm
(@xman2000)
Posts: 0
New Member
Topic starter
 

Olá adGERE!

os arquivos estão anexos no 1oTopico.
eles já fazem as buscas das musicas (que podem ser imagens tbm)
mas jogam o resultado nas celulas, e eu quero que jogue o nome das musicas no Listbox.
é uma macro que executa uma Function, dá erro dizendo que o componente nao aceita a propriedade ou método.
elas já fazem tudo recursivamente com FSO, por isso que quero tanto usar elas.
abraço.

 
Postado : 15/07/2015 7:05 am
(@xman2000)
Posts: 0
New Member
Topic starter
 

olá Colegas!

anexo abaixo varios codigos incluidos em arquivo Word, sobre listar arquivos FSO (FileSystemObject) e skins.
espero que ajude.
grato.

 
Postado : 15/07/2015 8:25 am
(@edcronos)
Posts: 1006
Noble Member
 

cara eu olhei e achei até legal,
mas é bem demorado e precisa de varios refinamentos

por causa disso mesmo acho que é bom deixar a listagem na planilha mesmo para assim ter os arquivos já listados e guardados
essa plan pode até ficar oculta e vc listar oq vc quer na listbox a partir dos dado da plan

é legal para aprender a gerenciar arquivos

 
Postado : 15/07/2015 9:38 am
(@xman2000)
Posts: 0
New Member
Topic starter
 

Olá Edcronos!

minha intenção é adicionar no LISTIBOX mesmo.
o user EDGERE fez quase tudo.
veja este post no link "visualizador Imagens FSO Recursiva" :

viewtopic.php?f=10&t=16572
" http://www.planilhando.com.br/viewtopic.php?f=10&t=16572"

baixe os arquivos, talvez lhe interesse.
o material é muito bom e expliquei.

 
Postado : 15/07/2015 11:00 am
(@xman2000)
Posts: 0
New Member
Topic starter
 

Olá Colegas!

o arquivo que estou usando agora é este em anexo.
desejo listar as musicas no listbox usando FSO. A planilha já está em codigo FSO, e já coloca as musicas nas celulas,
eu quero que coloque é na listbox também.
entá dando erro dizendo que a variavel "WITH" não está definida, mesmo eu já tendo colocado Whith.
nos outros topicos e posts têm varios arquivos que podem ajudar, inclusive em formato Word.
grato.

 
Postado : 15/07/2015 9:11 pm