Workbook.Path (Excel)

Retorna uma cadeia de caracteres que representa o caminho completo para a pasta de trabalho/arquivo que este objeto Workbook representa.

Dim strPath As String
strPath = ActiveWorkbook.Path