Innehållsförteckning
Testa om arbetsboken är öppen
Här är en verklig grundkod för att testa om en arbetsbok för närvarande är öppen genom att testa efter en arbetsboks namn, inte det fullt kvalificerade namnet inklusive sökvägen.
Jag skrev kod i ett kalkylblad som ändrade blad i en annan arbetsbok och ville se till att arbetsbok 2 var öppen innan koden kördes i arbetsbok 1.
Sub TestByWorkbookName () Dim wb som arbetsbok för varje wb i arbetsböcker Om wb.Name = "New Microsoft Excel Worksheet.xls" Då hittade MsgBox "Avsluta Sub" -kod här, vi avslutar bara för närvarande Sluta om nästa slut Sub
