W pętli For...Each sprawdź wszystkie skoroszyty, czy ścieżka któregoś (albo nazwa) jest identyczna z daną.
Dim oWbk as Workbook
Dim bOtwarty as Boolean
bOtwarty = False
For Each oWbk in Workbooks
If oWbk.Name = szukana_nazwa Then bOtwarty = True: Exit For
Next oWbk
Cytat:witam,
sytuacja wyglada nastepujaco:
makro z jednego skoroszytu otwiera inny skoroszyt
w jaki sposob sprawdzic czy on nie jest juz przypadkiem otwarty?
dzieki |