Probleema: Samassa kansiossa on satoja excel tiedostoja. Joissain näissä tiedostoissa (ei kaikissa) on sana Volvo. Tämä pitäisi saada muutettua sanaksi mersu. Sana on eri soluissa, eri välilehdillä. Onko mahdollista tehdä tämänkaltainen "massavaihto" vb:llä, tai edes löytää tiedostot, jossa sana on?
Onko mahdollista?
itse yksinkertaisuus
3
264
Vastaukset
moduuliin...
vaihda tiedostopolku ja sanat sopiviksi...
Sub EtsijaKorvaa()
Dim polku As String
Dim tiedosto As Variant
Dim työkirja As Worksheet
On Error GoTo virhe
Application.ScreenUpdating = False
polku = "C:\Testailua\"
With Application.FileSearch
.NewSearch
.LookIn = polku
.SearchSubFolders = False
.Filename = ".xls"
If .Execute > 0 Then
For Each tiedosto In .FoundFiles
Workbooks.Open tiedosto
With ActiveWorkbook
For Each työkirja In .Worksheets
työkirja.Cells.Replace Volvo", "mersu", xlWhole, , True
Next
.Close True
End With
Next
End If
End With
virhe:
Application.ScreenUpdating = True
End Sub
Keep EXCELing
@Kunde- itse yksinkertaisuus
Hyvää kakkua onkin! Kiitos!
Saako tuota vielä ohjattua niin, että excelissä, jossa tämä koodi on, niin se hakisi vaihdettavat arvot soluista a1 ja a2? Eli a1 volvo ja a2 mersu? itse yksinkertaisuus kirjoitti:
Hyvää kakkua onkin! Kiitos!
Saako tuota vielä ohjattua niin, että excelissä, jossa tämä koodi on, niin se hakisi vaihdettavat arvot soluista a1 ja a2? Eli a1 volvo ja a2 mersu?Sub EtsijaKorvaa()
Dim polku As String
Dim tiedosto As Variant
Dim työkirja As Worksheet
Dim haettava As String
Dim korvattava As String
On Error GoTo virhe
haettava = ActiveSheet.Range("A1")
korvattava = ActiveSheet.Range("A2")
Application.ScreenUpdating = False
polku = "C:\Testailua\"
With Application.FileSearch
.NewSearch
.LookIn = polku
.SearchSubFolders = False
.Filename = ".xls"
If .Execute > 0 Then
For Each tiedosto In .FoundFiles
Workbooks.Open tiedosto
With ActiveWorkbook
For Each työkirja In .Worksheets
työkirja.Cells.Replace haettava, korvattava, xlWhole, , True
Next
.Close True
End With
Next
End If
End With
virhe:
Application.ScreenUpdating = True
End Sub
Keep EXCELing
@Kunde
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
SDP on vastuunkantaja, ja siksi suosituin kansan keskuudessa
Kiusaamiseenkin SDP puuttuu heti sellaisen tultua ilmi. Esimerkiksi persut lakaisevat nämä maton alle ja pahentavat site405797Me työeläkeläiset äänestämme SDP:tä
SDP on luonut koko työeläkejärjestelmän, jonka hedelmistä saamme nyt nauttia. Kansaneläkelaitos on Maalaisliiton tekele,2175336Persut on Suomen mamutuspuolue nro 1.
Heti ensimmäisenä persuvuonna 2015 maahantoivat Suomeen 35 tuhatta kunniavierastaan. Tuoreimpana persuvuonna 2025 pers464485Punavihreät puolueet haluavat Suomeen satoja tuhansia kehitysmaalaisia
SDP, vihreät ja vassarit haluavat nostaa esim. pakolaiskiintiötä todella paljon. Orpon hallituksen aikana maahanmuutto464302SDP:n johto pesi kätensä häirintäkohusta
"Suurimman oppositiopuolue SDP:n johto olisi todennäköisimmin halunnut vaieta puolueen ympärillä velloneen häirintäkohun544088Eikö tunnukin kamalalta, kun en
anna periksi vaikka parhaasi olet tehnyt antaaksesi täystyrmäyksen? Ja kyllähän minä monta iskua olen saanut ja maannut813776SDP on selvästi paras valinta äänestyskopissa
Puolueella on arvomaailma kohdallaan, sillä on hyvä CV itsenäisen Suomen historiassa vastuunkantajana ja hyvinvointivalt853680Tytti Tuppurainen ollut aivan sekaisin viime päivinä
Pitäis varmaan tehdä huumetesti sille. "– SDP:n Tytti Tuppurainen väittää kirkkain silmin ja Antti Lindtman vierellään463141Kenen juontajan pitäisi voittaa tänään Kultainen Venla? Ehdolla Pimiä, Holma ja Vaaherkumpu
Kultainen Venla gaalassa jaetaan tänään tv-alan palkintoja. Yksi suosituimmista kategorioista on Juontaja. Vappu Pimiä1062460SDP:n selitykset ontuu pahasti - "On käsitelty heti, mutta kukaan ei tiedä"
Kokoomuslaiset pistää taas demareita nippuun. Tuppuraisen mukaan mukaan SDP:n useat ahdistelutapaukset on käsitelty het482396