Ir ao conteúdo
  • Cadastre-se
alanhcardoso

RESOLVIDO [EXCEL] Macro Copiar nome do arquivo para célula

Recommended Posts

Pessoal, bom dia!

 

Estou precisando da ajuda de vocês. estou criando um consolidador de arquivos excel e estou precisando copiar alem do range determinado, copiar o nome do arquivo. Meus arquivos estão todos no mesmo padrão com intervalo de células igual entre todos os formulários mas não há espaço para colocar o nome do fornecedor dentro do arquivo.

 

Já consegui pegar um código para consolidar os varios arquivos excel que tenho mas da forma que ele traz eu não consigo diferenciar qual fornecedor se refere, eu gostaria de trazer esse nome de fornecedor que está no nome do arquivo (ex. Formulario_Fornecedor1.xlsx, Formulario_Fornecedor2.xlsx, etc...)

 

Então a macro teria que alem de trazer as celulas dos arquivos, trazer também o nome do arquivo da onde "saiu" aquelas informações.

 

Será que vocês conseguem me ajudar??

 

Valeu galera!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

O código abaixo retorna 'Fornecedor1' se o nome/caminho completo for "C:\Pasta\Formulario_Fornecedor1.xlsx".

Se for esse o resultado desejado tente adaptar ao seu código.
 

Sub ExtraiParteNomeArq() Dim arqN As String, k As Long, m As Long Dim arqP As Variant  arqN = "C:\Pasta\Formulario_Fornecedor1.xlsx"  arqP = Split(arqN, Application.PathSeparator)   k = InStr(arqP(UBound(arqP)), "_")   m = InStr(arqP(UBound(arqP)), ".")   MsgBox Mid(arqP(UBound(arqP)), k + 1, m - k - 1)End Sub


A variável 'arqN' representa o nome/caminho completo, neste exemplo, "C:\Pasta\Formulario_Fornecedor1.xlsx", e a variável 'arqP' representa o nome do arquivo com a extensão, neste exemplo, "Formulario_Fornecedor1.xlsx"
 

  • Curtir 2

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×