photosdematures.com

Екцел ВБА Цхдир

„ЦхДир“ се може назвати „Промени директоријум”. Коришћењем „ЦхДир“ можемо променити тренутни подразумевани директоријум који се користи у ВБА приликом тражења датотека без потпуно квалификоване путање. На пример, када покушавамо да подразумевано сачувамо датотеку као нову датотеку, могли смо да видимо како се системски конфигурисани погон отвара и одатле бирамо фасциклу коју желимо да сачувамо.

Да ли сте икада помислили да можемо да променимо тај подразумевани прозор за избор фасцикли према нашој жељи? Да, ми то можемо!

Погледајмо сада синтаксу функције ЦхДир у ВБА.

Путања: Овде треба да поменемо путању до фасцикле коју подразумевано желимо да отворимо када покушавамо да отворимо или сачувамо као датотеку на друго име.

Пут треба споменути у двоструким наводницима.

Примери функције ЦхДир у ВБА

Испод су примери Екцел ВБА ЦхДир-а.

Овај ВБА ЦхДир Екцел образац можете преузети овде - ВБА ЦхДир Екцел предложак

Пример # 1

Сада прво погледајте доленаведени ВБА код.

Шифра:

 Суб ЦхДир_Екампле1 () Дим ФД Ас ФилеДиалог Дим НД Ас Стринг Сет ФД = Апплицатион.ФилеДиалог (мсоФилеДиалогФилеПицкер) Витх ФД .Титле = "Изаберите датотеку" .АлловМултиСелецт = Фалсе. Схов Енд Витх Енд Суб 

Када покренем овај код помоћу тастера Ф5 или ручно, прво ће се отворити доњи подразумевани прозор.

Од овог тренутка морам проћи кроз разне директоријуме и подмапе како бих одабрао датотеке које желим да отворим помоћу ВБА кода.

Ово ће потрајати пуно времена! Ако морам да прођем кроз разне фасцикле, то такође може довести до погрешног избора датотека због различитих подмапа и додаје још забуне.

Шта ако мој код може отворити одређену фасциклу у којој треба изабрати моју датотеку ??

Зар није цоол опција имати?

Да, пробајмо ово.

Пре него што проследимо наш код, морамо да користимо функцију ЦхДир а пут до директоријума помињемо у двоструким наводницима.

ЦхДир "Д: \ Чланци \ Екцел датотеке"

Горњи код ће подразумевано променити директоријум у који ће се отворити „Д“ погон и под погоном Д. „Чланци“ и испод ове мапе налази се подмапа коју треба отворити „Екцел датотеке“.

Шифра:

 Суб ЦхДир_Екампле2 () Затамни назив датотеке као варијанту ЦхДир "Д: \ Чланци \ Екцел датотеке" Име датотеке = Апплицатион.ГетСавеАсФиленаме () Ако је Име типа (Име датотеке) "Боолеан", онда МсгБок Име датотеке Крај ако се заврши Суб 

Сада ћу покренути код ручно или притиском на тастер Ф5 и видети који ће се директоријум датотека отворити.

Као што видимо на горњој слици, добио сам задани прозор према мојим спецификацијама.

За сваки случај ако је ваш ЦхДир функција не приказује поменути директоријум датотека, па прво треба да промените Погон онда се пријави ЦхДир функцију.

Да бисмо променили погон који треба да користимо „ЦхДриве“ функцију. Пошто желим да отворим датотеку у „Д“ возите прво морам да променим погон у „Д“.

ЦхДриве „Д“

Горњи код ће променити погон у „Е“.

Шифра:

 Суб ЦхДир_Екампле2 () Затамни име датотеке као варијанту ЦхДриве "Д" ЦхДир "Д: \ Чланци \ Екцел датотеке" Име датотеке = Апплицатион.ГетСавеАсФиленаме () Ако је ТипеНаме (Име датотеке) "Боолеан" Онда МсгБок Име датотеке Крај Ако Крај Суб 

Овако помоћу ВБА “ЦхДир”, Можемо променити подразумевани директоријум датотека према нашој жељи.