Exceli VBA Chdir
"ChDir" võib nimetada " Muuda kataloogi". "ChDir" abil saame muuta VBA-s praegust vaikekataloogi, kui otsitakse faile ilma täielikult kvalifitseeritud teeta. Näiteks kui proovime faili vaikimisi uue failina salvestada, näeme, et süsteemi konfigureeritud draiv avaneb, ja seejärel valime kausta, mida soovime salvestada.
Kas olete kunagi mõelnud, et saame selle vaikekaustavalija akna muuta meie sooviks? Jah, me saame seda teha!
Nüüd vaatame funktsiooni ChDir süntaksit VBA-s.
Tee: siin peame mainima kaustateed, mida soovime vaikimisi avada, kui proovime faili teisele nimele avada või salvestada.
Tee tuleks mainida topelt jutumärkides.
Näited ChDiri funktsioonist VBA-s
Allpool on toodud näited Exceli VBA ChDirist.
Näide 1
Nüüd vaadake kõigepealt allpool olevat VBA-koodi.
Kood:
Sub ChDir_Example1 () Dim FD FileDialogina Dim ND stringina Komplekt FD = Application.FileDialog (msoFileDialogFilePicker) koos FD-ga .Title = "Valige oma fail" .AllowMultiSelect = Vale .Show lõpeb alamrubriigiga
Kui käivitan selle koodi klahviga F5 või siis käsitsi, avab see kõigepealt alloleva vaikeakna.
Siit edasi pean VBA-koodi abil avatavate failide valimiseks läbima erinevad kaustad ja alamkaustad.
See võtab palju aega! Kui pean läbi käima mitmesuguseid kaustu, võib see erinevate alamkaustade tõttu põhjustada ka vale failivaliku ja lisab segadust.
Mis siis, kui minu kood suudab avada konkreetse kausta, kuhu minu fail tuleb valida?
Kas see pole lahe variant?
Jah, proovime seda.
Enne koodi edastamist peame kasutama funktsiooni ChDir ja mainima kaustateed jutumärkides.
ChDir "D: Article Exceli failid"
Ülaltoodud kood muudab vaikimisi avatava kataloogi draiviks „D” ja D- kausta kaustade „Artiklid” all ning selle kausta all on avatav alamkaust “Exceli failid”.
Kood:
Alam ChDir_Example2 () Hämardab failinime variandina
Nüüd käivitan koodi käsitsi või vajutades klahvi F5 ja näen, milline failikataloog avaneb.
Nagu näeme ülaltoodud pildil, sain vaikimisi akna vastavalt minu spetsifikatsioonile.
Igaks juhuks, kui teie ChDir- funktsioon ei näita mainitud failikataloogi, peate kõigepealt draivi muutma ja seejärel rakendama ChDir- funktsiooni.
Draivi vahetamiseks peame kasutama funktsiooni "ChDir" . Kuna ma tahan kõigepealt avada faili D- draivis, pean draivi asendama nimega D.
ChDrive "D"
Ülaltoodud kood muudab draivi numbriks „E.”
Kood:
Sub ChDir_Example2 () Hämardage failinimi variandina ChDrive "D" ChDir "D: Article Excel Files" Filename = Application.GetSaveAsFilename () Kui TypeName (failinimi) "Boolean", siis MsgBoxi failinimi lõpeb, kui lõpp alam
Nii saame VBA “ ChDir ” funktsiooni kasutades muuta vaikefailide kataloogi oma sooviks.
