ВБА ДИР функција - Како се користи Екцел ВБА ДИР функција?

Преглед садржаја

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

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

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

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

Синтакса

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

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

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

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

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

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

Корак 1: Креирајте име макронаредбе.

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

Шифра:

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

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

Шифра:

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

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

Шифра:

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

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

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

Шифра:

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

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

Шифра:

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

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

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

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

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

Корак 1: Креирајте две променљиве као Стринг .

Шифра:

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

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

Шифра:

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

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

Шифра:

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

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

Шифра:

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

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

Шифра:

Sub Dir_Example2() Dim FolderName As String Dim FileName As String FolderName = "E:VBA Template " FileName = Dir(FolderName & "VBA Dir Excel Template.xlsm") End Sub

Step 6: Now use the WORKBOOKS.OPEN method.

Code:

Sub Dir_Example2() Dim FolderName As String Dim FileName As String FolderName = "E:VBA Template " FileName = Dir(FolderName & "VBA Dir Excel Template.xlsm") Workbooks.Open End Sub

Step 7: File Name is a combination of FolderPath & FileName. So combine these two.

Code:

Sub Dir_Example2() Dim FolderName As String Dim FileName As String FolderName = "E:VBA Template " FileName = Dir(FolderName & "VBA Dir Excel Template.xlsm") Workbooks.Open FolderName & FileName End Sub

Now run this code. It will open the mentioned file name.

Example #3 - Multiple Open Workbooks using DIR Function

Actually, we can access all the workbooks in the folder. In order to access each and every file, we cannot mention all the file names directly, but we can use the wildcard character to refer to the file.

The asterisk (*) is one of those wildcard characters. It identifies any number of characters. For example, if you want to access all the macro files in the folder, you can use the asterisk as the wildcard i.e., “*.xlsm*.”

Here * will match any file name with the extension of the file is equal to “xlsm.”

Code:

Sub Dir_Example3() Dim FolderName As String Dim FileName As String FolderName = "E:VBA Template " FileName = Dir(FolderName & "*.xlsm*") Do While FileName "" Workbooks.Open FolderName & FileName FileName = Dir() Loop End Sub

Now the above code will open all the files in the folder path.

FileName = Dir() the reason why I have used this line because, in order to access the next file in the folder, we have to make the existing file name to nil. The moment we make the existing file name to nil when the loop runs for the second time, it will take the next file in the folder.

Example #4 - Get all the File Names in the Folder

Suppose if you want the list of all the file names in the folder, we can also do this by using attributes.

Code:

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

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

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

Занимљиви Чланци...