Hent data fra tekst

Beskrivelse

Sådan kan man hente data fra tekstfiler ind i Excel med VBA

Se eksemplet når du har købt kurset.

Øvelse

Sådan kan man hente data fra tekstfiler ind i Word med VBA

Først skal vi lige have oprettet en reference - her er der et billede

CSV inport

Og så er vi klar til at læse

Sub HentTXTdata()     Dim oFSO As New FileSystemObject     Dim oFS As TextStream     Dim sText As String     Dim felter() As String     Dim i As Integer     Set oFS = oFSO.OpenTextFile("c:\data\dataset.csv")     Dim c As Range     Set c = Range("A2")     Do Until oFS.AtEndOfStream         sText = oFS.ReadLine         felter = Split(sText, ";")         For i = 0 To UBound(felter)             c.Offset(0, i).Value = felter(i)         Next         Set c = c.Offset(1, 0)     Loop     oFS.Close     Set oFS = Nothing     Set oFSO = Nothing End Sub

Forrige Hent data fra XML

Næste Lidt kodestumper

Brug for hjælp til VBA, VSTO eller SQL?

Scient Data tilbyder professionel IT-konsulentbistand

Kontakt Scient Data →