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.

BUSCAR PASTA

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
tiagoljr
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Sex Mai 15, 2020 1:30 pm

BUSCAR PASTA

Mensagem por tiagoljr » Seg Mai 18, 2020 10:15 am

Olá pessoal
Consegui montar um sistema de busca de arquivos no VBA porem não consigo criar um sistema que tenha esta rotina:
1- Reconhecer termos em duas células A1=CRL B1=290
2-Retorna Concatenado = CRL 290
3 Busca em um disco ou pasta: "Abre janela perguntando o o local"
4-Retorna "pasta Inexistente" "Pasta Vazia" "Pasta Com Arquivos"

Se alguém puder me ajudar agradeço.
Editado pela última vez por tiagoljr em Ter Mai 19, 2020 5:11 pm, em um total de 1 vez.



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.


Wagner Morel
Colaborador
Colaborador
Mensagens: 59
Registrado em: Qua Nov 29, 2017 11:51 am
Localização: Fortaleza - CE

Re: BUSCAR PASTA

Mensagem por Wagner Morel » Ter Mai 19, 2020 3:14 pm

tiagoljr,

Boa tarde!

Não sei se entendi corretamente mas... vamos lá:
1 e 2 - Seria algo assim para colocar o resultado em C1 da aba chamada Plan1:

Código: Selecionar todos

Sheets("Plan1").Range("C1").Value = Sheets("Plan1").Range("A1").Value & " " & Sheets("Plan1").Range("B1").Value
3 e 4 - Seria algo assim para abrir a caixa de diálogo de procura de pastas e arquivos:

Código: Selecionar todos

    Dim Arquivo As String
    Arquivo = Application.Dialogs(xlDialogOpen).Show


Atenciosamente,
Wagner Morel

Responder