Fonction VBA DIR - Comment utiliser la fonction Excel VBA DIR?

Table des matières

Fonction Excel VBA DIR

La fonction VBA DIR est également connue sous le nom de fonction de répertoire, il s'agit d'une fonction intégrée dans VBA qui est utilisée pour nous donner le nom de fichier d'un fichier ou d'un dossier donné, mais nous devons fournir le chemin du fichier, la sortie renvoyée par ce La fonction est une chaîne car elle renvoie le nom du fichier, il y a deux arguments à cette fonction qui sont le nom du chemin et les attributs.

La fonction DIR renvoie le tout premier nom de fichier dans le chemin du dossier spécifié. Par exemple, dans votre lecteur D, si vous avez un nom de dossier appelé 2019 et dans ce dossier, si vous excelez un fichier nommé «2019 Sales», vous pouvez accéder à ce fichier à l'aide de la fonction DIR.

La fonction «VBA DIR» est très utile pour obtenir le nom du fichier en utilisant son répertoire de chemin.

Syntaxe

Cette fonction a deux arguments facultatifs.

  • (Nom du chemin): comme son nom l'indique, quel est le chemin d'accès au fichier. Cela peut être le nom du fichier, le nom du dossier ou le répertoire. Si aucun chemin n'est attribué, je retournerai une valeur de chaîne vide, c'est-à-dire "
  • (Attributs): Ceci est également un argument facultatif, et vous ne pouvez pas l'utiliser très souvent dans le codage. Vous pouvez spécifier l'attribut du fichier dans le (Nom du chemin) et la fonction DIR ne recherche que ces fichiers.

Par exemple: Si vous souhaitez accéder uniquement aux fichiers cachés, si vous souhaitez accéder uniquement aux fichiers en lecture seule, etc.… nous pouvons spécifier dans cet argument. Voici les attributs que nous pouvons utiliser.

Exemples d'utilisation de la fonction VBA DIR

Exemple # 1 - Accès au nom de fichier à l'aide de la fonction DIR

Je vais vous expliquer l'exemple simple d'accès au nom de fichier à l'aide de la fonction DIR. Suivez les étapes ci-dessous.

Étape 1: Créez un nom de macro.

Étape 2: définissez la variable comme chaîne .

Code:

Sub Dir_Example1 () Dim MyFile As String End Sub

Étape 3: Maintenant, pour cette variable, nous allons attribuer une valeur en utilisant la fonction DIR .

Code:

Sub Dir_Example1 () Dim MyFile As String MyFile = Dir (End Sub

Étape 4: Maintenant, copiez et collez le chemin du dossier de fichiers sur votre ordinateur. Mentionnez le chemin entre guillemets.

Code:

Sub Dir_Example1 () Dim MyFile As String MyFile = Dir ("E: VBA Template End Sub

Étape 5: J'ai mentionné mon chemin d'accès au dossier, nous devons maintenant mentionner le nom du fichier et son extension. Pour faire cette première chose que nous devons faire est de mettre une barre oblique inverse après le chemin ()

Après avoir entré la barre oblique inverse, nous devons entrer le nom complet du fichier .

Code:

Sub Dir_Example1 () Dim MyFile As String MyFile = Dir ("E: VBA Template VBA Dir Excel Template.xlsm") End Sub

Étape 6: affichez la valeur de la variable dans la boîte de message.

Code:

Sub Dir_Example1 () Dim MyFile As String MyFile = Dir ("E: VBA Template VBA Dir Excel Template.xlsm") MsgBox MyFile End Sub

Maintenant, exécutez le code et voyez quel est le résultat de la boîte de message.

La fonction DIR a donc renvoyé le nom du fichier avec l'extension de fichier.

Exemple # 2 - Ouvrir un fichier en utilisant la fonction DIR

Maintenant, comment ouvrir le fichier? Cette fonction peut renvoyer le nom du fichier, mais l'ouverture de ce fichier est un processus un peu différent. Suivez les étapes ci-dessous pour ouvrir le fichier.

Étape 1: créez deux variables sous forme de chaîne .

Code:

Sub Dir_Example2 () Dim FolderName As String Dim FileName As String End Sub

Étape 2: Maintenant, pour la variable FolderName , attribuez le chemin du dossier.

Code:

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:

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

Rendez la fenêtre immédiate visible en appuyant sur Ctrl + G.

Exécutez maintenant le code. Nous obtiendrons tous les noms de fichiers dans la fenêtre immédiate.

Articles intéressants...