Escola Saberecel VBA Estudos - lugar de quem precisa aprender macros microsoft excel vba

Estas Funções do Aplicativo Microsoft Excel VBA, retorna o nome e o Diretório do Livro(wokbook) ativo, isto é, o endereço do Arquivo.

Retorno: ........: "C:\VBA_Desenvolvimento_Saberexcel\Ajuda_Alunos\Servidor_Três\Diretorio\workbook endereço path.xls"
Função Usada..: =Workbook_Nome(B1;C3)

Se a célula(B1) for igual a 1, retorna o endereço completo, senão reotnará somente o nome do livro ativo

Function Workbook_Nome(AnyCell As Range, Optional Path_Also As Boolean)
Application.Volatile
If Path_Also = True Then
Workbook_Nome = AnyCell.Parent.Parent.FullName
Else
Workbook_Nome = AnyCell.Parent.Parent.Name
End If
End Function

Function Worksheet_Nome(AnyCell As Range)
'"Returns the name of the Worksheet housing the Function."
'Attribute Worksheet_Name.VB_ProcData.VB_Invoke_Func = " \n14"
Application.Volatile
Worksheet_Nome = AnyCell.Parent.Name
End Function

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA