Spisie treści
Sprawdź, czy skoroszyt jest otwarty
Oto prawdziwy podstawowy kod do testowania, czy skoroszyt jest obecnie otwarty, testując nazwę skoroszytu, a nie w pełni kwalifikowaną nazwę, w tym ścieżkę.
Pisałem kod w arkuszu kalkulacyjnym, który zmieniał arkusze w innym skoroszycie, i chciałem się upewnić, że skoroszyt 2 jest otwarty przed wykonaniem kodu w skoroszycie 1.
Sub TestByWorkbookName() Dim wb As Workbook For Each WB In Workbooks If wb.Name = "Nowy arkusz Microsoft Excel Worksheet.xls" Then MsgBox "Found it" Exit Sub 'call code tutaj, na razie zakończymy End If Next End Pod
