Inhoudsopgave
Test of werkmap is geopend
Hier is een echte basiscode om te testen of een werkmap momenteel is geopend door te testen op de naam van een werkmap, niet op de volledig gekwalificeerde naam inclusief het pad.
Ik was code aan het schrijven in een spreadsheet die bladen in een andere werkmap veranderde, en wilde ervoor zorgen dat werkmap 2 open was voordat de code in werkmap 1 werd uitgevoerd.
Sub TestByWorkbookName() Dim wb als werkmap voor elke wb in werkmappen If wb.Name = "New Microsoft Excel Worksheet.xls" Then MsgBox "Found it" Exit Sub 'call code hier, we zullen nu gewoon afsluiten End If Next End Sub
