Excel VBA DIR-funktion
VBA DIR- funktion är också känd som katalogfunktionen, det här är en inbyggd funktion i VBA som används för att ge oss filnamnet på en viss fil eller en mapp men vi måste ange sökvägen för filen, utgången returneras av denna funktionen är sträng eftersom den returnerar namnet på filen, det finns två argument för denna funktion som är sökvägen och attributen.
DIR-funktionen returnerar det allra första filnamnet i den angivna mappvägen. Till exempel, i din D Drive, om du har ett mappnamn som heter 2019 och i den mappen, om du utmärker filen med namnet "2019 Sales", kan du komma åt den här filen med DIR-funktionen.
“VBA DIR” -funktionen är till stor hjälp för att få namnet på filen genom att använda sökvägsmappen.
Syntax
Denna funktion har två valfria argument.
- (Path Name): Som namnet säger, vilken sökväg för åtkomst till filen är. Detta kan också vara namnet på filen, namnet på mappen eller katalogen. Om någon sökväg inte tilldelas returnerar jag ett tomt strängvärde, dvs “
- (Attribut): Detta är också ett valfritt argument, och du kanske inte använder det så ofta vid kodning. Du kan ange attributet för filen i (Path Name), och DIR-funktionen letar bara efter dessa filer.
Till exempel: Om du bara vill komma åt dolda filer, om du bara vill ha åtkomst till skrivskyddade filer etc. … kan vi specificera i detta argument. Nedan följer de attribut som vi kan använda.
Exempel för att använda VBA DIR-funktion
Exempel nr 1 - Åtkomst till filnamnet med DIR-funktionen
Jag kommer att förklara för dig det enkla exemplet med att komma åt filnamnet med DIR-funktionen. Följ stegen nedan.
Steg 1: Skapa ett makronamn.
Steg 2: Definiera variabeln som sträng .
Koda:
Sub Dir_Example1 () Dim MyFile Som Sträng End Sub
Steg 3: Nu, för denna variabel, tilldelar vi värde med hjälp av DIR-funktionen .
Koda:
Sub Dir_Example1 () Dim MyFile As String MyFile = Dir (End Sub
Steg 4: Kopiera och klistra in filmappsökvägen på din dator. Nämn sökvägen i dubbla citat.
Koda:
Sub Dir_Example1 () Dim MyFile As String MyFile = Dir ("E: VBA Template End Sub
Steg 5: Jag har nämnt min väg till mappen, nu måste vi också nämna filnamnet och dess tillägg. För att göra detta första måste vi göra är att vi måste sätta en backslash efter sökvägen ()
När du har angett backslash måste vi ange hela filnamnet .
Koda:
Sub Dir_Example1 () Dim MyFile As String MyFile = Dir ("E: VBA Template VBA Dir Excel Template.xlsm") End Sub
Steg 6: Visa variabelns värde i meddelandefältet.
Koda:
Sub Dir_Example1 () Dim MyFile As String MyFile = Dir ("E: VBA Template VBA Dir Excel Template.xlsm") MsgBox MyFile End Sub
Kör nu koden och se vad resultatet av meddelandefältet är.
Så DIR-funktionen returnerade filnamnet med filtillägget.
Exempel # 2 - Öppna fil med DIR-funktion
Hur öppnar vi filen nu? Denna funktion kan returnera filnamnet, men att öppna filen är lite annorlunda. Följ stegen nedan för att öppna filen.
Steg 1: Skapa två variabler som sträng .
Koda:
Under Dir_Exempel2 () Dimmappnamn som sträng Dimma filnamn som strängavsluta
Steg 2: Nu, för Mapp variabeln tilldela sökvägen mappen.
Koda:
Sub Dir_Example2() Dim FolderName As String Dim FileName As String FolderName = "E:VBA Template " End Sub
Step 3: Now, for the FileName variable, we need to get the file name by using the DIR function.
Code:
Sub Dir_Example2() Dim FolderName As String Dim FileName As String FolderName = "E:VBA Template " FileName = Dir( End Sub
Step 4: Now, for Path Name, we have already assigned a path to the variable FolderPath, so we can directly supply the variable here.
Code:
Sub Dir_Example2() Dim FolderName As String Dim FileName As String FolderName = "E:VBA Template " FileName = Dir(FolderName End Sub
Step 5: Now, we need to supply the file name. By using the ampersand symbol (&), assign the file name.
Code:
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:
Under Dir_Exempel4 () Dim filnamn som sträng Filnamn = Dir ("E: VBA-mall ", vbDirectory) Gör medan filnamn "" Debug.Print FileName FileName = Dir () Loop End Sub
Gör det omedelbara fönstret synligt genom att trycka på Ctrl + G.
Kör nu koden. Vi får alla filnamn i det omedelbara fönstret.
