Onko mahdollista?

itse yksinkertaisuus

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?

3

276

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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

    1. Vasemmistohallitus palauttaa hintasääntelyn, esim. bensalitra vain 1e.

      Tuleva vasemmistolaisista koostuva hallitus ottaa käyttöön vanhat hyvät keinot pitää hinnat kurissa. Tähän tarkoitukse
      Maailman menoa
      75
      4537
    2. Vasemmistolainen valehteli jälleen - Purra tai persut eivät luvanneet "euron bensaa"

      Väite "euron bensasta" on ensisijaisesti poliittisten vastustajien käyttämä puhdas vale. Persut kyllä kampanjoivat näky
      Maailman menoa
      105
      3769
    3. Arman Alizadin viesti puna-aktivisteille: "Pitäkää lärvinne nytkin kiinni"

      Arman Alizad kritisoi vasemmiston kaksinaismoralismia. Iranissa syntynyt suosikkijuontaja Arman Alizad pakeni perheensä
      Maailman menoa
      142
      3473
    4. Minja Koskela nostanut vasemmistoliiton kannatuksen ennätykseen

      Koskela valittiin puolueen johtoon lokakuussa 2024, ja silloin Ylen kysely antoi puolueelle 9,3 prosentin kannatuksen.
      Maailman menoa
      37
      1970
    5. Antti johtaa Petteriä jo 7,1 prosenttiyksiköllä

      Tällä menolla sdp menee kokoomuksesta kierroksella ohi jo tällä vaalikaudella. https://yle.fi/a/74-20213575
      Maailman menoa
      69
      1921
    6. Mitä on tullut

      Entisen abcn rakennuksen tilalle se oli tyhjillään monta vuotta siellä oli jo nyt valot onko huoltoasema? 5:30.
      Haapavesi
      89
      1229
    7. Harmi nainen kun

      olet niin elähtäneen näköinen. Miestä et koskaan löydä itelles. j
      Ikävä
      118
      1035
    8. Palosta selvinnyt 18 vuotias munira tarvitsi tulkin kun puhui Iltalehdelle

      Suomessa asuva 18 vuotias tarvii tulkin !!! Tää Suomea puhumaton on palossa kuolleen naisen veli ja asui perheen kanssa.
      Vantaa
      129
      950
    9. Minne pyydän sut?

      Jotta saan nähdä 🤨
      Ikävä
      55
      925
    10. Mikä homma?

      https://share.google/NvruSS4P4EzjTWPov Poliisilla oli keskiviikkona 4. maaliskuuta yksityisasunnossa Saarijärvellä tehtä
      Saarijärvi
      25
      837
    Aihe