jaromir.ch
18.03.14,08:40
Ako v MAKRU zadať relativnu cestu do nadriadeneho adresara a ako do adresara na urovni excelovskeho suboru.
(Vkladam do textoveho pole pozadia)
Ďakujem
(Vkladam do textoveho pole pozadia)
Ďakujem
PaloPa
18.03.14,15:16
Napr. takto:
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.Pare ntFolder.Path
Exit Function
xErr:
ShowFileAccessInfo = ""
End Function
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.Pare ntFolder.Path
Exit Function
xErr:
ShowFileAccessInfo = ""
End Function