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
248
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
Minkähän takia ns. persuille ei tunnu työ maistuvan?
Vaikuttavat olevan joutoväkeä syystä tai toisesta – työttömiä tai työeläkeloisia. Muiden rahoilla pötköttelevää väkeä,502315Suomen veroaste 5 %-yks liian matala
Palauttamalla kokonaisveroaste 1990-luvun tasolle saadaan hyvinvointivaltion palvelut rahoitettua ilman velan ottoa.932028Kolme neljästä suomalaisesta kannattaa miljonääriveroa
Kertoo vasemmistoliiton teettämä kysely. Veron ulkopuolelle jätettäisiin asunto. "Puolet vastaajista oli sitä mieltä, e912010Olit ihan
Kiihkona silloin. Sen näki ja lähes tunsi. Ei tainnut olla kaukana et olisit vetänyt lähellesi jos siihen olisi hetki tu241797MTV: Harvinainen haastattelu! Vappu Pimiä kommentoi vihdoinkin uutta TTK-juontajaa
TTK-juontajaspekuloinnit käyvät edelleen kuumana. Kenet sinä haluaisit uudeksi TTK-juontajaksi? Kommentoi alle! Lue,131741Evoluutioon ja alkuräjähdykseen uskominen vaatii todella vahvaa uskoa
Että tyhjästä syntyi ja kehittyi kaikki se mitä näemme ympärillämme.5011594Yleveron tuotto siirrettävä S-ryhmälle
Yleisradio on mukana kansanmurhassa. Tuollaista ei voi tukea verovaroin. S-ryhmä on ainoa selkärankainen iso toimija S21550Mikä ihme teitä lieksalaisia tuossa
p*rs*reiässä niin kiinnostelee? Että siitä pitää päntönnään huutaa?491380Kemet lomautukset
Onkohan tuo oikein lain mukaista toimintaa jatkaa jo lomautettuina olevien uudelleen lomautusta yhdenvertaisuuden ja tas371285Mistä juttelit viimeisen kerran
Mistä juttelitte viimeisen kerran ikävöinnin kohteen kanssa? Irl tai viesteillä.741281