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

[alanhcardoso 0]

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!!

[osvaldomp 726]

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"
 

[alanhcardoso Autor do tópico 0]

Bom dia osvaldomp!

 

Obrigado pela ajuda, consegui adaptar o código para minha necessidade!

 

Abraços.