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
259
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
Taas nuoren kuolema
Vasunmäentiellä paha onnettomuus. Nuori nainen menehtyi. Niiin sydäntä riipaisevaa 😭1686375Elikkäs persuissa ovat pahimmat häiriköijät
Koska sieltä tuli kaikkein kovin ulahdus. Persujen peesissä seuraa kokoomus js hajuraon päässä röhkii kepulaiset. Olipa793670"Skandaali muhii SDP:ssä" - "pelon ilmapiiri vallitsee"
Puolueen johto on vähintään vastuussa ilmapiiristä, jossa häirinnän uhrit eivät ole saaneet ääntään kuuluviin. Vyyhdin1123557Tehomaksu rankaisisi normaalista sähkönkäytöstä
Energiaviraston valmistelema tehomaksumalli herättää aiheellista huolta erityisesti tavallisten kotitalouksien näkökulma752855Ahdistelu ongelmaa vain vasemmistossa - ei oikeiston edustajissa
Mutta demarit ovat tunnetusti sivistymättömiä, ja vähemmän fiksuja.442420Tampereen "empatiatalu" - "Harvoin näkee mitään näin kajahtanutta"
sanoo kokoomuslainen. Tampereen kaupunginvaltuuston maanantain kokouksessa käsiteltävä Tampereen uusi hyvinvointisuunni582218- 1201805
Trump asettaa Grönlannin kaappausta vastustaville Euroopan maille 10% tuontitullin
Suomi mukana näissä maissa. Myöhemmin Trump aikoo nostaa tuontitullit 25%:iin kesäkuun alusta, jos Grönlannin kaappausta3751284- 541278
Miksi suorittamisesta tulee
Miksi suorittamisesta tulee hyvä fiilis? Mitä sillä paikataan? Jollekinhan se voi olla jopa terapeuttista, mutta itse a521035