Innholdsfortegnelse
Test om arbeidsboken er åpen
Her er en virkelig grunnleggende kode for å teste om en arbeidsbok for øyeblikket er åpen ved å teste etter navnet på en arbeidsbok, ikke det fullt kvalifiserte navnet inkludert banen.
Jeg skrev kode i et regneark som endret ark i en annen arbeidsbok, og ville sørge for at arbeidsbok 2 var åpen før koden ble kjørt i arbeidsbok 1.
Sub TestByWorkbookName () Dim wb som arbeidsbok for hver wb i arbeidsbøker Hvis wb.Name = "New Microsoft Excel Worksheet.xls" Da fant MsgBox "Avslutt Sub" -koden her, vi går bare ut for nå Slutt hvis neste slutt Under