Les partenaires publicitaires:

Comment copier le contenu d'un fichier texte à une feuille de calcul en utilisant VBA

Macros Microsoft Excel peuvent vous aider à automatiser presque tout type de tâche, augmenter votre productivité et améliorer votre efficacité. Écrit en VBA, macros peuvent créer, manipuler et éliminer les données dans n'importe quel tableur. En outre, vous pouvez utiliser des macros pour récupérer des informations à partir d'une base de données ou un fichier externe. Pour importer des données à partir d'un fichier texte manuellement, vous auriez à ouvrir le fichier dans un traitement de texte, copiez son contenu et de la coller dans Excel. Si vous faites affaire avec de nombreux fichiers de texte, cette méthode peut sembler ardue et fastidieuse. Une fonction simple VBA peut vous aider à automatiser.

Instructions

  1. Démarrez Microsoft Excel. Appuyez sur "Ctrl + N" pour créer un nouveau classeur. Pour utiliser l'un de vos classeurs place, appuyez sur "Ctrl + O", sélectionnez votre fichier, puis cliquez sur «Ouvrir».

  2. Appuyez sur "Alt + F8" pour ouvrir la boîte de dialogue Macros. Tapez "GetFromTextFile" dans la zone Nom de la macro, puis cliquez sur "Créer".

  3. Entrez le code suivant dans l'éditeur VBA. Remplacer "C: YOURTEXTFILE.txt" à l'emplacement exact du fichier texte que vous souhaitez importer.

    Sous GetFromTextFile ()

    Dim sFile, WholeLine As String

    Dim StartCell Comme Range

    Dim c As Integer

    Sép = Chr (13)




    Application.ScreenUpdating = False

    sFile = "C: YOURTEXTFILE.txt"

    Ouvrir sFile Pour l'accès d'entrée se lire comme # 1

    Bien que non EOF (1)

     Entrée de ligne n ° 1, WholeLine

    Si Droite (WholeLine, 1) lt;> SEP Puis

    WholeLine = WholeLine Septembre

    Fin si



    ActiveCell.NumberFormat = "@"

    ActiveCell.Value = WholeLine

    ActiveCell.Offset (1, 0) .Select

    Wend

    Close # 1

    End Sub

  4. Appuyez sur "Alt + Q" pour fermer l'éditeur VBA et revenir à votre classeur.

  5. Appuyez sur "Maj + F11" pour créer une feuille blanche.

  6. Appuyez sur "Alt + F8" pour ouvrir la boîte de dialogue Macros nouveau. Sélectionnez "Get FromTextFile" et cliquez ensuite sur "Exécuter". Cette copie le contenu de votre fichier texte à la feuille blanche.

  7. Conseils Avertissements

    • Pour obtenir l'emplacement exact d'un fichier sur votre ordinateur, maintenez enfoncée la touche "Shift", puis à droite; cliquez sur son icône de fichier. Choisissez «Copier en tant que chemin" dans le menu contextuel. Cela envoie l'emplacement du fichier (entre guillemets) pour le presse-papiers.
    • Par défaut, vous ne pouvez pas être en mesure de créer ou exécuter des macros dans Microsoft Excel. Pour activer les macros, cliquez sur le bouton Microsoft Office, puis allez dans "Options Excel." Sous "populaire", assurez-vous que "onglet Développeur Show" est cochée. Ensuite, allez à «Fiducie Center" puis cliquez sur "Paramètres du Centre." Cliquez sur "Paramètres macro" puis sélectionnez "Activer toutes les macros." Cliquez sur "OK" sur les deux boîtes de dialogue pour enregistrer vos modifications. Dans certains cas, vous devrez peut-être redémarrer Excel pour que les modifications prennent effet.
» » » » Comment copier le contenu d'un fichier texte à une feuille de calcul en utilisant VBA