Sub UkazCesty() Debug.Print ActiveWorkbook.Path Debug.Print ShowFileAccessInfo End Sub Function ShowFileAccessInfo() As String On Error GoTo xErr ShowFileAccessInfo = CreateObject("Scripting.FileSystemObject").Getfile(ThisWorkbook.FullName).ParentFolder.ParentFolder.Path Exit Function xErr: ShowFileAccessInfo = "" End Function
Microsoft EXCEL