|
macros Microsoft Excel peut vous aider à automatiser presque n'importe quel genre de tâche , ce qui augmente votre productivité et améliorer votre efficacité. Ecrit en VBA, les macros peuvent créer, manipuler et de suppression des données à l'intérieur de 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 n'avez pas à ouvrir le fichier dans un traitement de texte , copier son contenu et le coller dans Excel. Si vous faites affaire avec de nombreux fichiers texte , cette méthode peut sembler intimidant et pénible . Une fonction VBA simple 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 Presse " 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 " . Avec l' emplacement exact du fichier texte que vous souhaitez importer
Sous GetFromTextFile ()
sFile Dim, WholeLine As String
startCell As Range
Dim c As Integer
septembre = Chr (13 )
Application.ScreenUpdating = False
sFile = " C: \\ YOURTEXTFILE.txt "
Ouvert sFile Pour l'entrée accès lire comme n ° 1
While Not EOF (1) Photos entrée de ligne n ° 1 , WholeLine
droit ( WholeLine , 1) <> septembre Ensuite
WholeLine = WholeLine et septembre
End If
ActiveCell.NumberFormat = "@"
ActiveCell.Value = WholeLine
ActiveCell.Offset (1, 0) . Select
Wend
Close # 1 End Sub
< br > 4 Appuyez sur " Alt + Q" pour fermer l'éditeur VBA et revenir à votre classeur.
5 Appuyez sur " Shift + F11 " pour créer une feuille blanche .
6 Appuyez sur " Alt + F8 " pour ouvrir la boîte de dialogue Macros nouveau. Choisissez " FromTextFile " puis cliquez sur "Exécuter ". Cette copie le contenu de votre fichier texte à la feuille blanche .
|
