jalexm,

Bom Dia!

Utilize a função abaixo e você poderá ter o nome dos seus arquivos, sem a extensão, em qualquer célula que você quiser. Como se trata de uma função definida pelo usuário (UDF) você precisa ir até o editor do VBA (ALT+F11) e inserir um módulo. Depois cole o código abaixo nesse módulo. Salve tudo e fecha a janela do editor do VBA. Finalmente, no Excel, após selecionar a caixa de funções, selecione a Categoria Definida pelo usuário e escolha a função recém criada (NomeArquivo). Pronto! Aparecerá na célula o nome do seu arquivo.

Function NomeArquivo() As String
    Dim Extensão As String
    Dim posição As Integer
    posição = InStr(1, ActiveWorkbook.Name, ".", vbTextCompare)
    Extensão = Mid(ActiveWorkbook.Name, posição + 1, Len(ActiveWorkbook.Name) - posição)
    If Len(Extensão) = 3 Then
        NomeArquivo = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
    Else
        NomeArquivo = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5)
    End If
End Function

Aparecerá na célula o nome do seu arquivo.

Funcionou perfeitamente, meu amigo!
Sem querer abusar, como fazer essa função executar sempre que a planilha for aberta e colocar o nome do arquivo na célula A1?

Agradeço mais essa.

jakexm,

Aí você não precisará de função. Basta colocar no evento Workbook_Open da pasta de trabalho o código abaixo:

Private Sub Workbook_Open()
    Dim Extensão As String
    Dim posição As Integer
    posição = InStr(1, ActiveWorkbook.Name, ".", vbTextCompare)
    Extensão = Mid(ActiveWorkbook.Name, posição + 1, Len(ActiveWorkbook.Name) - posição)
    If Len(Extensão) = 3 Then
        Range("A1").Value = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
    Else
        Range("A1").Value = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5)
    End If
End Sub

Sem VBA:
=EXT.TEXTO(CÉL("nome.arquivo";A1);LOCALIZAR("[";CÉL("nome.arquivo";A1))+1;LOCALIZAR(".xls";CÉL("nome.arquivo";A1))-LOCALIZAR("[";CÉL("nome.arquivo";A1))-1)

[] Doni

Via fórmula (em qualquer célula):

=EXT.TEXTO(CÉL("nome.arquivo");LOCALIZAR("[";CÉL("nome.arquivo");1)+1;(LOCALIZAR("]";CÉL("nome.arquivo");1))-(LOCALIZAR("[";CÉL("nome.arquivo");1)+1))

Abs,

Aí você não precisará de função. Basta colocar no evento Workbook_Open da pasta de trabalho o código abaixo

Funcionou perfeitamente.

Obrigado, amigo.
                                                                                                	                                                

                                                        
 
                                                    
	                                        

Via fórmula (em qualquer célula):
=EXT.TEXTO(CÉL("nome.arquivo");LOCALIZAR("[";CÉL("nome.arquivo");1)+1;(LOCALIZAR("]";CÉL("nome.arquivo");1))-(LOCALIZAR("[";CÉL("nome.arquivo");1)+1))
Abs,

Solução bem curiosa, amigo.
Vou testar também. Obrigado.

Da maneira que o Mandrix colocou, a fórmula mostra a extensão do arquivo.

Doni

Doni,

Troque o "]" por "." na fórmula e vc tem o que vc quer.

Abs,

Mandrix!
Vc tem razão basta trocar os sinais, e ainda a sua fórmula fica um pouco menor que a minha, ou seja, mais fácil pra digitar, valeu aprendi mais uma!

Doni