Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - Sprawdzenie czy dany plik istnieje w folderze

td2003 · Exceloholic Posty: 132

Witam!
Chciałbym spytać jak można uzależnić wykonanie makra od tego czy w folderze zawierającym aktywny plik znajduje się plik np. "a.xls". I jeśli plik jest to wykonywana jest dalsza część makra a jeśli nie ma to makro się wyłącza.

Dzięki!

Rycho · Excel Expert **Pomógł:** 203 razy Posty: 322

Hej.

Kod:

If Dir(ThisWorkbook.path & Application.PathSeparator & _
"a.xls") <> "" Then

Volatile · Wysłany: 06-04-2007, 00:01

Kod:

If Dir("a.xls") = "" Then Exit Sub

td2003 · Exceloholic Posty: 132

Dzięki Wam bardzo. Oba sposoby działają jak należy.

Rycho · Excel Expert **Pomógł:** 203 razy Posty: 322

Hej.
Miło, że mogłem pomóc.

Nie wiem jak masz ustawione domyślne foldery excela. Przy operacji na plikach domyślny folder jest zmieniany.
Makro kolegi Volatile nie przewiduje tego.

Otwórz plik z makrem z poziomu 'dokumentów niedawnych' lub otwórz dodatkowo inny skoroszyt z innego foldera i wykonaj test:

Kod:

Sub test()
If Dir(ThisWorkbook.Path & Application.PathSeparator & _
"a.xls") = "" Then
MsgBox "Brak pliku", , "Rycho"
Else
MsgBox "Jest plik", , "Rycho"
End If

If Dir("a.xls") = "" Then
MsgBox "Brak pliku", , "Volatile"
Else
MsgBox "Jest plik", , "Volatile"
End If
End Sub

td2003 · Exceloholic Posty: 132

Witam!
Akurat w tym przypadku wszystkie pliki znajdują się w tym samym folderze, więc nie ma problemu. Ale dzięki za uściślenie.