In Excel possiamo determinare se la cartella di lavoro è chiusa o aperta tramite il codice VBA. Di seguito è riportato il codice e il processo VBA che è necessario incollare nel modulo del codice del file.

{vuoto} 1. Apri Excel 2. Premi ALT + F11 3. L’editor VBA si APRE 4. Fai clic in un punto qualsiasi della finestra del progetto 5. Fai clic su Inserisci 6. Fai clic su Modulo

you1111

{vuoto} 7. Nella finestra del codice, copia e incolla il codice sotto indicato Funzione WorkbookOpen (WorkBookName As String) As Boolean ‘restituisce TRUE se la cartella di lavoro è aperta WorkbookOpen = False On Error GoToWorkBookNotOpen If Len (Application.Workbooks (WorkBookName) .Name)> 0 Allora WorkbookOpen = True Exit Funzione End If WorkBookNotOpen:

Fine funzione {vuoto} 8. Una volta incollato, vai al file Excel 9. Seleziona la cella A1 10. Digita = work 11. Puoi vedere che = workbookopen è visibile come una formula

image2

{vuoto} 12. Inizialmente non c’era

image3

{vuoto} 13. Scrivi la formula = WorkbookOpen (“test1.xlsx”)

  1. Qui la cartella di lavoro “test1.xlsx” viene utilizzata come esempio. Questo file non è aperto.

  2. Poiché questo file non è aperto, verrà visualizzato come “FALSE”

image4

{vuoto} 16. Seleziona la cella A3 17. Scrivi la formula = WorkbookOpen (“determina-if-a-workbook-is already-open-using-vba-in-microsoft-excel.xlsx”)

  1. Qui la cartella di lavoro “determina-se-una-cartella-di-lavoro-è-già-aperta-usando-vba-in-microsoft-excel.xlsx”

è usato come esempio. Questo file è aperto.

  1. Poiché questo file è aperto, verrà visualizzato come “TRUE”

image5

In questo modo possiamo determinare se la cartella di lavoro è già aperta o meno utilizzando VBA in Microsoft Excel 2010 e Microsoft Excel 2013.

image 29

Se ti sono piaciuti i nostri blog, condividilo con i tuoi amici su Facebook. Puoi anche seguirci su Twitter e Facebook.

Ci piacerebbe sentire la tua opinione, facci sapere come possiamo migliorare, integrare o innovare il nostro lavoro e renderlo migliore per te. Scrivici a [email protected]