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
      67
      4479
    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
      104
      3737
    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
      109
      3363
    4. 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
      68
      1908
    5. 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
      21
      1906
    6. Mitä on tullut

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

      olet niin elähtäneen näköinen. Miestä et koskaan löydä itelles. j
      Ikävä
      89
      923
    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
      123
      886
    9. Minne pyydän sut?

      Jotta saan nähdä 🤨
      Ikävä
      54
      878
    10. Mikä homma?

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