Slik kopierer innhold fra en tekstfil til et regneark ved hjelp av VBA

Slik kopierer innhold fra en tekstfil til et regneark ved hjelp av VBA


Microsoft Excel makroer kan hjelpe deg å automatisere nesten alle slags oppgaver, øke produktiviteten og forbedre effektiviteten. Skrevet i VBA, kan makroer skape, manipulere og fjerne data i et 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 en tekstbehandler, 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 den.

Bruksanvisning

1 Start Microsoft Excel. Trykk "Ctrl + N" for å opprette en ny arbeidsbok. For å bruke en av dine arbeidsbøker i stedet, trykk "Ctrl + O", velg filen og klikk deretter på "Open".

2 Trykk "Alt + F8" for å åpne dialogboksen Makroer. Skriv "GetFromTextFile" i Makronavn-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 tekstfilen du vil importere.

Sub GetFromTextFile ()

Dim sFile, WholeLine As String

Dim startCell As Range

Dim c As Integer

September = Chr (13)

Application.ScreenUpdating = False

sFile = "C: \ YOURTEXTFILE.txt"

Åpne sFile For Input Tilgang Les As # 1

Mens Not EOF (1)

Line Input #1, WholeLine

Hvis Høyre (WholeLine, 1) & lt;> september da

WholeLine = WholeLine & september

Slutt om

ActiveCell.NumberFormat = "@"

ActiveCell.Value = WholeLine

ActiveCell.Offset (1, 0) .Velg

Wend

Lukk # 1

End Sub

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

5 Trykk "Shift + F11" for å lage et blankt ark.

6 Trykk "Alt + F8" for å åpne dialogboksen Makroer igjen. Velg "Get FromTextFile" og klikk deretter på "Kjør". Dette kopierer innholdet i tekstfilen til blankt ark.

Hint

  • For å få den nøyaktige plasseringen av alle filer på datamaskinen, hold nede "Shift" -tasten og deretter høyreklikke på filen ikonet. Velg "Kopier som bane" fra kontekstmenyen. Dette sender plasseringen av filen (i anførselstegn) til utklippstavlen.
  • Som standard kan du ikke være i stand til å skape eller kjøre makroer i Microsoft Excel. For å aktivere makroer, klikker du Microsoft Office-knappen, og deretter gå til "Alternativer for Excel." Under "Popular", må du kontrollere at "Show Developer fanen" er merket. Etterpå, gå til "Trust Center" og deretter på "Innstillinger for klareringssenter." Klikk på "Makroinnstillinger" og velg deretter «Aktiver alle makroer." Klikk "OK" på begge dialogboksene for å lagre endringene. I noen tilfeller kan det være nødvendig å starte Excel for at endringene skal tre i kraft.