hente data fra tekst fil

ja - men flere detaillerer ønskeligt. Send evt. en prøve på tekstfilen til:
pb@supertekst-it.dk

Hvad kan de tekstfiler, der skal indlæses, hedde?

Uden makro: Bare åbn filen, så starter guiden Import. I denne bliver du spurgt, om felterne er adskilt og hvordan. Her sætter du flueben i Semikolon. Så burde det gå helt af sig selv.

Har du allerede en lang ikke-adskilt streng stående i f.eks. A1 og skal have den delt ud på B1, C1, osv. Hvis tabellen nu kommer til at stå den "forkerte" vej, kan du vende den ved at kopiere tabellen og sætte den ind et andet sted ved at bruge Rediger > Indsæt speciel og check Transponer-boksen af. Så skulle den være der.

Med makro: Der skal jeg lige vide lidt mere: Ligger filerne altid i den samme folder? Er der en norm for navngivningen af filerne? Eller det tilfældigt?

Hov, der kom til at mangle noget i afsnit 2. Du skal bruge funktionen Data > Tekst til kolonner.

Det skal ske automatis når brugeren taster pakkenummer ind. Sådan noget med imort etc det duer ikke lige til pakkeriet.

Filerne ligger i samme folder feks fiktivt fundet på
\\hol\batch\0XXXX.txt

i felt c3 taster brugeren pakkenummeret XXXX

I teksfilen er der en masse linier første data i hver linie er varenummer bbbbbbb(6-8 tegn)

Og det er varenummeret for hver linie der skal ind i c7,c8.......

LN

Hvis det kan hjælpe må data godt blive smidt ind i et tomt ark(feks Ark4) og så kan der måske laves nogle opslag derfra.

LN

her er et udkast:
Koden anbringes i VBA Ark1 -indlæsning af pakkenr kan godt ændret til celle C3 - men det kom jo først senere.

Const startRæk = 7
Const startKol = 3
Dim pakkenr
Dim sti
Sub start()
    findsti
   
    pakkenr = InputBox("Tast pakkeNr", "Indlæsning af tekstfil")
    indlæsFil
End Sub
Private Sub findsti()
    sti = ActiveWorkbook.Path
    If Right(sti, 1) <> "\" Then
        sti = sti + "\"
    End If
End Sub
Private Sub indlæsFil()
Dim ræk
    Open sti + pakkenr + ".txt" For Input As #1
   
    ræk = startRæk
    While Not EOF(1)
        Input #1, linie
        Cells(ræk, startKol) = linie
        ræk = ræk + 1
    Wend
   
    Close (1)
End Sub

Med indtastning af pakkenr i C3:
(Stien til filerne skal evt.korrigeres)

Const startRæk = 7
Const startKol = 3
Dim pakkenr
Dim sti
Private Sub findsti()
    sti = ActiveWorkbook.Path
    If Right(sti, 1) <> "\" Then
        sti = sti + "\"
    End If
End Sub
Private Sub indlæsFil()
Dim ræk
    On Error GoTo filFejl
   
    Open sti + pakkenr + ".txt" For Input As #1
   
    ræk = startRæk
    While Not EOF(1)
        Input #1, linie
        Cells(ræk, startKol) = linie
        ræk = ræk + 1
    Wend
   
    Close (1)
    Exit Sub
   
filFejl:
    MsgBox ("Tekstfilen " + CStr(pakkenr) + " kan ikke findes!")
End Sub
Private Sub worksheet_change(ByVal target As Excel.Range)
Dim r, k
'    Cells.ClearContents
    findsti

    If target.Row = 3 And target.Column = 3 Then
        pakkenr = CStr(Cells(3, 3))
        If pakkenr <> "" Then
            indlæsFil
        End If
    End If
End Sub

Hej jeg skal nok melde tilbage i denne uge, men har ikke lige haft tid til at se på det.

LN

OK

Hej igen

Det viser sig nu at data står på plads nr 11 i de semikolon separerede filer. Nogen der kan hjælpe videre her.

LN

Stien er helt præcis H:\\pakkeinstruktioner\TEST af makro\0xxxx.txt

Det eneste i stien der er variabelt er xxxx i filnavnet. som skrives i c3

LN

Vil du have 100 point ekstra for at skrive ud for linierne hvad der sker?

LN

Nej - 200 er fint - det med plads 11 finder vi ud af - vender tilbage.

Hej har lidt problemer med stien. det har jeg i første omgang løst ved at tage en kopi af tekstfilerne og lægge dem så din kode passer ;O)

Nu kører makroen i hvert fald men den tager alle værdier med og smider dem fortløbende i de forskellige celler c.. nedad. Nogen steder står der blot en værdi og i andre celler 3 værdier. Men den henter i det mindste *SS*

LN

point for indsatsen. Læg et svar ;O)

Tak for hjælpen

LN

Selv tak