| Jak wyciągnąć nazwę katalogu, w którym znajduje się otwarty skoroszyt? |
|
Problem: Potrzebuję wydobyć nazwę katalogu, w którym bezpośrednio znajduje się otwarty skoroszyt. Rozwiązanie: Możesz skorzystać np. z takiej funkcji własnej Option Explicit Function SciezkaDoPliku() As String Dim sSciezka As String Dim avLokalizacja As Variant 'Pobiera pelna sciezke do pliku (bez nazwy pliku) On Error Resume Next sSciezka = ThisWorkbook.Path On Error GoTo 0 'Jezeli plik zostal wczesniej zapisany 'zwraca pierwszy nadrzedny katalog If sSciezka = vbNullString Then SciezkaDoPliku = "Ten plik nie został jeszcze zapisany" Else avLokalizacja = Split(sSciezka, "\") SciezkaDoPliku = avLokalizacja(UBound(avLokalizacja)) End If End Function |
|
| Zmieniony ( Czwartek, 01. Lipiec 2010 19:29 ) |