VBA ChDir | Come modificare la directory utilizzando la funzione ChDir VBA di Excel?

Excel VBA Chdir

"ChDir" in può essere definito come " Cambia directory ". Utilizzando "ChDir" possiamo modificare la directory predefinita corrente utilizzata in VBA durante la ricerca dei file senza un percorso completo. Ad esempio, quando proviamo a salvare il file come nuovo file per impostazione predefinita, potremmo vedere che l'unità configurata dal sistema si apre e da lì selezioniamo la cartella che desideriamo salvare.

Hai mai pensato che possiamo cambiare la finestra di selezione delle cartelle predefinita secondo i nostri desideri? Sì, possiamo farlo!

Ora diamo un'occhiata alla sintassi della funzione ChDir in VBA.

Percorso: qui è dove dobbiamo menzionare il percorso della cartella che desideriamo aprire per impostazione predefinita quando proviamo ad aprire o salvare il file con un nome diverso.

Il percorso dovrebbe essere menzionato tra virgolette doppie.

Esempi di funzione ChDir in VBA

Di seguito sono riportati gli esempi di Excel VBA ChDir.

Puoi scaricare questo modello VBA ChDir Excel qui - Modello VBA ChDir Excel

Esempio 1

Ora dai un'occhiata prima al codice VBA sottostante.

Codice:

 Sub ChDir_Example1 () Dim FD As FileDialog Dim ND As String Set FD = Application.FileDialog (msoFileDialogFilePicker) With FD .Title = "Scegli il tuo file" .AllowMultiSelect = False .Show End With End Sub

Quando eseguo questo codice usando il tasto F5 o manualmente, si aprirà prima la finestra predefinita di seguito.

Da qui in poi devo passare attraverso varie cartelle e sottocartelle per selezionare i file che desidero aprire utilizzando il codice VBA.

Questo richiederà molto tempo! Se devo passare attraverso varie cartelle, potrebbe anche portare a una selezione di file errata a causa di varie sottocartelle e si aggiunge più confusione.

E se il mio codice può aprire la cartella specifica in cui è necessario scegliere il mio file?

Non è un'opzione interessante da avere?

Sì, proviamolo.

Prima di trasmettere il nostro codice dobbiamo utilizzare la funzione ChDir e menzionare il percorso della cartella tra virgolette doppie.

ChDir "D: \ Articoli \ File Excel"

Il codice precedente per impostazione predefinita cambierà la directory da aprire nell'unità "D" e nella cartella "Articoli" dell'unità D e sotto questa cartella La sottocartella da aprire è "File Excel".

Codice:

 Sub ChDir_Example2 () Dim Filename As Variant ChDir "D: \ Articles \ Excel Files" Filename = Application.GetSaveAsFilename () If TypeName (Filename) "Boolean" Then MsgBox Filename End If End Sub

Ora eseguirò il codice manualmente o premendo il tasto F5 e vedrò quale directory dei file si apre.

Come possiamo vedere nell'immagine sopra, ho ottenuto la finestra predefinita secondo le mie specifiche.

Nel caso in cui se la funzione ChDir non mostra la directory di file menzionata, è necessario prima modificare l' unità, quindi applicare la funzione ChDir .

Per cambiare il drive dobbiamo usare la funzione “ChDrive” . Dato che voglio prima aprire il file nell'unità "D" , devo cambiare l'unità in "D".

ChDrive "D"

Il codice precedente cambierà l'unità in "E".

Codice:

 Sub ChDir_Example2 () Dim Filename As Variant ChDrive "D" ChDir "D: \ Articles \ Excel Files" Filename = Application.GetSaveAsFilename () If TypeName (Filename) "Boolean" Then MsgBox Filename End If End Sub