Écrire un fichier texte dans Excel VBA

Nous sommes tous confrontés à ce genre de situation où nous avons dû mettre d'énormes données dans des fichiers Excel, mais finalement, nous avons dû faire face à une situation où la taille de ce fichier avec les énormes données a augmenté de telle sorte que nous avons dû convertir cela en texte fichier. Pour cette raison, nous ne pouvions ni travailler sur ce fichier ni enregistrer le fichier au format Excel. Ce type de situation, nous l'avons vu dans de nombreux projets où nous devons extraire les données de la base de données. Il est possible d'extraire les données de la base de données si vous utilisez un fichier texte à cet effet. Le fichier texte n'est pas bloqué et nous pouvons stocker autant de données et de tableaux dans un seul fichier texte sans planter le fichier. Pour cela, nous devons convertir le fichier Excel en un fichier texte. Bien que ce ne soit pas une grosse tâche de savoir quand il s'agit d'une activité répétitive et cela peut prendre un temps énorme à exécuter.

Pour éviter cela, nous avons un processus en VBA, avec cela, nous pouvons convertir le fichier Excel en un fichier texte sans nuire aux données. Par cela, nous pouvons enregistrer un énorme ensemble de données dans le fichier texte en réduisant et en compressant également la taille du fichier.

Comprendre le code VBA d'écriture du fichier texte est assez complexe mais il n'est pas difficile à comprendre.

Processus suivi:

  • Chemin du fichier: mettre le chemin du fichier où nous avons conservé le fichier Excel.
  • Mode: Dans quel but nous devons ouvrir le fichier. Il peut s'agir du mode lecture seule ou de l'écriture, ou nous devons l'utiliser pour ajouter les données.
  • Numéro de fichier: Par cela, nous pouvons compter le nombre de fois que nous avons utilisé pour Excel fichier pour un fichier texte.

Comment écrire un fichier texte dans Excel VBA?

Nous allons apprendre à écrire un fichier texte en utilisant du code VBA dans Excel avec quelques exemples.

Vous pouvez télécharger ce modèle Excel de fichier texte d'écriture VBA ici - Modèle Excel de fichier texte d'écriture VBA

Exemple # 1 - Fichier texte d'écriture VBA

Dans cet exemple, nous verrons comment mapper l'emplacement du fichier avec le code VBA pour l'écrire sur le format de fichier texte. Pour cela, nous avons besoin d'un module.

Étape 1: Accédez à l'option de menu Insérer et sélectionnez Module comme indiqué ci-dessous.

Étape 2: Maintenant, dans le module ouvert, écrivez la sous-catégorie de VBA Write Text ou nous pouvons choisir n'importe quel nom selon notre choix.

Code:

 Sub WriteTextFile2 () End Sub

Étape 3: dans la première étape du codage, déclarez la variable myFile en tant que chaîne, comme indiqué ci-dessous.

Code:

 Sub WriteTextFile2 () Dim myFile As String End Sub

Étape 4: Dans la variable affectée, placez l'emplacement du fichier que nous devons convertir d'Excel en texte. Ici, nous avons nommé ce fichier Test avec l'extension. txt comme indiqué ci-dessous.

Code:

 Sub WriteTextFile2 () Dim myFile As String myFile = "D: \ VPB File \ April Files \ Final location \ Final Input.txt" End Sub

Étape 5: Comme nous l'avons vu dans la description du fichier texte d'écriture VBA, nous allons d'abord ouvrir le fichier Excel, puis ajouter les données d'Excel à un fichier texte avec la ligne de commande ci-dessous.

Code:

 Sub WriteTextFile2 () Dim myFile As String myFile = "D: \ VPB File \ April Files \ Final location \ Final Input.txt" Ouvrir monFichier pour l'ajouter comme # 1 End Sub

Étape 6: Maintenant, mettons du texte dans un fichier texte que nous aimerions voir comme indiqué ci-dessous à l'aide de Write # 1 pour le premier tableau. Nous avons entré des marques de voitures aléatoires avec le nom du modèle et les spécifications.

Code:

 Sub WriteTextFile2 () Dim myFile As String myFile = "D: \ VPB File \ April Files \ Final location \ Final Input.txt" Open myFile For Append As # 1 Write # 1, "Ford", "Figo", 1000, " miles ", 2000 Write # 1, " Toyota ", " Etios ", 2000, " miles ", End Sub

Étape 7: Fermez maintenant le premier tableau comme indiqué ci-dessous.

Code:

 Sub WriteTextFile2 () Dim myFile As String myFile = "D: \ VPB File \ April Files \ Final location \ Final Input.txt" Open myFile For Append As # 1 Write # 1, "Ford", "Figo", 1000, " miles ", 2000 Ecrire # 1, " Toyota ", " Etios ", 2000, " miles ", Fermer # 1 End Sub

Étape 8: Nous aimerions également voir le message une fois le processus terminé.

Code:

 Sub WriteTextFile2 () Dim myFile As String myFile = "D: \ VPB File \ April Files \ Final location \ Final Input.txt" Open myFile For Append As # 1 Write # 1, "Ford", "Figo", 1000, " miles ", 2000 Write # 1, " Toyota ", " Etios ", 2000, " miles ", Close # 1 MsgBox" Saved "End Sub

Étape 9: compilez maintenant le code et exécutez-le en cliquant sur le bouton Lecture situé sous la barre de menu, comme indiqué ci-dessous. S'il n'y a pas d'erreur trouvée, nous obtiendrions la boîte de message avec le message comme enregistré comme indiqué ci-dessous.

Étape 10: Maintenant, allez à l'emplacement que nous avons mentionné dans le code ci-dessus, nous verrons le fichier texte avec le nom Test comme indiqué ci-dessous.

Maintenant, pour vérifier si ce fichier texte contient les mêmes données que celles que nous avons saisies via VBA, ouvrez-le. Nous verrons que les mêmes données ont été entrées.

Exemple # 2 - Fichier texte d'écriture VBA

Il y a une autre façon de faire le même travail.

Étape 1: Dans l'exemple, nous utiliserons le même code que nous avons écrit ci-dessus mais il y aurait un léger changement dans le code utilisé. Prenons le même code que celui illustré dans l'exemple-1.

Code:

 Sub WriteTextFile2 () Dim myFile As String myFile = Open myFile For Append As # 1 Write # 1, "Ford", "Figo", 1000, "miles", 2000 Write # 1, "Toyota", "Etios", 2000, "miles", Fermer # 1 MsgBox "Saved" End Sub

Étape 2: Maintenant à la place de l'emplacement du fichier, sélectionnez le classeur actif avec ActiveWorkbook comme indiqué ci-dessous.

Code:

 Sub WriteTextFile2 () Dim myFile As String myFile = ActiveWorkbook. Ouvrir mon fichier pour l'ajouter en tant que # 1 Écrire # 1, "Ford", "Figo", 1000, "miles", 2000 Écrire # 1, "Toyota", "Etios", 2000, "miles", Fermer # 1 MsgBox "Enregistré "End Sub

Étape 3: Sélectionnez maintenant le chemin dans la liste déroulante d' ActiveWorkBook .

Code:

 Sub WriteTextFile2 () Dim myFile As String myFile = ActiveWorkbook.Path Open myFile For Append As # 1 Write # 1, "Ford", "Figo", 1000, "miles", 2000 Write # 1, "Toyota", "Etios", 2000, "miles", Fermer # 1 MsgBox "Saved" End Sub

Étape 4: Sélectionnez ensuite le chemin où nous devons ajouter les données dans le fichier texte séparé par une esperluette.

Code:

 Sub WriteTextFile2 () Dim myFile As String myFile = ActiveWorkbook.Path & "\ VPB File" Open myFile For Append As # 1 Write # 1, "Ford", "Figo", 1000, "miles", 2000 Write # 1, " Toyota ", " Etios ", 2000, " miles ", Fermer # 1 MsgBox" Saved "End Sub

Étape 5: compilez à nouveau le code et exécutez-le ensuite. Une fois l'exécution réussie, le message est enregistré comme enregistré .

Maintenant, allez à nouveau sur ce chemin où nous avons conservé ce fichier qui contient le code et voyez si le fichier texte y est enregistré ou non.

Ouvrez maintenant le fichier pour vérifier si les données sont correctement ajoutées ou non. Nous constaterons que les données sont ajoutées de la même manière que dans l'exemple-1.

Avantages du fichier texte d'écriture Excel VBA

  • Nous n'avons même pas besoin d'ouvrir de fichier pour ajouter les données.
  • Si les données sont énormes, nous pouvons ajouter les données d'Excel au texte sans ouvrir le fichier. Il n'y a donc aucun problème à gérer le fichier également.
  • Si nous allons avec le processus partagé dans l'exemple-2, nous n'avons même pas besoin de donner le chemin où nous voulons voir le fichier texte de sortie.

Choses dont il faut se rappeler

  • Dans le processus illustré dans l'exemple-1, nous pouvons placer le fichier à l'emplacement où nous voulons voir la sortie.
  • Dans le processus montré dans l'exemple-2, il considérera automatiquement l'emplacement du fichier qui a le code VBA du fichier texte d'écriture VBA.
  • Nous pouvons même sélectionner les données de n'importe quel fichier Excel que nous voulons convertir dans le fichier texte.
  • Nous pouvons sélectionner et créer autant de tableaux que nous voulons ajouter dans le fichier texte.

Articles recommandés

Ceci est un guide pour VBA Write Text File. Ici, nous discutons de la façon d'écrire un fichier texte dans Excel à l'aide du code VBA ainsi que des exemples pratiques et un modèle Excel téléchargeable. Vous pouvez également consulter nos autres articles suggérés -

  1. VBA InStr expliqué avec des exemples
  2. Type de données entier VBA
  3. VBA ISNULL expliqué avec des exemples
  4. Transposer une plage en VBA

Catégorie:

VBA