Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Textbestand naar excel  (gelezen 45521 keer)

0 leden en 1 gast bekijken dit topic.

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Textbestand naar excel
« Gepost op: 07 augustus 2019, 17:37:01 »
Dag Allen,

Sorry voor deze vraag nogmaals,
Ik had een goed werkende VBA van jullie voor een tekstbestand naar kolommen in te voegen.
Werkt prima waarvoor dank.

Doch het ene tekstbestand is het andere niet.

Kolommen
Pick Plaats  art Nr Art Naam                         MPrk            verpakking         stuks          kg       stuks         kg
Met extra kolommen
[color=red]Plaats Plaatsnaam PZrtij: PxtPrn:[/color] Pick Plaats art Nr Art naam MPrk verpakking stuks kg

Vroegere VBA welke natuurlijk niet werkt op huidig bestand, maar misschien zijn bepaalde mits aanpassing bruikbaar
Sub Knop1_Klikken()
[blad1!b1] = ['TXT Bestand'!a11].Value
[blad1!a3] = ['TXT Bestand'!a15].Value
[blad1!a4].Resize(2) = ['TXT Bestand'!a17:a18].Value
[blad1!a7] = ['TXT Bestand'!a62].Value
x = Range(Sheets("TXT Bestand").Range("a64"), Sheets("TXT Bestand").Range("a64").End(xlDown)).Rows.Count
[blad1!a8].Resize(x) = ['TXT Bestand'!a64].Resize(x).Value ' fout 1004
With Sheets("blad1")
    .Range("A3:A52").TextToColumns Destination:=Range("A3"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(8, 1), Array(42, 1), Array(53, 1), Array(58, 1), _
        Array(65, 1), Array(71, 1), Array(83, 1), Array(84, 1)), TrailingMinusNumbers:=True
    .Range("D:E,H:I").Delete Shift:=xlToLeft
    .Range("B8").End(xlDown).Offset(1, -1).Resize(20).ClearContents
    .Columns("A:E").Columns.AutoFit
End With
End Sub

In bijlage Tabbladen in rood "Tekstbestand 2" en een deel als voorbeeld "gewenst"


Is dit mogelijk aan te passen ?
Indien té veel gevraagd, toch bedankt om de vraag te lezen

Groetjes
Georgyboy

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Textbestand naar excel
« Reactie #1 Gepost op: 07 augustus 2019, 22:32:23 »
Georgyboy, ik heb echt een flinke tijd zitten puzzelen op de opbouw van je tekstbestand. Maar ik kan er weinig structuur in ontdekken. Ook met je voorbeeld wordt het er voor mij niet echt duidelijker op.
Daarna had ik het gevoel dat elke regel die begint met een "-" eigenlijk achter de regel daarboven hoort. Daar heb ik even deze procedure voor geschreven, maar dan weet ik nog niet wat ik daarmee aan moet...
Sub JuisteTabel()
Dim TempTable() As String

    SourceTable = Sheets("tekstbestand 2").UsedRange.Resize(, 1)
   
    For i = 1 To UBound(SourceTable, 1)
        If Left(SourceTable(i, 1), 2) = "- " Then
            TempTable(x) = TempTable(x) & SourceTable(i, 1)
        Else
            x = x + 1
            ReDim Preserve TempTable(1 To x)
            TempTable(x) = "'" & SourceTable(i, 1)
        End If
    Next i
   
    Sheets("tekstbestand 2").Cells(1, 3).Resize(x) = Application.Transpose(TempTable)
   
End Sub
Misschien dat jij er zo wel iets mee kan, maar voor mij houdt 't nu ff op.

Kan je meer verduidelijking geven waar je tekstbestand vandaan komt? Kan je vanuit daar niet meer structuur regelen?
______________________________

Groet, Leo

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Textbestand naar excel
« Reactie #2 Gepost op: 08 augustus 2019, 08:33:13 »
Hallo Georgyboy,

Zoals RedHead terecht opmerkt (zonder het met zo veel woorden te zeggen) kunnen dergelijke taken niet anders dan frustrerend eindigen.
Je hebt het overigens zelf ook al vastgesteld:
Citaat
Doch het ene tekstbestand is het andere niet

Lang geleden had ik daar ook al voor gewaarschuwd:
https://www.oplossing.be/excel/macro-verkorten-verbeteren/ (reacties 1 en 19)

Wat ik bedoel is: iedere keer als je iets in deze aard wil doen zal je bijna genoodzaakt zijn telkens een volledig nieuwe macro op maat te schrijven.
In jouw plaats zou ik me dan liever afvragen of er aan de bron niet kan gesleuteld worden, want op deze wijze heeft het eigenlijk nog weinig met automatisering te maken.

Succes,
pitufo
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Re: Textbestand naar excel
« Reactie #3 Gepost op: 08 augustus 2019, 10:14:46 »
Mijn excuses !
Sorry had dit niet mogen vragen op deze manier

blij dat jullie nog de moeite doen om te antwoorden  :)

Hopelijk tot een andere betere vraag stelling

Groetjes,
georgyboy

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Textbestand naar excel
« Reactie #4 Gepost op: 08 augustus 2019, 14:13:56 »
Citaat
Sorry had dit niet mogen vragen op deze manier

Dat is heus niet wat ik bedoelde!
Ik hoopte voornamelijk dat je, eerder dan je te concentreren op een macro voor deze kwestie, veeleer zou onderzoeken of er geen andere aanpak tot de mogelijkheden behoort, t.t.z. of er geen alternatief voor het tekstbestand zou bestaan, of eventueel een tekstbestand met een totaal andere opmaak.

Groeten,
pitufo
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline spyder

  • Ambassadeur
  • *****
  • Berichten: 5.265
  • PC probleem zit meestal tussen scherm en rugleun
Re: Textbestand naar excel
« Reactie #5 Gepost op: 08 augustus 2019, 22:08:09 »
Mijn excelkennis geraakt  maar amper aan de enkels van de echte pro's hier, maar vroeg me wel af of we het textbestandje eens konden zien. Nu zien we het als 1 regel in 1 cel, terwijl er (heel misschien) een oplossing bestaat die je zou kunnen doen vooraleer je het tekstbestandje importeert?
Windows 7 Ultimate Unknow NLD
Intel(R) Core(TM) i7 CPU         870  @ 2.93GHz 2934
P7P55D-E PRO
NVIDIA GeForce GTX 470 1280MB 1680 x 1050
HD 1 : INTEL SSDSA2M080G2GC (80GB)
HD 2 : ST31500341AS (1,5TB)
HD 3 : ST320006 41AS (2TB)
browser: Maxthon  mail:Thunderbird AV: Bitdefender
Scarlet user

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Textbestand naar excel
« Reactie #6 Gepost op: 09 augustus 2019, 08:00:43 »
De bal ligt echt helemaal terug in jouw kamp, Georgyboy.
We zijn nu al met z'n drieën om je (op wat details na) dezelfde richting uit te sturen  :)
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Re: Textbestand naar excel
« Reactie #7 Gepost op: 09 augustus 2019, 20:27:38 »
Hartelijk dank, doet me wat

Ik stuur het morgen opnieuw door in een betere versie,
Minder ontdaan van gevoelige bedrijfs info.

Ooit wil ik ook iemand helpen en dit zal hoofdzakelijk aan jullie te danken zijn als dit lukt.

Tot morgen  :thumbsup:
Groetjes
Georges

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Re: Textbestand naar excel
« Reactie #8 Gepost op: 10 augustus 2019, 13:22:52 »
Dag Ieder

Bedankt voor de nieuwe vraagstelling

In bijlage Excel textbestand + deel van gewenste + Word voorbeeld

In word : rood is te wissen kolom namen, groen is extra kolomnamen en/of velden, blauw is te wissen rijen

Groetjes Georgyboy

Offline spyder

  • Ambassadeur
  • *****
  • Berichten: 5.265
  • PC probleem zit meestal tussen scherm en rugleun
Re: Textbestand naar excel
« Reactie #9 Gepost op: 10 augustus 2019, 14:28:23 »
Hoi Georgeboy,

Ik wil niet vervelend doen hoor , maar ik (en ik vermoed ook de andere excellers ) had ergens een .txt bestandje verwacht ipv de geplakte tekst in een Word documentje omdat hier ook niet veel mee kan gedaan worden.  :-[
Als je een .txt bestand hebt (bij manier van spreken recht uit je apparaat) , bied dit wellicht mogelijkheden om deze op een bepaalde manier te importeren.

Vriendelijke groetjes
Windows 7 Ultimate Unknow NLD
Intel(R) Core(TM) i7 CPU         870  @ 2.93GHz 2934
P7P55D-E PRO
NVIDIA GeForce GTX 470 1280MB 1680 x 1050
HD 1 : INTEL SSDSA2M080G2GC (80GB)
HD 2 : ST31500341AS (1,5TB)
HD 3 : ST320006 41AS (2TB)
browser: Maxthon  mail:Thunderbird AV: Bitdefender
Scarlet user

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Re: Textbestand naar excel
« Reactie #10 Gepost op: 10 augustus 2019, 14:47:19 »
Hoi spyder,  :)  _/-\o_

TXT bestand naar excel

hoop dat vorige bestanden (word en excel ) kunnen verduidelijken welke velden gewist of verplaatst mogen worden

Vriendelijke groetjes

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Textbestand naar excel
« Reactie #11 Gepost op: 10 augustus 2019, 14:49:45 »
Hoi,

Ik zat net hetzelfde denken toen ik spyder's bemerkingen hier zag verschijnen.
Maar ik kon het weer niet laten en heb er toch maar iets van gemaakt.

@Georgyboy,
Mijn algemene bedenkingen blijven wel geldig: voor hetzelfde geld werkt het voor een licht afwijkende structuur in een volgend tekstbestand ook weer niet meer, laat staan wanneer er nogmaals een totaal anders zou komen opdagen.
Vroeg of laat zal dan het principe toch in vraag moeten gesteld worden...

Groeten,
pitufo
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Re: Textbestand naar excel
« Reactie #12 Gepost op: 10 augustus 2019, 19:02:24 »
Werkt geweldig  \o/  :thumbsup:

Hoe kan ik je (jullie) bedanken ?

Heb dit een paar keer getest en werkt perfect,
op tekst met meer regels heb ik alleen de kolom namen,
probeer dit morgen zelf eens uit te zoeken.

Groetjes,
Georgyboy

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Textbestand naar excel
« Reactie #13 Gepost op: 11 augustus 2019, 08:27:06 »
Citaat
op tekst met meer regels heb ik alleen de kolom namen

Daar kan het echt niet aan liggen, Georgyboy, maar wel aan
Citaat
voor hetzelfde geld werkt het voor een licht afwijkende structuur in een volgend tekstbestand ook weer niet meer
waarmee dan meteen is aangetoond waar ik in dit topic, én in een vorig, al enkele keren op gewezen heb.

Citaat
probeer dit morgen zelf eens uit te zoeken
Succes !
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Re: Textbestand naar excel
« Reactie #14 Gepost op: 11 augustus 2019, 08:49:17 »
Net nog een paar keer getest met meer of minder regels en lukt perfect  :thumbsup:

De opmaak komt uit een ERP met export naar een textbestand, is steeds met vaste opmaak,
afhankelijk van de selectie met meer of minder locaties en regels.

Probeer je code te begrijpen, maar ben daar verre van aan toe.
Een toelichting per regel helpt, maar ik vind dat ik al zoveel gevraagd heb van je (jullie).

Bij deze hoop ik dat de vraagstelling nuttig blijft om ook andere daarmee te helpen.

Nogmaals dank  :)
Georgyboy

 


www.combell.com