Come ottenere il nome della cartella di lavoro utilizzando vba (con esempi)

È possibile utilizzare i seguenti metodi in VBA per ottenere il nome di una cartella di lavoro di Excel:

Metodo 1: ottenere il nome della cartella di lavoro attiva

 Function GetWorkbookName() As String
GetWorkbookName = ActiveWorkbook.Name
End Function

Questa funzione restituirà il nome della cartella di lavoro attiva come my_vba_workbook.xlsm .

Metodo 2: ottieni il nome della cartella di lavoro attiva senza estensione

 Function GetWorkbookName() As String
GetWorkbookName = Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, " . ") - 1)
End Function

Questa funzione restituirà il nome della cartella di lavoro attiva senza l’estensione come my_vba_workbook .

Gli esempi seguenti mostrano come utilizzare ciascun metodo nella pratica con una cartella di lavoro Excel attualmente attiva denominata my_vba_workbook.xlsm .

Esempio 1: ottenere il nome della cartella di lavoro attiva

Possiamo creare la seguente funzione per ottenere il nome della cartella di lavoro attiva:

 Function GetWorkbookName() As String
GetWorkbookName = ActiveWorkbook.Name
End Function

Potremmo quindi digitare la seguente formula nella cella A1 per ottenere il nome della cartella di lavoro attiva:

 =GetWorkbookName()

Lo screenshot seguente mostra come utilizzare questa formula nella pratica:

Possiamo vedere che la formula restituisce my_vba_workbook.xlsm , che è il nome della cartella di lavoro attualmente attiva che stiamo utilizzando.

Nota : l’estensione .xlsm rappresenta una cartella di lavoro Excel con attivazione macro.

Esempio 2: ottieni il nome della cartella di lavoro attiva senza estensione

Possiamo creare la seguente funzione per ottenere il nome della cartella di lavoro attiva senza l’estensione:

 Function GetWorkbookName() As String
GetWorkbookName = Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, " . ") - 1)
End Function

Potremmo quindi digitare la seguente formula nella cella A1 per ottenere il nome della cartella di lavoro attiva:

 =GetWorkbookName()

Lo screenshot seguente mostra come utilizzare questa formula nella pratica:

Possiamo vedere che la formula restituisce my_vba_workbook , che è il nome della cartella di lavoro attualmente attiva senza l’estensione .xlsm .

Nota : utilizzando le funzioni Left e Instr , possiamo estrarre tutti i caratteri dal nome della cartella di lavoro a sinistra del punto.

Risorse addizionali

I seguenti tutorial spiegano come eseguire altre attività comuni in VBA:

Come creare cartelle utilizzando VBA
Come eliminare cartelle utilizzando VBA
Come rinominare un file utilizzando VBA
Come verificare se il file esiste utilizzando VBA