Екцел ВБА Цхдир
„ЦхДир“ се може назвати „ Промени директоријум“. Коришћењем „ЦхДир“ можемо да променимо тренутни подразумевани директоријум који се користи у ВБА када тражимо датотеке без потпуно квалификоване путање. На пример, када покушавамо да подразумевано сачувамо датотеку као нову датотеку, могли бисмо да видимо како се системски конфигурисани погон отвара и одатле бирамо фасциклу коју желимо да сачувамо.
Да ли сте икада помислили да можемо да променимо тај подразумевани прозор за избор фасцикли према нашој жељи? Да, ми то можемо!
Погледајмо сада синтаксу функције ЦхДир у ВБА.
Путања: Овде треба да поменемо путању до фасцикле коју подразумевано желимо да отворимо када покушавамо да отворимо или сачувамо као датотеку на друго име.
Пут треба споменути у двоструким наводницима.
Примери функције ЦхДир у ВБА
Испод су примери Екцел ВБА ЦхДир-а.
Пример # 1
Сада прво погледајте доленаведени ВБА код.
Шифра:
Суб ЦхДир_Екампле1 () Дим ФД Ас ФилеДиалог Дим НД Ас Стринг Сет ФД = Апплицатион.ФилеДиалог (мсоФилеДиалогФилеПицкер) Витх ФД .Титле = "Цхоосе Иоур Филе" .АлловМултиСелецт = Фалсе. Схов Енд Витх Енд Суб
Када покренем овај код помоћу тастера Ф5 или ручно, прво ће се отворити доњи подразумевани прозор.
Од сада па надаље, морам да прођем кроз разне фасцикле и подмапе како бих одабрао датотеке које желим да отворим помоћу ВБА кода.
Ово ће потрајати пуно времена! Ако морам да прођем кроз разне фасцикле, то такође може довести до погрешног избора датотека због различитих подмапа и додаје још забуне.
Шта ако мој код може отворити одређену фасциклу у којој се тражи одабир моје датотеке ??
Зар није цоол опција имати?
Да, пробајмо ово.
Пре него што проследимо наш код, треба да користимо функцију ЦхДир и у дуплим наводницима помињемо путању до директоријума.
ЦхДир "Д: Чланци Екцел датотеке"
Горњи код ће подразумевано променити директоријум који ће се отворити у „Д“ погон и под Д погон „Чланци“ , а под овом фасциклом подмапа коју треба отворити је „Екцел датотеке“.
Шифра:
Суб ЦхДир_Екампле2 () Затамни назив датотеке као варијанту ЦхДир "Д: Чланци Екцел датотеке" Име датотеке = Апплицатион.ГетСавеАсФиленаме () Ако је Име типа (Име датотеке) "Боолеан", онда МсгБок Име датотеке Крај ако се заврши Суб
Сада ћу покренути код ручно или притиском на тастер Ф5 и видети који ће се директоријум датотека отворити.
Као што видимо на горњој слици, добио сам задани прозор према мојим спецификацијама.
За сваки случај ако ваша ЦхДир функција не приказује поменути директоријум датотека, прво треба да промените Дриве, а затим примените ЦхДир функцију.
Да бисмо променили погон, морамо да користимо функцију „ЦхДир“ . Пошто прво желим да отворим датотеку у „Д“ погону, морам да променим погон у „Д.“
ЦхДриве „Д“
Горњи код ће променити погон у „Е.“
Шифра:
Суб ЦхДир_Екампле2 () Дим име датотеке као варијанту ЦхДриве "Д" ЦхДир "Д: Чланци Екцел датотеке" Филенаме = Апплицатион.ГетСавеАсФиленаме () Ако је ТипеНаме (Филенаме) "Боолеан" Онда МсгБок Име датотеке Енд Иф Енд Суб
Овако, користећи функцију ВБА „ ЦхДир “, можемо променити подразумевани директоријум датотека према нашој жељи.
