*

Help!

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

Hulp bij posten

Recente topics

Pagina's: [1] 2 3   Omlaag

Auteur Topic: txt file omzetten in excel file  (gelezen 20959 keer)

0 leden en 1 gast bekijken dit topic.

Offline ricardo

  • Oplosser
  • ****
  • Berichten: 686
  • Geslacht: Man
  • shit happens
txt file omzetten in excel file
« Gepost op: 15 maart 2007, 16:16:27 »
 ??? ???
Hi everybody

Ik zit met een probleempje! Ik heb in txt een file met adressen ( zie attachment ) ik wil die overzetten in een excel file waar alle dat naast elkaar per kolom staan zodat ik het kan samenvoegen met een brief in pub.
Ik heb een manier gevonden als de gegevens in de txt file NAAST elkaar reeds staan met een scheidingsteken : DATA/EXTERNE GEG IMPORTEREN/GEGEVENS IMPORTEREN/FILE ZOEKEN OPENEN/ enz maar ik krijg alles in één cel en onder elkaar. Het enige dat lukt is alles eerst na elkaar zetten maar er zijn 2000 adressen dus ik wil er geen levens werk van maken Wie kan helpen
ricardo
Gelogd
windows 10 home 64Bit- Ryzen 5 - 3500U with Radeon Vega Mobile Gfx - AMD Radeon Vega 8 Graphics (Lenovo) -SSDPR-CX400-512 (SSD) - Realtek 8821CE Wireless LAN 802.11ac PCI-E NIC - wise disk cleaner  -

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.284
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: txt file omzetten in excel file
« Reactie #1 Gepost op: 15 maart 2007, 17:30:31 »
Ricardo, er is in Excel (bij mijn weten) géén text import wizard die van aparte regels, 1 regel kan maken... Je hebt nu in principe 1 database record verdeeld over 5 regels. Als deze velden nou nog naast elkaar stonden, was het allemaal niet zo'n probleem...

Mijn gevoel zegt me dat dit opgelost moet worden met VBA. Zoiets als: cel A1 wordt B1; cel A2 wordt C1; cel A3 wordt D1; cel A4 wordt E1; cel A5 wordt B2 enzovoorts... Ik zie dat voor met met de functies transpose en offset...

Ziet ieder adres er hetzelfde uit qua lay-out? Dus regel 1 = achternaam, voornaam; regel 2 = straat, plaats; regel 3 = telefoonnummer; regel 4 = leeg; regel 5 = taal? ??? Als dat zo is (én het is een 'eenmalige' oplossing!) dan heb ik een voorbeeldje voor je gemaakt met een 'matrix functie'. Deze staat in regel 1, kolom B t/m E.
Stappen: open je 'grote' bestand via je wizard zodat je al je data in kolom A hebt staan. Copieer deze kolom en plak die in mijn voorbeeldbestand in kolom A. Selecteer vervolgens de range B1:E1 en trek de selectie dmv de selectiegreep helemaal naar het einde van je data.
Je ziet dan om de 5 regels je data, maar dan verdeeld over 5 kolommen. Selecteer deze kolommen, copieer ze en plak ze terug 'als tekst'. Nou kan je 'm sorteren om de witregels kwijt te raken...

Misschien niet de mooiste methode (en zeker resource vretend) maar het werkt wel!  ;D

Groet, Leo
Gelogd
______________________________

Groet, Leo

Offline Erik Van Geit

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 306
  • Geslacht: Man
Re: txt file omzetten in excel file
« Reactie #2 Gepost op: 15 maart 2007, 23:31:04 »
Ricardo, ga je dit dikwijls nodig hebben ?
Dan kan je volgende procedure automatiseren ...

Veronderstelingen:
gegevens staan in A1:A100 (mag ook veel meer rijen zijn)
alle gegevensreeksen hebben hetzelfde aantal rijen (bijvoorbeeld 5)
Procedure:
DEEL1 (1 minuut werk)
copier A2:A100 plak in B1 (wordt dus geplakt in B1:B99)
copier A3:A100 plak in C1
herhaal zolang nodig (aantal rijen per gegevensreeks)
laatste is bijvoorbeeld A5:A100 naar E1
DEEL2 (1 minuut werk)
voeg kolom in en vul met deze formula
=REST(RIJ()-1;5)
sorteer het geheel op kolom 1
verwijder alle rijen die vooraan geen "0" hebben
verwijder kolom 1

Het lijkt me niet overdreven om te stellen dat dit in 2 minuten klaar is, ongeacht het aantal rijen. Als je het dikwijls wil doen, maken we er een macro van.

In deze post heb ik me gebaseerd op Leos interpretatie - alle gegevens in 1 kolom. Toch is het de vraag of je dat zo inderdaad hebt, want je schreef
Citaat
maar ik krijg alles in één cel en onder elkaar
We gaan er dus van uit dat je "kolom" bedoelde in plaats van "cel".

beste groeten,
Erik
Gelogd

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.284
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: txt file omzetten in excel file
« Reactie #3 Gepost op: 15 maart 2007, 23:47:00 »
Erik, SCHITTERENDE slimme truuk. Wat kan een mens dan soms moeilijk doen met Matrix-formules of VBA... ;D

Enne...
Citaat van: Erik
alle gegevens in 1 kolom. Toch is het de vraag of je dat zo inderdaad hebt
...Ja hoor. Open het .txt-bestandje maar... ;)

Groet, Leo
Gelogd
______________________________

Groet, Leo

Offline Erik Van Geit

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 306
  • Geslacht: Man
Re: txt file omzetten in excel file
« Reactie #4 Gepost op: 16 maart 2007, 00:00:56 »
Dankjewel voor de complimenten, Leo.

Even een macro opgediept ... Ruikt nog vers gebakken :) (van 15 november) Een paar "messageboksjes" vertalen en je bent klaar.
Code: [Selecteer]
Sub transpose_column_to_rows()
'Erik Van Geit
'061115

'EXAMPLE
'START WITH
'A1
'A2
'etcetera
'A17
'RESULT (when GR = 3)
'A1     A2      A3
'A4     A5      A6
'etcetera
'A16    A17

Dim GR As Long      'Group Rows (how many rows each set of data contains)
Dim LR As Long      'Last Row
Dim i As Integer

GR = 5
'GR = Application.InputBox("How many columns do you want to use to transpose the data?", "TRANSPOSING DATA", Type:=1)
LR = Cells(Rows.Count, 1).End(xlUp).Row

If MsgBox("Data in column A will be converted to rows using " & GR & " columns." & Chr(10) & _
"do you want to continue ?", 36, "TRANSPOSING DATA") = vbNo Then Exit Sub

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

    For i = 2 To GR
    Range(Range("A" & i), Range("A" & LR)).Copy Destination:=Cells(1, i)
    Next i

    Columns(1).Insert
    With Range("A1:A" & LR)
    .FormulaR1C1 = "=MOD(ROW()-1," & GR & ")"
    .Cells(1, 1).CurrentRegion.Sort Key1:=.Cells(1, 1)
    .Offset(Int(LR / GR) + Sgn(LR Mod GR)).EntireRow.Delete
    End With
    Columns(1).Delete

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub
Gelogd

Offline ceasar

  • Ervaren lid
  • ***
  • Berichten: 293
  • Geslacht: Man
  • de soep eten als ze heet is
Re: txt file omzetten in excel file
« Reactie #5 Gepost op: 16 maart 2007, 07:57:08 »
ricardo,

los van de schitterende oplossingen van Eric en Leo,  is het wel noodzakelijk dat je de informatie in excell giet ?

dit zou perfect kunnen passen in een acces omgeving, niet om piet wijsneus uit te hangen, maar bill's database werkt op zulke stramienen.

dit volledig terzijde,

groeten

JC
 8)

Gelogd
Windows 10 Pro   NLD 64bit
Intel(R) Core(TM) i7-3770K CPU @ 3.50GHz 3901
Z77X-UP5 TH-CF
AMD Radeon HD 7900 Series 4095MB 1024 x 768
Realtek High Definition Audio
Nr: 1 Model: WDC WD10 EARX-00N0YB0 SCSI Disk Device
Nr: 2 Model: INTEL SSDSC2CT120A3
C:\ NTFS 111,01GB 1,06GB 32 720MB
AV: Geen antivirus geïnstalleerd
FW: Windows Firewal Enabled: True

Offline ricardo

  • Oplosser
  • ****
  • Berichten: 686
  • Geslacht: Man
  • shit happens
Re: txt file omzetten in excel file
« Reactie #6 Gepost op: 16 maart 2007, 12:14:36 »
 :) :)
ongelooflijk bedankt jongens !!!!
ik ga dit zeker toepassen en als ik nog problemen heb weet ik nu waar naar toe!
En waarom in excel en niet in acces : gewoonte, omdat ik bijna nooit in acces werk ( ik ben er niet zeer goed in)
ik laat jullie weten volgende week hoe ik ermee gewerkt heb
nog maals bedankt
ricardo
Gelogd
windows 10 home 64Bit- Ryzen 5 - 3500U with Radeon Vega Mobile Gfx - AMD Radeon Vega 8 Graphics (Lenovo) -SSDPR-CX400-512 (SSD) - Realtek 8821CE Wireless LAN 802.11ac PCI-E NIC - wise disk cleaner  -

Offline ricardo

  • Oplosser
  • ****
  • Berichten: 686
  • Geslacht: Man
  • shit happens
Re: txt file omzetten in excel file
« Reactie #7 Gepost op: 22 maart 2007, 14:36:13 »
 ??? ???
Redhead,

Sorry maar het lukt niet echt   De file die ik heb is niet dezelfde uitlijning en er zit dus niets anders op dan alles( +/-  2000 ) op de juiste spacie zetten
Ik had de vorige al iets bewerkt daardoor misschien Ik stuur een vb van een onbewerkte

Het vet gedrukte moet weg, tussen de delen die per cel moeten staan trok ik een /

Erik

het uwe heb ik nog niet geprobeert ! Het ziet er voor mij moeilijk uit  en de macro daar heb ik geen kaas gegeten  .
Kan je mij uitleggen hoe ik dit in de file moet brengen??

Bedankt voor jullie hulp
Ricardo
Gelogd
windows 10 home 64Bit- Ryzen 5 - 3500U with Radeon Vega Mobile Gfx - AMD Radeon Vega 8 Graphics (Lenovo) -SSDPR-CX400-512 (SSD) - Realtek 8821CE Wireless LAN 802.11ac PCI-E NIC - wise disk cleaner  -

Offline spyder

  • Ambassadeur
  • *****
  • Berichten: 5.265
  • PC probleem zit meestal tussen scherm en rugleun
Re: txt file omzetten in excel file
« Reactie #8 Gepost op: 22 maart 2007, 15:17:06 »
Hoi Ricardo,

Als ik in jou geval was, ging ik met deze lijst aan het werk in een chte teksteditor zols bvb het gratis programma Crimson Editor.
Hang als je wil aan je volgende berichtje eens een bestandje met een naam of 20, zodat e eens effectief kunnen zien hoe jou lijst eruit ziet. Door zelf die tekens toe te voegen, krijgen we een vertekend beeld te zien.

spyder
Gelogd
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 Erik Van Geit

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 306
  • Geslacht: Man
Re: txt file omzetten in excel file
« Reactie #9 Gepost op: 22 maart 2007, 16:43:36 »
Ricardo,

Ik snap niet goed wat je bedoelt met "dezelfde uitlijning". Een voorbeeld zal inderdaad nuttig zijn.
Een macro gebruiken is overigens niet moeilijk.

start de Visual Basic Editor (via het menu Extra, Macro of gebruik de de sneltoetscombinatie ALT+F11).
Klik menu Insert in de VBE en kies Module. (indien nodig)
Plak je code in de module (de witte ruimte rechts)

om de code te "runnen"
klik ergens in je code en tik F5 (functietoets)
of
via het Excel menu: Extra/ Macro / Macros

beste groeten,
Erik
Gelogd

Offline cladon

  • Volledig lid
  • **
  • Berichten: 246
  • Geslacht: Man
Re: txt file omzetten in excel file
« Reactie #10 Gepost op: 22 maart 2007, 18:01:39 »
Het beste is inderdaad een een deel van je tekstbestand te uploaden. Kan kan best zijn dat je dit eenvoudig kan oplossen.
Gelogd
Windows 10 Home   NLD 64bit,
Intel(R) Core(TM) i7-3770 CPU @ 3.40GHz 3401
P8B75-M LE
Intel(R) HD Graphics 4000 3072MB 1920 x 1080
VIA HD Audio
C:\ NTFS 237,25GB 135,35GB 15 293MB
AV: Kaspersky
FW: Windows 10

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.284
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: txt file omzetten in excel file
« Reactie #11 Gepost op: 23 maart 2007, 13:39:09 »
Ricardo, Op de vraag van....
Citaat van: Erik
Ik snap niet goed wat je bedoelt met "dezelfde uitlijning".
... Bedoel je daar de voorloopspaties e.d. (zie screendump) mee?

Als dat zo is, kan je die met de worksheetfunctie Trim (spaties.wissen) heel makkelijk verwijderen. Ik ga er ff van uit dat je lijst in kolom A staat (zoals de screendump). Als je nu in cel B1 de formule =TRIM(A1) plaatst en deze naar beneden copieert, zie je je lijst maar dan zonder de spaties en allemaal aan de rechterkant uitgelijnd. Vervolgens kan je dan met de truc of de code van Erik aan de slag.

Ipv de functie TRIM in kolom B kan je het ook doen met VBA... Plaats deze code in een module van je VBE (zie uitleg Erik). Selecteer vervolgens je lijst in kolom A en 'run' deze code...
Code: [Selecteer]
Sub VerwijderSpaties()
'verwijder de spaties in een cel met tekst
Dim rng As Range
   
    For Each rng In Selection
        rng.Value = Application.WorksheetFunction.Trim(rng.Value)
    Next
           
End Sub
Ik heb trouwens expres gekozen voor de worksheet functie ipv de VBA functie TRIM, omdat de eerst genoemde 'fanatieker' is. De VBA functie haalt alleen de voorloop en de naloop spaties weg. De sheetfunctie haalt alle spaties voor en na weg, maar óók de niet-harde-spaties tussen de woorden!

Groet, Leo
Gelogd
______________________________

Groet, Leo

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.284
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: txt file omzetten in excel file
« Reactie #12 Gepost op: 23 maart 2007, 13:54:19 »
Nog ff een kleine aanvulling... Ik zie nu net pas het document in 1 van je bovenstaande reacties... Nou zit ik me dus af te vragen of we niet water naar de zee aan 't dragen zijn! Zo te zien komt dat adressenbestand uit een database. Een beetje ontwikkelaar zal al je gegevens sowieso in aparte velden hebben geplaatst. Alleen de output plaatst de ontwikkelaar vervolgens op de door jou getoonde methode.
Dus heb je niet gewoon de mogelijkheid om de 'platte' database over te halen? Tien tegen 1 dat je dan je gewenste velden al in gescheiden kolommen hebt staan. ;)

Groet, Leo
Gelogd
______________________________

Groet, Leo

Offline Erik Van Geit

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 306
  • Geslacht: Man
Re: txt file omzetten in excel file
« Reactie #13 Gepost op: 23 maart 2007, 15:12:43 »
Ricardo,

ik zie nu ook pas je bijlage
toon ons alsjeblieft ook een voorbeeld van het gewenste resultaat, zodat dit voor iedereen ook duidelijk is

bijna-weekend-groeten,
Erik
Gelogd

Offline ricardo

  • Oplosser
  • ****
  • Berichten: 686
  • Geslacht: Man
  • shit happens
Re: txt file omzetten in excel file
« Reactie #14 Gepost op: 23 maart 2007, 20:03:36 »
 ??? ???
hi guys

ik stuur jullie een vb hoe het is en een hoe ik wil.
Ik krijg het tekst bestand van het internet dus ik heb de broncode niet

Ricardo
Gelogd
windows 10 home 64Bit- Ryzen 5 - 3500U with Radeon Vega Mobile Gfx - AMD Radeon Vega 8 Graphics (Lenovo) -SSDPR-CX400-512 (SSD) - Realtek 8821CE Wireless LAN 802.11ac PCI-E NIC - wise disk cleaner  -
Pagina's: [1] 2 3   Omhoog
 


www.combell.com