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?
Vastaukset 3
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
- 681236
Kai mua vähän
Masentaa tämä kaikki. Tämä koko meidän välinen juttu on niin vaikea… Voitaisiinko molemmat lopettaa tilanteen ruokkimine1381044Onko karhukanta jo liian iso? Lenkkeilijä kohtasi kontion juoksulenkillä
Rantasalmella lenkkeilijä kohtasi karhun. Kylällä karhun näkeminen on ollut tosi harvinaista. Onko karhukanta jo liian i111680S-ryhmän Israel-boikotti liiketalouden opintojen tapausesimerkkinä
Tätä S-ryhmän Israel-boikottitapausta käsitellään jo kauppakorkeakoulujen ja johtamiskorkeakoulujen esimerkeissä. Se ant22605Vanhat konkarit ulos Elämäni biisistä - Yle selittelee
Elämäni biisi starttaa taas tänä syksynä. Mukana on ripaus uutta, mutta poissa on iso osa vanhaa... Poissa ovat Markku16591Mitä tehdä kun rakastan yhtä ja olen rakastunut toiseen
Kamala tilanne. Voinko pitää molemmat? 😁61531Oot upea nainen, älä vähättele ittees
Ja tietojeni mukaan 2 muuta on susta kiinnostuneit mun lisäks. 👀32531Mies miksi moinen vetäytyminen?
1) Olit loukkaantunut tai suuttunut 2) Sulla oli toinen nainen 3) Luulit, etten halua jatkaa tutustumista 4) Vai joku52509Mitä vit,,tua!
Mikä hiivatin kommunistien teltta oli kirsikan nurkalla, olivat vähällä jäädä telttoinensa auton alle kun olivat sen kul22476Hyvä Kukkola! toitte tänne taas jotain uutta
Niin sitä pitää! Kehittää oikeasti tarjontaa. Nyt on maut kohdillaan! Käykäähän herkuttelemassa wingseillä ja siipiweikk62475