Mefisto...diabeĹ czy anioĹ?
Hej!
Mam kolejny problem :)
Tym razem chodzi o instrukcję warunkową, mianowicie mam makro które zapisuje mi plik w danej ścieżce, tworząc w niej katalog o nazwie którą pobiera z wybranej komórki ...
z tym, że jeżeli wywołam to makro a katalog ten będzie już utworzony to wyskakuje błąd ...
chciałbym rozwiązać ten problem korzystając z instrukcji warunkowej - jeżeli katalog istnieje to pomijam tworzenie katalogu i od razu zapisuje plik w wybranej ścieżce ...
przy czym nie wiem jak to się realizuje i czy istnieje taka możliwość w excelu
Oto fragment kodu który muszę zmienić ...
Sheets("Podsumowanie").Select
nazwa = CStr(Range("E2"))
folder = CStr(Range("C2"))
TempFilePath = ThisWorkbook.Path & "\" & folder & "\"
ChDrive TempFilePath
ChDir TempFilePath
MkDir nazwa
sciezka = ThisWorkbook.Path & "\" & folder & "\" & nazwa & "\"
na pewno trzeba zweryfikować czy istnieje już ścieżka
sciezka = ThisWorkbook.Path & "\" & folder & "\" & nazwa & "\"
jeżeli tak to przechodzę dalej, jeżeli nie to tworzę folder.
Tylko jak to zrobić ? Wierzę, że jak zwykle pomożecie :)
Pozdrawiam i z góry dzięki!
------------------------------------
Już mam!
Niepotrzebnie marnuje miejsce w bazie :)
Dla ciekawych można to sprawdzić w ten oto sposób :)
...
If Len(Dir(sciezka, vbDirectory)) = 0 Then
...
zanotowane.pl doc.pisz.pl pdf.pisz.pl katkaras.opx.pl
Mam kolejny problem :)
Tym razem chodzi o instrukcję warunkową, mianowicie mam makro które zapisuje mi plik w danej ścieżce, tworząc w niej katalog o nazwie którą pobiera z wybranej komórki ...
z tym, że jeżeli wywołam to makro a katalog ten będzie już utworzony to wyskakuje błąd ...
chciałbym rozwiązać ten problem korzystając z instrukcji warunkowej - jeżeli katalog istnieje to pomijam tworzenie katalogu i od razu zapisuje plik w wybranej ścieżce ...
przy czym nie wiem jak to się realizuje i czy istnieje taka możliwość w excelu
Oto fragment kodu który muszę zmienić ...
Sheets("Podsumowanie").Select
nazwa = CStr(Range("E2"))
folder = CStr(Range("C2"))
TempFilePath = ThisWorkbook.Path & "\" & folder & "\"
ChDrive TempFilePath
ChDir TempFilePath
MkDir nazwa
sciezka = ThisWorkbook.Path & "\" & folder & "\" & nazwa & "\"
na pewno trzeba zweryfikować czy istnieje już ścieżka
sciezka = ThisWorkbook.Path & "\" & folder & "\" & nazwa & "\"
jeżeli tak to przechodzę dalej, jeżeli nie to tworzę folder.
Tylko jak to zrobić ? Wierzę, że jak zwykle pomożecie :)
Pozdrawiam i z góry dzięki!
------------------------------------
Już mam!
Niepotrzebnie marnuje miejsce w bazie :)
Dla ciekawych można to sprawdzić w ten oto sposób :)
...
If Len(Dir(sciezka, vbDirectory)) = 0 Then
...