Microsoft Excel- makroer kan hjelpe deg å automatisere nesten alle slags oppgave, øke produktiviteten og forbedre din effektivitet . Skrevet i VBA , kan makroer opprette, manipulere og fjerne data innenfor alle regneark . I tillegg kan du bruke makroer til å hente informasjon fra en ekstern database eller fil . Hvis du vil importere data fra en tekstfil manuelt , ville du må åpne filen i et tekstbehandlingsprogram, kopiere innholdet og lime dem inn i Excel. Hvis du arbeider med mange tekstfiler , kan denne metoden virke skremmende og kjedelig . En enkel VBA -funksjonen kan hjelpe deg å automatisere det. Instruksjoner
en

Start Microsoft Excel . Trykk " Ctrl + N " for å opprette en ny arbeidsbok . For å bruke en av dine arbeidsbøker stedet , trykke "Ctrl + O ", velg filen og klikk deretter på " Åpne. "
2

Trykk "Alt + F8 " for å åpne dialogboksen Makroer . Type " GetFromTextFile " i Makro -boksen , og klikk deretter på " Create ".
3

Skriv inn følgende kode i VBA editor. Erstatt " C : \\ YOURTEXTFILE.txt " . Med den nøyaktige plasseringen av teksten filen du ønsker å importere

Sub GetFromTextFile ( )

Dim sFile , WholeLine As String
< p > Dim startCell Som Range

Dim c As Integer

sep = Chr ( 13 )

Application.ScreenUpdating = False

sFile = "C : \\ YOURTEXTFILE.txt "

Åpen sFile For Input Tilgang Les As # 1

Mens Not EOF ( 1 )

Linje Input # 1 , WholeLine
p Hvis høyre ( WholeLine , 1 ) < > Sep Deretter

WholeLine = WholeLine & september

End If

ActiveCell.NumberFormat = " @ "

ActiveCell.Value = WholeLine

ActiveCell.Offset ( 1 , 0 ) . Velg

Wend

Close # 1

End Sub

4

Trykk " Alt + Q " for å lukke VBA editor og gå tilbake til arbeidsboken.
5

Trykk "Shift + F11 " for å skape et blankt ark .
6

Trykk " Alt + F8 " for å åpne dialogboksen Makroer igjen . Velg " Get FromTextFile " og klikk på " Run . " Dette kopierer innholdet i tekstfilen til blanke ark .