VBA est utilisé dans Excel pour créer des macros qui automatisent les tâches qui devraient normalement être effectuée manuellement. La réalisation de ces tâches manuellement peut prendre du temps et encombrant. De nombreux utilisateurs ont parfois besoin de copier et coller des données dans Excel à partir de fichiers texte. Il suffit de copier-coller des données à partir d'un fichier texte dans Excel n'entraînera pas de données correctement formatées . La méthode OpenText est utilisé pour charger un fichier texte et l'analyser . Une feuille de calcul est créé avec les données analysées . Cette méthode élimine la nécessité pour l'utilisateur d' importer manuellement le fichier texte et de passer par l '"Assistant Importation de texte " . Instructions
1

Ouvrez un nouveau classeur. Appuyez sur Alt et F11 de votre clavier pour ouvrir l'éditeur VBA. Cliquez sur le menu Fichier et sélectionnez "Nouveau" . Double-cliquez sur la feuille ( Feuille1 ) sous Microsoft Excel Objets dans le volet de la fenêtre Projet VBAProject .
2

Type Sous , suivi par le nom de la macro dans la première ligne , comme sous Open () . Vous pouvez donner n'importe quel nom de la macro que vous souhaitez
3

Ajoutez la méthode OpenText , en précisant les informations suivantes: .

1 . Directory se trouve le fichier in.2 . Numéro de la ligne que vous souhaitez commencer l'importation des données po L'origine du fichier est de 437 : OEM Etats-Unis par défaut si vous êtes aux États- Unis3 . Choisissez si vous souhaitez analyser le fichier dans un délimitée par rapport à largeur fixe. Avec délimité , vous devez spécifier ce que le séparateur est d'analyser le fichier , comme tabulation, point virgule , virgule , un espace ou un séparateur personnalisé. Réglez le séparateur que vous souhaitez utiliser à TRUE, et le reste des séparateurs à false.

Par exemple, si nous voulons analyser un fichier texte situé sur le bureau de John Smith , séparés par des tabulations, nous utiliserions le code suivant :

Workbooks.OpenText fichier: = _ " C: \\ Documents and Settings \\ Jsmith \\ Desktop \\ info.txt " , Origine: = 437, StartRow _: = 1, DataType : = xlDelimited , TextQualifier : = xlDoubleQuote , _ConsecutiveDelimiter : = False , Tab: = True , point-virgule : = False , Comma : = False _ , espace: = False , Other : = False , FieldInfo : = Array (1, 1 ) , _TrailingMinusNumbers : = True
4

Fin de la macro en tapant "End Sub " . Enregistrez la macro en cliquant sur le bouton Enregistrer dans la barre d'outils . Fermez la fenêtre Visual Basic.
5

exécutez la macro en cliquant sur l'onglet Affichage dans la barre d'outils . Cliquez sur Macros, sélectionnez la macro . Cliquez sur le bouton "Exécuter" .