VBA no Excel para procurar um arquivo.

Question

Pessoal

Sou leigo em VBA, logo preciso muito da ajuda de vocês.

Estou gravando uma macro e a primeira ação que preciso é:

abrir a procura de um arquivo (não será sempre o mesmo arquivo) e abri-lo.

Esta seleçãod e arquivo deve ser feita manualmente, logo preciso de uma macro para abrir a caixa de Abrir arquivo para selecioná-lo manualmente.

Daí em diante consigo seguir.

Obrigado pela ajuda.

Answer 1

Olá Cleiton Luiz Cordeiro, obrigado pelo retorno.

Inicialmente vou auxiliar na inclusão da função desenvolvedor caso não tenha ainda feito, siga os passos abaixo:

• Com o Excel aberto, clique no Menu Arquivo > Opções.
• Abra Personalizar Faixa de Opções e localize ao lado direito a Opção "Desenvolvedor".

Ao localizar, deixe a caixa marcada, ficará semelhante a imagem abaixo.

Confirme com OK e será exibida logo no topo dos menus do Excel:

Com essa opção ativada conseguirá inserir botões e ter acesso fácil as opções do VBA.

Como é um procedimento bem extenso, e no seu caso acredito que deseja criar um botão para importar dados de outro arquivo, sugiro que tente acompanhar essa questão através de um link de terceiros: 

https://www.youtube.com/watch?v=vz\_ab1DKdI0

No decorrer da utilização, se encontrar algum passo ou alguma dúvida relacionada ao VBA, pode acessar o nosso fórum Technet, onde encontrará conteúdo relacionado a isso e retirar suas dúvidas:

http://social.technet.microsoft.com/Forums/pt-br/home

Atenciosamente

Answer 2

Agradeço sua atenção, mas ficou dificil pois meus conhecimentos são curtos no VBA.

Precisaria criar algum botão como na imagem abaixo, escolher o arquivo e copiar determinadas células.

Os arquivos que pciso abrir são diversos, com nomes diferentes, porém as células que preciso copiar são sempre as mesmas.

Caso você faça este tipo de VBA, posso pagar um valor, não muito alto, por isso.

Answer 3

Olá Cleiton Luiz Cordeiro, tudo bem? Muito interessante sua questão relacionada ao VBA, vou deixar o código disponível abaixo para utilizar:PublicFunction OpenFileDialog() AsStringDim Filter AsString, Title AsStringDim FilterIndex AsIntegerDim Filename AsVariant' Define o filtro de procura dos arquivos Filter = "Arquivos Wave (.wav),.wav,"' O filtro padrão é . FilterIndex = 3 ' Define o Título (Caption) da Tela Title = "Selecione um arquivo"' Define o disco de procura ChDrive ("C") ChDir ("C:") With Application ' Abre a caixa de diálogo para seleção do arquivo com os parâmetros Filename = .GetOpenFilename(Filter, FilterIndex, Title) ' Reseta o Path ChDrive (Left(.DefaultFilePath, 1)) ChDir (.DefaultFilePath) EndWith' Abandona ao Cancelar If Filename = FalseThen MsgBox "Nenhum arquivo foi selecionado."ExitFunctionEndIf' Retorna o caminho do arquivo OpenFileDialog = Filename EndFunctionCaso precise de mais auxílio, deixará disponível o link abaixo do TECHNET que é um fórum especialmente destinado para desenvolvedores e profissionais em TI. TECHNET.Se a resposta ajudou de alguma forma, por favor, marque como resposta.Espero ter ajudado, até mais!