photosdematures.com

Екцел ВБА ДИР функција

ВБА ДИР Функција је такође позната и као функција директоријума, ово је уграђена функција у ВБА која се користи да би нам дала име датотеке дате датотеке или фасцикле, али морамо да наведемо путању до датотеке, излаз који враћа ова функција је стринг враћа име датотеке, овој функцији постоје два аргумента, а то су име путање и атрибути.

ДИР функција враћа прво име датотеке у наведеној путањи мапе. На пример, на вашем Д диску ако имате име фасцикле звано 2019, а у тој фасцикли, ако екцел датотеку под називом „2019 Салес“, можете приступити овој датотеци помоћу функције ДИР.

Функција „ВБА ДИР“ је врло корисна за добијање имена датотеке користећи директоријум њене путање.

Синтакса

Ова функција има два необавезна аргумента.

• [Назив пута]: Као што име говори који је пут до приступа датотеци. То може бити и име датотеке, име директоријума или директоријума. Ако ниједна путања није додељена, вратићу празну вредност низа, тј.
• [Атрибути]: Ово је такође необавезни аргумент и ово можда нећете користити често у кодирању. Атрибут датотеке можете одредити у [Назив пута] а ДИР функција тражи само те датотеке.

На пример: Ако желите да приступите само скривеним датотекама, ако желите да приступите само датотекама само за читање итд ... можемо да наведемо у овом аргументу. Испод су атрибути које можемо користити.

Примери употребе ВБА ДИР функције

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

Пример # 1 - Приступ називу датотеке помоћу ДИР функције

Објаснићу вам једноставан пример приступа имену датотеке помоћу функције ДИР. Следите кораке у наставку.

Корак 1: Направите име макронаредбе.

Корак 2: Дефинишите променљиву као Низ.

Шифра:

 Суб Дир_Екампле1 () Пригуши МиФиле као низ на крају Суб 

Корак 3: Сада ћемо овој променљивој доделити вредност помоћу ДИР функција.

Шифра:

 Суб Дир_Екампле1 () Затамни МиФиле као низ МиФиле = Дир (Крај Суб 

Корак 4: Сада копирајте и налепите директоријум датотека путања на рачунару. Наведите име стазе у двоструким наводницима.

Шифра:

 Суб Дир_Екампле1 () Затамни МиФиле као низ МиФиле = Дир ("Е: \ ВБА Предложак Крај Суб 

Корак 5: Споменуо сам свој пут до фолдера, сада морамо да поменемо и име датотеке и њен наставак. Да бисмо ово урадили прво што треба да урадимо је да ставимо косу црту након пута (\)

Након уласка у косу црту требамо ући у пуно име датотеке.

Шифра:

 Суб Дир_Екампле1 () Затамни МиФиле као низ МиФиле = Дир ("Е: \ ВБА Темплате \ ВБА Дир Екцел Темплате.клсм") Крај Суб 

Корак 6: Прикажите вредност променљиве у оквиру за поруку.

Шифра:

 Суб Дир_Екампле1 () Затамни МиФиле као низ МиФиле = Дир ("Е: \ ВБА Темплате \ ВБА Дир Екцел Темплате.клсм") МсгБок МиФиле Енд Суб 

Сада покрените код и погледајте шта је резултат оквира за поруку.

Дакле, функција ДИР је вратила име датотеке са наставком датотеке.

Пример # 2 - Отворите датотеку помоћу ДИР функције

Како сада отворити датотеку? Ова функција може вратити име датотеке, али отварање те датотеке је мало другачији процес. Следите кораке у наставку да бисте отворили датотеку.

Корак 1: Направите две променљиве као Низ.

Шифра:

 Суб Дир_Екампле2 () Дим Име мапе као низ Дим име датотеке као низ Енд Суб 

Корак 2: Сада за Име фасцикле променљива додељује путању до директоријума.

Шифра:

 Суб Дир_Екампле2 () Дим Име мапе као низ Дим име датотеке као низ ФолдерНаме = "Е: \ ВБА Темплате \" Енд Суб 

Корак 3: Сада за променљиву ФилеНаме, морамо добити име датотеке помоћу ДИР функција.

Шифра:

 Суб Дир_Екампле2 () Дим Име мапе као низ Дим име датотеке као низ ФолдерНаме = "Е: \ ВБА Темплате \" Име датотеке = Дир (Крај Суб 

Корак 4: Сада смо за Патх Наме већ доделили путању променљивој ФолдерПатх, тако да променљиву можемо директно доставити овде.

Шифра:

 Суб Дир_Екампле2 () Дим Име мапе као низ Дим име датотеке као низ ФолдерНаме = "Е: \ ВБА Темплате \" Име датотеке = Дир (Име мапе Крај Суб 

Корак 5: Сада треба да наведемо име датотеке. Употребом знака амперсанд (&) доделите име датотеке.

Шифра:

 Суб Дир_Екампле2 () Дим Име мапе као низ Дим име датотеке као низ ФолдерНаме = "Е: \ ВБА Темплате \" ФилеНаме = Дир (ФолдерНаме & "ВБА Дир Екцел Темплате.клсм") Крај Суб 

Корак 6: Сада користите РАДНЕ КЊИГЕ.ОПЕН метода.

Шифра:

 Суб Дир_Екампле2 () Дим Име мапе као низ Дим име датотеке као низ ФолдерНаме = "Е: \ ВБА Темплате \" ФилеНаме = Дир (ФолдерНаме & "ВБА Дир Екцел Темплате.клсм") Радне свеске. Отвори Крај Суб 

Корак 7: Име датотеке је комбинација Путања до мапе и име датотеке. Па комбинујте ово двоје.

Шифра:

 Суб Дир_Екампле2 () Дим Име мапе као низ Дим име датотеке као низ ФолдерНаме = "Е: \ ВБА Темплате \" ФилеНаме = Дир (Име мапе & "ВБА Дир Екцел Темплате.клсм") Радне свеске. 

Сада покрените овај код, отвориће поменуто име датотеке.

Пример # 3 - Отворите више радних свезака помоћу ДИР функције

Заправо, можемо приступити свим радним свескама у фасцикли. Да бисмо приступили свакој датотеци, не можемо директно споменути сва имена датотека, али можемо да користимо џокер знак да бисмо је упутили на датотеку.

Звездица (*) је један од оних џокер знакова. Идентификује било који број знакова. На пример, ако желите да приступите свим макро датотекама у директоријуму, звездицу можете користити као џокер, тј. „* .Кслсм *“

Овде * ће се подударати са било којим именом датотеке са наставком датотеке који је једнак „клсм“.

Шифра:

 Суб Дир_Екампле3 () Дим Име мапе као низ Дим име датотеке као низ ФолдерНаме = "Е: \ ВБА Темплате \" ФилеНаме = Дир (ФолдерНаме & "* .клсм *") До вхиле ФилеНаме "" Воркбоокс.Опен ФолдерНаме & ФилеНаме ФилеНаме = Дир ( ) Лооп Енд Суб 

Сада ће горњи код отворити све датотеке на путу до фолдера.

Име датотеке = Дир () разлог зашто сам користио ову линију јер, да бисмо приступили следећој датотеци у фасцикли, морамо постојеће име датотеке учинити нула. Оног тренутка када постојећи назив датотеке поништимо када се петља покрене други пут, узеће следећу датотеку у фасцикли.

Пример # 4 - Дохватите сва имена датотека у фасцикли

Претпоставимо да ако желите листу свих имена датотека у фасцикли, то такође можемо учинити помоћу атрибута.

Шифра:

 Суб Дир_Екампле4 () Дим ФилеНаме као низ ФилеНаме = Дир ("Е: \ ВБА Темплате \", вбДирецтори) До вхиле ФилеНаме "" Дебуг.Принт ФилеНаме ФилеНаме = Дир () Лооп Енд Суб 

Притиском на тастер учините тренутни прозор видљивим Цтрл + Г.

Сада покрените код, добићемо сва имена датотека у непосредном прозору.