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, WholeLineSi 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