Workbook.Path (Excel)

Devuelve una cadena que representa la ruta de acceso completa al libro o archivo que representa este objeto Workbook.

Dim strPath As String
strPath = ActiveWorkbook.Path