Een woord veranderen in een text file.

[Verwijderd]

Hallo allemaal,

Ik internet bankier via ABN. Nu kan je daar je afschriften in txt (tab seperated) downloaden. Ik doe dat elke week en giet die waarden in een exel sheet. Nu is het best veel werk om die files "import klaar te maken".
het probleem is namelijk dat de datum wordt weergegeven als 20041024 maar ik wil graag dat dat 2004-10-24 wordt. Nu had ik gedacht om dit met vb te doen allen heb ik daar nog niet zoveel kaas van gegeten Kan iemand mij op gang helpen?

Het format is :

666666666 [TAB]EUR[TAB]20041224[TAB]4444,44[TAB]4444,44[TAB]20041220[TAB]-555,[TAB]GEA NR:002702 18.12.04/10.43 POSTBANK HEERLEN,PAS666

rekeningnr[TAB]valuta[TAB]datum[TAB]laatsbijgeschreven[TAB]laatsesaldo[TAB]boekdatum[TAB]bedrag[TAB]omschrijving

Nu wil ik dus dat ik een bestand download in een map NIEUW het scriptje kijkt naar een bestand in die map en past het aan en verplaatst het dan naar de map INPUT. Hier haal ik het op met een macro in exel.

Het gaat dus om het aanpassen van de datum van YYYYMMDD naar YYYY-MM-DD

[Bud_s]

je kan het ook in VBA doen (dus na het importeren in excel) gaat denk ik zeker zo makkelijk

edit:

Ik zie dat je met een macro wil binnenhalen, kan je daar gelijk dat ene veld manipuleren

[ Voor 37% gewijzigd door Bud_s op 23-12-2004 21:07 ]

[Verwijderd]

O Enig idee hoe want er moet in twee kolommen gezocht worden en dan aangepast. Ik heb al wat lopen klooien maar kom er niet uit.

[ Voor 4% gewijzigd door Verwijderd op 23-12-2004 21:11 ]

[Verwijderd]

Je kan dit allemaal door excel laten doen hoor.... ook de datum goed zetten.



Gewoon het tab bestand openen 2maal next drukken de datum selecteren en het formaat.

[ Voor 54% gewijzigd door Verwijderd op 23-12-2004 21:17 ]

[Bud_s]

ja, ik heb wel een idee ... heb je al wat code ? (post ff je macro)

[Verwijderd]

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 23-12-2004 by henk
'

'
ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;P:\new.txt", Destination:= _
Range("A1"))
.Name = "new"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 9, 9, 9, 9, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 23-12-2004 by henk
'

'
Columns("B:B").Select
Selection.Replace What:="200412", Replacement:="2004-12-", LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

Ik heb in Macro 2 een replace gemaakt maar die is erg statisch en ik wil niet voor iedere maand een nieuwe macro maken. Bij de weg bedankt voor je snelle reactie.

[Verwijderd]

Helemaal goed. Ik dacht dat die truck niet zou werken want ik had daar al eens mee lopen klooien en toen ging het niet goed. Maar helemaal top dankje wel.

[Bud_s]

post ook ff de nieuwe code, ben wel benieuwd wat het verschil is