Patikrinkite, ar darbo knyga atidaryta
Čia yra tikras pagrindinis testavimo kodas, jei darbo knyga šiuo metu yra atidaryta, tikrinant darbaknygės pavadinimą, o ne visiškai kvalifikuotą pavadinimą, įskaitant kelią.
Aš skaičiuoklėje rašiau kodą, kuris pakeitė kitos darbaknygės lapus, ir norėjau įsitikinti, kad 2 darbo knyga buvo atidaryta prieš kodą, įvykdytą 1 darbaknygėje.
Sub TestByWorkbookName () Dim wb kaip darbaknygė kiekvienai wb darbaknygėje Jei wb.Name = "Naujas" Microsoft Excel "darbalapis.xls" Tada "MsgBox" jį rado "Išeikite iš skambučio kodo čia, mes tiesiog išeisime, kol baigsis Jei kitas galas Sub
