Estas duas funções UDFs (User Definition Function) retornam o nome do workbook (arquivo, a planilha utilizada).
Estas funções podem ser aproveitadas tanto diretamente nas células como internamente na codificação VBA.
Function SingleFileName() As String
' Author: Date: Contact:' André Bernardes 24/11/2008 16:37 bernardess@gmail.com' Retorna apenas o nome do arquivo (Planilha).Let SingleFileName = ThisWorkbook.Name
End Function
Function FullFileName() As String
' Author: Date: Contact:' André Bernardes 26/11/2008 09:35 bernardess@gmail.com' Retorna o Path, bem como o nome do arquivo (Planilha).Let FullFileName = ThisWorkbook.FullName
End Function
Deixe os seus comentários! Envie este artigo, divulgue este link na sua rede social...
Tags: VBA,
Nenhum comentário:
Postar um comentário