Import txt file til xls

Hvad består problemet i?

Problemet er når jeg importere i xal så kan jeg ikke få værdier
i en celle, som det eks. jeg har vist, så vil der nogle af
værdierne som bliver "hugget" over.

Så jeg tror at jeg er nød til at lave en makro der kan gøre det.
Teksten på txt filen vil være det samme hvergang, så en skabelon
ville kunne gøre det ?

Er det decimaltalene, der volder problemer?

Nej, men det er at få hver værdi i hver sin celle, samt med overskrift

Hvordan vil du få sat overstående eks. ind i et excel regneark ?

OK - vender tilbage

Har du mulighed for at sende en kopi af tekstfilen til pb@supertekst-it.dk

Herefter kan jeg se, hvilket skilletegn der måtte være mellem felterne - ellers skal makroen teste på et antal blanke.

Hvis du copy-paster fra en txt fil ind i Excel, bør du få det hele i en kolonne (medmindre du har lavet tekst til kolonner før i samme ark).

Hvis du importerer og herefter sorterer - inden du laver tekst til kolonner kan du muligvis få et brugbart resultat?
Det vil give mere manuelt arbejde og jeg kan ikke se ud fra dit eksempel om det vil ødelægge noget andetsteds i din txtfil.

- Mikker

Koden er indlagt i Ark1 - sti til tekstfil skal tilpasses:

Public Sub importer()

Rem Stiangivelsen nedenfor skal tilpasses
Rem =====================================
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Documents and Settings\pb\Skrivebord\1911ImportXls\Aflevering\Test.txt" _
        , Destination:=Range("A1"))
       
        .Name = "Test"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 28591
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
   
    udførJustering
End Sub
Private Sub udførJustering()
    sletCelle "B72:B73"
    sletCelle "B77:B79"
    sletCelle "B81"
   
    justerCelle "A85"
    justerCelle "A86"
    justerCelle "A87"
   
    justerCelle "A89"
    justerCelle "A90"
    justerCelle "A91"
   
    justerCelle "A93"
    justerCelle "A94"
    justerCelle "A95"
End Sub
Private Sub sletCelle(cadr)
Dim adr
    Set adr = Range(cadr)
    adr.Select
    Selection.Delete Shift:=xlToLeft
End Sub
Private Sub justerCelle(cadr)  'Fjern = & indsæt apostrof
Dim adr
    Set adr = Range(cadr)
    adr.Select
    indhold = ActiveCell.Formula
    ActiveCell.Value = "'" + Mid(indhold, 2)
End Sub

Super job, thx

Takker...