Funkcija VBA DIR - Kako uporabljati funkcijo Excel VBA DIR?

Kazalo

Funkcija Excel VBA DIR

Funkcija Excel VBA DIR

Funkcija VBA DIR je znana tudi kot imeniška funkcija, to je vgrajena funkcija v VBA, ki se uporablja za določanje imena datoteke dane datoteke ali mape, vendar moramo zagotoviti pot do datoteke, izhod, ki jo vrne ta Funkcija je niz, saj vrne ime datoteke, tej funkciji pripadata dva argumenta, ki sta ime poti in atributi.

Funkcija DIR vrne prvo ime datoteke v navedeni poti mape. Če imate na primer na svojem disku D ime mape z imenom 2019 in v tej mapi, če imate datoteko z imenom »Prodaja 2019«, lahko do te datoteke dostopate s funkcijo DIR.

Funkcija »VBA DIR« je zelo koristna pri pridobivanju imena datoteke z uporabo mape poti.

Sintaksa

Ta funkcija ima dva neobvezna argumenta.

(Ime poti): Kot že ime pove, kakšna je pot do datoteke. To je lahko tudi ime datoteke, ime mape ali imenika. Če katera koli pot ni dodeljena, vrnem prazno vrednost niza, tj.
(Atributi): To je tudi neobvezen argument in pri kodiranju tega morda ne boste uporabljali zelo pogosto. Atribut datoteke lahko določite v (Ime poti) in funkcija DIR išče samo te datoteke.

Na primer: Če želite dostopati samo do skritih datotek, če želite dostopati samo do datotek samo za branje itd.…, Lahko v tem argumentu določimo. Spodaj so atributi, ki jih lahko uporabimo.

Primeri uporabe funkcije VBA DIR

Primer # 1 - Dostop do imena datoteke s funkcijo DIR

Pojasnil vam bom preprost primer dostopa do imena datoteke s funkcijo DIR. Sledite spodnjim korakom.

1. korak: Ustvarite ime makra.

2. korak: Spremenljivko definirajte kot niz .

Koda:

Sub Dir_Example1 () Zatemni MyFile kot niz na koncu Sub

3. korak: Zdaj bomo tej spremenljivki dodelili vrednost s funkcijo DIR .

Koda:

Sub Dir_Example1 () Dim MyFile kot niz MyFile = Dir (End Sub

4. korak: Zdaj kopirajte in prilepite pot do mape datotek v računalnik. Ime poti navedite v dvojnih narekovajih.

Koda:

Sub Dir_Example1 () Dim MyFile kot niz MyFile = Dir ("E: VBA Predloga Konec Sub

5. korak: Omenil sem svojo pot do mape, zdaj pa moramo omeniti tudi ime datoteke in njeno pripono. Za to moramo najprej narediti poševnico po poti ()

Po vnosu poševnice nazaj moramo vnesti celotno ime datoteke .

Koda:

Sub Dir_Example1 () Zatemni MyFile kot niz MyFile = Dir ("E: VBA Predloga VBA Dir Excel Template.xlsm") Konec Sub

6. korak: V oknu za sporočilo prikažite vrednost spremenljivke.

Koda:

Sub Dir_Example1 () Zatemni MyFile kot niz MyFile = Dir ("E: VBA Predloga VBA Dir Excel Template.xlsm") MsgBox MyFile End Sub

Zdaj zaženite kodo in poglejte, kakšen je rezultat okna za sporočilo.

Tako je funkcija DIR vrnila ime datoteke s pripono datoteke.

2. primer - Odprite datoteko s funkcijo DIR

Kako naj zdaj odpremo datoteko? Ta funkcija lahko vrne ime datoteke, vendar je odpiranje te datoteke nekoliko drugačen postopek. Sledite spodnjim korakom, da odprete datoteko.

1. korak: Ustvari dve spremenljivki kot niz .

Koda:

Sub Dir_Example2 () Dim Ime mape kot niz Dim ime datoteke kot konec niza Sub

2. korak: Zdaj spremenljivki FolderName dodelite pot do mape.

Koda:

Sub Dir_Example2 () Dim Ime mape kot niz Dim ime datoteke kot niz FolderName = "E: VBA Predloga " Konec Sub

3. korak: Zdaj moramo za spremenljivko FileName dobiti ime datoteke s pomočjo funkcije DIR .

Koda:

Sub Dir_Example2 () Dim FolderName kot niz Dim Dim File Name kot niz FolderName = "E: VBA Template " FileName = Dir (End Sub

4. korak: Zdaj smo za Ime poti spremenljivki FolderPath že dodelili pot, tako da lahko spremenljivko neposredno vnesemo tukaj.

Koda:

Sub Dir_Example2 () Dim FolderName kot niz Dim DimName kot niz FolderName = "E: VBA Template " FileName = Dir (FolderName End Sub

5. korak: Zdaj moramo vnesti ime datoteke. Z uporabo znaka ampersand (&) dodelite ime datoteke.

Koda:

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:

Sub Dir_Example4 () Dim FileName kot niz FileName = Dir ("E: VBA Template ", vbDirectory) Do While FileName "" Debug.Print FileName FileName = Dir () Loop End Sub

Naj bo takojšnje okno vidno s pritiskom na Ctrl + G.