Sisällysluettelo
Testaa, onko työkirja auki
Tässä on todellinen peruskoodi testausta varten, jos työkirja on tällä hetkellä auki testaamalla työkirjan nimeä, ei täydellistä nimeä, mukaan lukien polku.
Kirjoitin koodia laskentataulukkoon, joka muutti toisen työkirjan arkkeja, ja halusin varmistaa, että työkirja 2 oli auki ennen työkirjassa 1 suoritettua koodia.
Sub TestByWorkbookName () Dim wb kuin työkirja jokaiselle wb: lle työkirjoissa Jos wb.Name = "New Microsoft Excel Worksheet.xls" then MsgBox "Found it" Exit Sub 'call code here, poistumme toistaiseksi Lopeta Jos seuraava loppu Sub
