Læse data fra en txt-fil i Excel.

Du vælger DATA og IMPORTER EKSTERNE DATA

Så er det meget let at importere.
Hvis det er noget du skal gøre mange gange er det bare at optage det med makrooptageren.

Som feks.


Sub Makro3()
With ActiveSheet.QueryTables.Add(Connection:="TEXT;F:\afslut.txt", _
        Destination:=Range("$A$1"))
        .Name = "afslut"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlFixedWidth
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(2, 1, 2, 2, 1, 1, 1)
        .TextFileFixedColumnWidths = Array(5, 1, 2, 22, 12, 14)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    ActiveWindow.SmallScroll Down:=15
End Sub
Sub Makro4()

Det er selvfølgelig en mulighed, det tænkte jeg ikke lige på. Et rigtig godt alternativ til det jeg egentlig tænkte på :-)

Jeg kunne godt tænke mig at anvende open, get og close. Ved du hvordan man gør det ? Jeg kan nemlig ikke finde syntaksen til det.

vil du bare åbne en text fil direkte i excel?

Hvis du vil åbne den samme fil igen og igen kan du bruge en makro som denne
bemærk at du skal ændre lidt i koden, da din fil sikkert ikke er opbygget som min.

Men igen. Start makrooptager og gør det du gerne vil have den til.


Sub åbn()
    ChDir "C:\data"
    Workbooks.OpenText Filename:="C:\data\regnskab.txt", Origin:=xlMSDOS, _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=True _
        , Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
        TrailingMinusNumbers:=True
End Sub

Sub luk()
    Windows("regnskab.txt").Activate
    ActiveWorkbook.Close
End Sub

Jeg vil gerne åbne tekst-filen i VBA og lægge værdierne i variable.

Noget i retning af:
---------------------
Open "c:\dummy\datafile.txt" For Output As #1
I = 0
Do Until EOF(1)
  I = I + 1
  Line (Output, 1)
  Loop
Close (1)
--------------------

Men jeg kan ikke få det til at virke.

Jeg er først tilbage igen om en times tid.

Jeg fandt selv en løsning som ser således ud:
-----------START------------
Dim MyString, MyNumber
Open "c:\test.txt" For Input As #1 ' Open file for input.
Do While Not EOF(1) ' Loop until end of file.
Line Input #1, MyString, MyNumber ' Read data into two variables.
Debug.Print MyString, MyNumber ' Print data to the Immediate window.
Loop
Close #1 ' Close file.
-----------STOP------------