photosdematures.com

Excel VBA Chdir

"ChDir" en es pot anomenar com "Canvia de directori”. Mitjançant l’ús de “ChDir” podem canviar el directori per defecte actual que s’utilitza a VBA quan cerquem fitxers sense un camí completament qualificat. Per exemple, quan intentem desar el fitxer com a fitxer nou per defecte, podríem veure com s’obre una unitat configurada pel sistema i, a partir d’aquí, seleccionem la carpeta que volem desar.

Alguna vegada heu pensat que podem canviar aquesta finestra predeterminada del selector de carpetes al nostre desig? Sí, ho podem fer!

Vegem ara la sintaxi de la funció ChDir a VBA.

Camí: Aquí és on hem d’esmentar el camí de la carpeta que volem obrir per defecte quan intentem obrir o desar com a fitxer un altre nom.

El camí s’ha d’esmentar entre cometes dobles.

Exemples de funció ChDir a VBA

A continuació es mostren els exemples d'Excel VBA ChDir.

Podeu descarregar aquesta plantilla Excel de VBA ChDir aquí - Plantilla Excel de VBA ChDir

Exemple 1

Ara mireu primer el següent codi VBA.

Codi:

 Sub ChDir_Example1 () Dim FD As FileDialog Dim ND As String Set FD = Application.FileDialog (msoFileDialogFilePicker) With FD .Title = "Trieu el vostre fitxer" .AllowMultiSelect = False .Show End With End Sub 

Quan s'executi aquest codi amb la tecla F5 o manualment, s'obrirà primer la finestra per defecte següent.

A partir d’aquí he de passar per diverses carpetes i subcarpetes per seleccionar els fitxers que vull obrir mitjançant el codi VBA.

Això trigarà molt de temps. Si he de passar per diverses carpetes, també pot conduir a una selecció incorrecta de fitxers a causa de diverses subcarpetes i afegeix més confusió.

Què passa si el meu codi pot obrir la carpeta específica on s’ha de triar el meu fitxer ??

No és una bona opció tenir?

Sí, provem-ho.

Abans de passar el nostre codi, hem d’utilitzar la funció ChDir i esmentar el camí de la carpeta entre cometes dobles.

ChDir "D: \ Articles \ Fitxers Excel"

Per defecte, el codi anterior canviarà el directori al qual s'obrirà "D" unitat i sota unitat D. "Articles" i sota aquesta carpeta es troba la subcarpeta que s'ha d'obrir "Fitxers Excel".

Codi:

 Sub ChDir_Example2 () Dim Nom del fitxer com a variant ChDir "D: \ Articles \ Fitxers Excel" Filename = Application.GetSaveAsFilename () Si TypeName (Filename) “Boolean”, llavors MsgBox Filename End If End Sub 

Ara executaré el codi manualment o prement la tecla F5 i veuré quin directori de fitxers s'obre.

Com podem veure a la imatge anterior, he obtingut la finestra per defecte segons la meva especificació.

Per si de cas si ChDir no mostra el directori de fitxers esmentat, llavors primer heu de canviar el fitxer Conduir a continuació, apliqueu ChDir funció.

Per canviar la unitat que hem d’utilitzar "ChDrive" funció. Ja que vull obrir el fitxer a "D" primer he de canviar la unitat a "D".

ChDrive "D"

El codi anterior canviarà la unitat a "E".

Codi:

 Sub ChDir_Example2 () Dim Nom del fitxer com a variant ChDrive "D" ChDir "D: \ Articles \ Fitxers Excel" Filename = Application.GetSaveAsFilename () Si TypeName (Filename) “Boolean”, llavors MsgBox Filename End If End Sub 

Així, fent servir VBA "ChDir”, Podem canviar el directori de fitxers per defecte al nostre desig.