Excel VisualBasic Script

Sub workBook()
    Debug.Print ThisWorkbook.Path
End Sub