1. Location:
  2. / Computer learning >> Datamaskin læring >> Kontor-Programvare >> Microsoft excel >> excel Komplekset >>

Hvordan finne eller kontrollere om en bestemt arbeidsbok er åpen eller ikke i Excel?

Sjekk om en arbeidsbok er åpen eller ikke i Excel
Du kan gjøre følgende for å sjekke om en arbeidsbok er åpen eller ikke i Excel.
1. Trykk Alt + F11 for å åpne Microsoft Visual Basic for Applications vinduet. I Microsoft Visual Basic for Applications-vinduet, klikker du Sett > Modulen.
To. Deretter kopiere og lime inn nedenfor VBA-kode inn i editoren
VBA-kode. Finne ut om en arbeidsbok åpnes
Sub TrimExcessSpaces () Dim xWBName As String Dim XWB Som arbeidsbok On Error Resume Next xTitleId = "KutoolsforExcel "xWBName = Application.InputBox (" navn arbeidsbok ", xTitleId," ", Type: = 2) Set XWB = Application.Workbooks (xWBName) Hvis XWB er ingenting Deretter MsgBox" arbeidsbok ikke er åpen! " Else MsgBox "Arbeidsboken er åpen!" Avslutt IfEnd Sub3. Nå trykker du på F5 for å kjøre koden. I spratt opp KutoolsforExcel dialogboksen angir arbeidsboken navnet du vil kontrollere, og klikk deretter på OK-knappen. Se skjermbilde:
Hvis den angitte arbeidsboken åpnes, vil det dukke opp en dialogboks som forteller deg at arbeidsboken er åpen; største nettstedene Ellers vil du få en under dialogboks hvis den angitte arbeidsbok er ikke åpnet.