VBA ChDir

Excel VBA Chdir

”ChDir” in kan kallas ” Change Directory ”. Genom att använda "ChDir" kan vi ändra den aktuella standardkatalogen som används i VBA när vi söker efter filerna utan en fullständigt kvalificerad sökväg. Till exempel när vi försöker spara filen som en ny fil som standard kan vi se att systemkonfigurerad enhet öppnas och därifrån väljer vi den mapp vi vill spara.

Har du någonsin tänkt att vi kan ändra fönstret för standardmappväljare till vår önskan? Ja, vi kan göra det här!

Låt oss nu titta på syntaxen för ChDir-funktionen i VBA.

Sökväg: Det är här vi behöver nämna mappsökvägen som vi vill öppna som standard när vi försöker öppna eller spara som filen till ett annat namn.

Vägen bör nämnas i dubbla citat.

Exempel på ChDir-funktion i VBA

Nedan följer exemplen på Excel VBA ChDir.

Du kan ladda ner denna VBA ChDir Excel-mall här - VBA ChDir Excel-mall

Exempel nr 1

Ta nu en titt på nedanstående VBA-kod.

Koda:

 Sub ChDir_Example1 () Dim FD som FileDialog Dim ND som sträng Set FD = Application.FileDialog (msoFileDialogFilePicker) Med FD .Title = "Välj din fil". AllowMultiSelect = False. 

När jag kör den här koden med F5-tangenten eller manuellt öppnar den först nedanstående standardfönster.

Härifrån måste jag gå igenom olika mappar och undermappar för att välja de filer som jag vill öppna med VBA-kod.

Detta kommer att ta mycket tid! Om jag måste gå igenom olika mappar kan det också leda till fel filval på grund av olika undermappar och det ger mer förvirring.

Vad händer om min kod kan öppna den specifika mappen där min fil som måste väljas ??

Är det inte ett coolt alternativ att ha?

Ja, låt oss prova det här.

Innan vi skickar vår kod måste vi använda funktionen ChDir och nämna mappvägen i dubbla citat.

ChDir "D: \ Articles \ Excel Files"

Ovanstående kod ändrar som standard den katalog som ska öppnas till “D” -enhet och under D-enhet “Artiklar” -mappen och under denna mapp är undermapp som ska öppnas “Excel-filer”.

Koda:

 Sub ChDir_Example2 () Dim filnamn som variant ChDir "D: \ Articles \ Excel Files" Filnamn = Application.GetSaveAsFilename () Om TypeName (filnamn) "Boolean" Då avslutas MsgBox filnamn om End Sub 

Nu kör jag koden manuellt eller genom att trycka på F5-tangenten och se vilken filkatalog som öppnas.

Som vi kan se i bilden ovan fick jag standardfönstret enligt min specifikation.

Om din ChDir- funktion inte visar den nämnda filkatalogen måste du först ändra enheten och sedan använda ChDir- funktionen.

För att ändra enheten måste vi använda funktionen "ChDrive" . Eftersom jag vill öppna filen i “D” -enheten måste jag ändra enheten till “D”.

ChDrive “D”

Ovanstående kod ändrar enheten till “E”.

Koda:

 Sub ChDir_Example2 () Dim filnamn som variant ChDrive "D" ChDir "D: \ Articles \ Excel Files" Filnamn = Application.GetSaveAsFilename () Om TypeName (filnamn) "Boolean" Då MsgBox filnamn avslutas om End Sub 

Så här genom att använda VBA “ ChDir ” -funktionen kan vi ändra standardfilkatalogen till vår önskan.