O código abaixo mostra como inserir na planilha o caminho completo de um determinado arquivo, como no exemplo abaixo em txt usando o metodo GetOpenFilename que é aquela janela de abrir arquivos do windows.
Insira no módulo ou no formulário o código abaixo:
Dim QualArquivo
QualArquivo = Application.GetOpenFilename("Arquivos de texto (*.txt),*.txt", , "NINJAS DO EXCEL - Escolha o arquivo para Abrir") 'Caixa de Dialogo Abrir
Plan1.Range("A1") = QualArquivo
O código acima pode ser usado também para carregar arquivos em xls ou qualquer outra extensão basta mudar para xls onde estiver txt ou a outra extensão que desejar. Ao clicar sobre o arquivo na janela será inserido na Plan1 na célula A1 o caminho completo do arquivo selecionado.
