Excel VBA Chdir
"ChDir" kan kallas " Ändra katalog." 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. När vi till exempel 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 trott att vi kan ändra det standardmappsväljarfönstret 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 mappvä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.
Exempel 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) With FD .Title = "Choose Your File" .AllowMultiSelect = False. Show End With End Sub
När jag kör den här koden med F5-tangenten eller manuellt då öppnar den först standardfönstret nedan.
Härifrån måste jag gå igenom olika mappar och undermappar för att välja de filer 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 mapp där min fil 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 kommer som standard att ändra katalogen 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å MsgBox filnamn avslutas 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 "ChDir" . Eftersom jag vill öppna filen i “D” -enheten först 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, med hjälp av VBA " ChDir " -funktionen, kan vi ändra standardfilkatalogen till vår önskan.
