[EXCEL] Excel to .txt - uitdaging

[TiMmS]

Dag luitjes,

Onderstaande probleem is al enkele dagen een flinke 'Braincracker'.
Ik hoopdat ik het goed uitleg hieronder en dat iemand er wat mee kan.


Als eerste voer ik de getallen in in de excel sheet. Ik voer het zowiezo eerst in in excel, omdat ik moet controleren of geen fouten heb gemaakt (optellen en rekenen ed gaat veel gemakkelijker uiteraard). Daarna sla ik het tabblad op naar een txt bestand (in dit geval gaat het over het tabblad 2000). Je krijgt dan de uitvoer zoals die eruit ziet in bewaard.txt. Vervolgens moet ik hem gaan aanpassen naar bewerkt.txt. Dit bestaat momenteel uit:

1: Regel invoegen bovenaan bestand (oftewel 1x enter, maar dat is het probleem niet zo)
2: Puntkomma invoeren tussen iederen excel kolom
3: Spaties verwijderen tussen regels
4: Spaties aan het einde van iedere regel verwijderen

Ik weet dat het van suffige akies zijn, maar anders kan dat programma er niets mee. Ik zou in ieder geval enorm geholpen zijn als hier een handiger manier voor is om het bijvoorbeeld op te slaan of te exporteren.

http://members.home.nl/ti...0Houdstermaatschappij.xls
http://members.home.nl/timms/bewaard.txt
http://members.home.nl/timms/bewerkt.txt

P.S.: De uitvoer moet in .txt zijn, dit ivm een ander programma die deze uitvoer gebruikt.

Dus; Hoe kun je je Excelsheet zo bewerken dat je als uitkomst bewerkt.txt krijgt zonder die 4 onnozele acties te doen


Alvast bedankt !

[Fish]

nog één keer die acties doen. maar dan openemen in een macro
en dan doe je die macro onder een knoop

(ik neem aan dat het om alle spaties gaat ?)

[Alex)]

Je kan 'm exporteren naar CSV en dan gebruiken?

[ Voor 10% gewijzigd door Alex) op 23-02-2005 22:10 . Reden: typo ]

[TiMmS]

fish schreef op woensdag 23 februari 2005 @ 22:06:
nog één keer die acties doen. maar dan openemen in een macro
en dan doe je die macro onder een knoop

(ik neem aan dat het om alle spaties gaat ?)

Is die macro dan toepasbaar in .txt ?!

[André]

Met Editplus kun je zoiets heel simpel doen. En zit een goede search & replace functie in die ook met regular expressions werkt.

[Alex)]

Gewoon exporteren naar csv (door puntkomma gescheiden), opslaan als .txt
CSV staat voor Comma Seperated Values

[TiMmS]

Alex schreef op woensdag 23 februari 2005 @ 22:07:
Je kan 'm exporteren naar CVS en dan gebruiken?

Het moet .txt zijn, ok al sla ik het bestand op als .CVS dan moet ik alsnog al die handelingen uitvoeren als ik de inhoud kopieer naar .txt

[Alex)]

Hoezo? Een CSV (CVS = tikfout, of iets anders, vraag maar aan devvers) is een lijst met gescheiden waarden, precies wat je bedoelt.
De extensie is alleen .csv, kan je hernoemen naar .txt

[Fish]

TiMmSy schreef op woensdag 23 februari 2005 @ 22:08:
[...]


Is die macro dan toepasbaar in .txt ?!

je exporteerd naar een txt dat kan gewoon ...

[TiMmS]

Alex schreef op woensdag 23 februari 2005 @ 22:09:
Gewoon exporteren naar csv (door puntkomma gescheiden), opslaan als .txt
CSV staat voor Comma Seperated Values

Dit werkt goed zie ik, echter die spaties aan het einde geeft deze weer als onderstaande:
A.4.0000;Goodwill;1096000;;;;;;;;;;;;;;;;
B.1.0000;Bedrijfsgebouwen;9933000;;;;;;;;;;;;;;;;
B.3.0000;Inventaris 1;7472000;;;;;;;;;;;;;;;;
C.0.0000;Deelneming in groepsmaatschappij 1 C.0.0000;761000;;;;;;;;;;;;;;;;
D.2.4000;Handelsgoederen 1 D.2.4000;3628000;;;;;;;;;;;;;;;;
E.0.0000;Handelsdebiteuren;9910000;;;;;;;;;;;;;;;;

[Alex)]

Die moet je dan zelf even naderhand weghalen in Excel. (Die kan ook CSV-files editen, gewoon de kolommen wissen)

[TiMmS]

André schreef op woensdag 23 februari 2005 @ 22:08:
Met Editplus kun je zoiets heel simpel doen. En zit een goede search & replace functie in die ook met regular expressions werkt.

Daar zou ik me in moeten verdiepen, maar die optie kan ik later ook eens proberen.
Bedankt

[TiMmS]

Alex schreef op woensdag 23 februari 2005 @ 22:16:
Die moet je dan zelf even naderhand weghalen in Excel. (Die kan ook CSV-files editen, gewoon de kolommen wissen)

Ok, dat gaat wat handelingen schelen denk ik.
Bedankt iig

[TrailBlazer]

en anders zal je even perl moeten leren. Is er ook gewoon voor win32 en die kan dit soort dingen heel goed. Anders kan ik het wel even voor je maken

[TiMmS]

TrailBlazer schreef op woensdag 23 februari 2005 @ 22:23:
en anders zal je even perl moeten leren. Is er ook gewoon voor win32 en die kan dit soort dingen heel goed. Anders kan ik het wel even voor je maken

Nee joh, tis maar voor een korte periode. Zo'n 100 orders moet ik verwerken op deze manier, dan is het over.
Tnx voor et aanbod.

[TrailBlazer]

nog steeds is het handig om te leren

[Maasluip]

TiMmSy schreef op woensdag 23 februari 2005 @ 22:15:
[...]


Dit werkt goed zie ik, echter die spaties aan het einde geeft deze weer als onderstaande:

Dat zijn geen spaties, dat zijn celscheidingstekens. Excel denkt dus dat het worksheet meer kolommen bevat. Dat kun je in Excel oplossen door of een aantal kolommen achter je data weg te halen (kolommen selekteren en dan rechtermuisknop->delete, niet de del knop) maar je weet nooit hoeveel kolommen je moet weghalen, of om de drie kolommen die je wil hebben te selekteren en die in een nieuw werkboek te plakken. Moet je wel weten dat het altijd drie kolommen zijn. Dit (en het opslaan als CSV) is in Excel in een macro op te nemen, misschien zelfs zo ver dat Excel het niet als .csv opslaat.

Alternatief is om in VBA een programmatje te schrijven dat de cellen doorloopt en in een tekstfile opslaat. Voor een programmeur is dit een simpele excercitie, maar ik weet niet hoe goed je in VB(A) bent.

[Pink Panther]

Selecteer de range die je wilt exporteren en voer de volgende macro uit:

Sub ExportRange()
Dim Filename As String
Dim NumRows As Long, NumCols As Integer
Dim r As Long, c As Integer
Dim Data
Dim ExpRng As Range
Set ExpRng = Selection
NumCols = ExpRng.Columns.Count
NumRows = ExpRng.Rows.Count
Filename = "d:\textfile.txt"
Open Filename For Output As #1
For r = 1 To NumRows
For c = 1 To NumCols
Data = ExpRng.Cells(r, c).Value
If IsNumeric(Data) Then Data = Val(Data)
If IsEmpty(ExpRng.Cells(r, c)) Then Data = ""
If c <> NumCols Then
Write #1, Data;
Else
Write #1, Data
End If
Next c
Next r
Close #1
End Sub