Excel

[water]

Hallo,
Een vraagje, weet niet of het hier thuis hoort, maar ik kom er als maar niet uit. Heb namelijk heeeeel veeeel Excel bestanden op mijn computer staan, met verschillende bladen. Nu staat er in heel veel bestanden cv in plaats van bv, is het mogelijk om deze te zoeken en te vervangen? Of moet je ieder bestand apart openen en dan zoeken en vervangen?
Wie weet hier een makkelijk oplossing voor, of heeft hier ook ooit mee te maken gehad?
Bij voorbaat dank en de groetjes!!!

[MandersOnline]

Ik heb het even aangepast naar Excel en direct verhuisd naar Office Algemeen.

Ik ben bang dat je dat verder bij elke file moet aanpassen. je kan wel meerdere dingen in 1x laten aanpassen.

[water]

Oke, jammer, dan zullen we er eens dagen voor gaan zitten. Meerdere dingen vervangen wist ik. Bedankt.

[Timelord]

Je zou het met een hexeditor kunnen proberen, maar ik vraag me dan af of de juiste gegevens wel vervangen worden. Excel wordt namelijk niet als puur klare taal opgeslagen.

[MandersOnline]

als je dat als optie gebriuikt(ik ken het niet) sla dan wel de Excel bestanden ergens op als een soort van Backup.

[Timelord]

Wat vertel je me nou Pieter, weet jij niet wat een hexeitor is ?, dat meen je niet.

Als je een file in bv notepad laad, dan zie je allemaal vreemde tekens. Zoiets doet een hexeditor ook.

Daarmee kun je in de bron dingen wijzigen. Zelfs rechtstreeks dingen op je harde schijf alhoewel dit natuurlijk wel poepielink is.

[Pipo]

Het wil wel automatisch

Gooi alle bestanden in een map
Gebruik VBA om ze een voor 1 te openen
Laat VBA alles vervangen

Een proggie dat binnen een kwartier geschreven is.

Kom je er niet uit, geef dan maar een gil
dan help ik wel ff


Groeten

Pipo

[Pipo]

Open een nieuw Excel werkblad

ga naar macro's

voeg een userform toe

plaats hier een listbox op
plaatshier een commandbutton op
plaats hier een textbox op

dubbelklik op het userform

plak deze code

Private Sub CommandButton1_Click()
ChDir TextBox1
MyName = Dir$("*.xls")
Do While MyName <> ""
ListBox1.AddItem MyName
MyName = Dir
Loop
For tel = 0 To ListBox1.ListCount - 1
ListBox1.Selected(tel) = True
Workbooks.Open Filename:=ListBox1.Text
Cells.Replace What:="cv", Replacement:="bv", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
ActiveWorkbook.Save
ActiveWorkbook.Close
Next tel
End Sub

Private Sub UserForm_Initialize()
TextBox1.Text = "c:\"
End Sub


druk op F5

vil in de textbox de plaats van de Excelbestanden in

druk op de knop

alle cv worden vervangen door bv


suc6

Pipo

[MandersOnline]

ahhhh Petra, ik lees het geheel verkeerd dus snapte er geen ene klap van , maar hexeditor zegt me natuurlijk veel meer, maar ik lees zoiets snel verkeerd...

[Timelord]

Geeft niet, voor problemen kun je hier op het forum terecht.

En voor een brilletje bij Pearl. hahahahahahahahahahahahaha

[Pipo]

Ach Piotr is n betj dislekties

[MandersOnline]

Hoe weet jij dat toch Pipo.

Verder ben ik al een poos niet meer bij pearl geweest omdat ik geen bril meer nodig heb, enkel een zonnebril

[Timelord]

Kijk eens aan, Pieter heeft een scherm met geslepen glas ! hahahahahahahahaha

[MandersOnline]

jup goeie opdrachtgevers heb ik he

[water]

Hoi, heel hartelijk bedankt voor de reacties. Met wat pipo geschreven heeft ga ik eens uitproberen?? Mocht ik er niet uitkomen mag ik dan nog eens bij je aankloppen Pipo?
Groetjes