Preverite, ali je delovni zvezek odprt
Tukaj je nekaj resnične osnovne kode za preizkušanje, če je delovni zvezek trenutno odprt s preizkušanjem imena delovnega zvezka, ne pa za polno ime, vključno s potjo.
Pisala sem kodo v preglednico, ki je spreminjala liste v drugem delovnem zvezku, in želela sem se prepričati, da je delovni zvezek 2 odprt, preden se koda izvede v delovnem zvezku 1.
Sub TestByWorkbookName () Dim wb kot delovni zvezek za vsako wb v delovnih zvezkih Če je wb.Name = "New Microsoft Excel Worksheet.xls" Potem je MsgBox "Našel" "Exit Sub" klicno kodo tukaj, bomo za zdaj samo zapustili End If Next End Pod
