Una macro di Excel per determinare se esiste una cartella di lavoro - dummies

Questa macro di Excel consente di passare un percorso file per valutare se il file è presente. Ad esempio, potresti avere un processo che manipola un file da qualche parte sul tuo PC. Ad esempio, potrebbe essere necessario aprire una cartella di lavoro esistente per aggiungere dati ad essa ogni giorno. In questo caso, potrebbe essere necessario testare per vedere se esiste il file da manipolare.

Come funziona la macro

La prima cosa da notare su questa macro è che si tratta di una funzione, non di una procedura Sub. Rendendo questa macro una funzione ti permette di passare qualsiasi percorso di file ad esso.

In questa macro, si utilizza la funzione Dir, che restituisce una stringa che rappresenta il nome del file che corrisponde a ciò che si passa ad esso. Questa funzione può essere utilizzata in molti modi, ma qui, la si usa per controllare se esiste il percorso del file che si passa ad essa:

Funzione FileExists (FPath As String) As Boolean 'Passo 1: Dichiarare le variabili Dim FName As String 'Step 2: Usa la funzione Dir per ottenere il nome del file FName = Dir (FPath)' Step 3: Se il file esiste, restituisce True; else False If FName "Then FileExists = True _ Else: FileExists = False End Function

Il passaggio 1 dichiara una variabile String che contiene il nome file restituito dalla funzione Dir. FName è il nome della variabile String.

< ! --2 ->

Nel passaggio 2, si tenta di impostare la variabile FName, facendo passare la variabile FPath alla funzione Dir. Questa variabile FPath viene passata tramite le dichiarazioni di funzione (vedere la prima riga di il codice).Questa struttura ti impedisce di dover codificare un percorso di file, passando invece come variabile.

Se la variabile FName non può essere impostata, il percorso che hai passato non esiste. la variabile è vuota Il passaggio 3 traduce semplicemente quel risultato in un'espressione Vero o Falso.

Anche in questo caso, questa funzione può essere utilizzata per valutare qualsiasi percorso di file passato. la bellezza della scrittura della macro come funzione.

La seguente macro mostra come utilizzare questa funzione:

Sub Macro1 () If FileExists ("C: TempMyNewBook ​​.xlsx") = True Then MsgBox "Il file esiste." Else MsgBox "Il file non esiste." End If End Sub

Come utilizzare la macro

Per implementare questa macro, è possibile copiare e incollare entrambi i pezzi di codice in un modulo standard:

1. Attiva Visual Basic Editor premendo Alt + F11.

2. Fare clic con il pulsante destro del mouse sul nome del progetto / cartella di lavoro nella finestra del progetto.

3. Scegli Inserisci → Modulo.

4. Digita o incolla il codice nel modulo appena creato.