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

286

    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. Turussa Varissuolla bussikuski ajoi lapsen yli lapsi kuoli

      Poliisi " Epäilee " kuskia törkeästä liikenneturvallisuuden vaarantamisesta ja törkeästä kuolemantuottamuksesta.
      Maailman menoa
      268
      1627
    2. IS: Väitöstutkimus - Pyöräilybuumi oli pelkkä kupla!

      Pyöräilybuumista paljastui karu totuus Väitöstutkimuksen mukaan suuri suomalainen pyöräilyrenessanssi olikin vain pelkk
      Maailman menoa
      35
      1502
    3. Milloin bikineistä

      Tuli juhla tai esiintymis asu? Pikkasen harkintaa vois käyttää. Bikinit kuuluvat uimarannalle. No, mitä maailman tähdet
      Maailman menoa
      150
      1229
    4. Mene perheinesi arkkiin - kasteelle !

      Juutalaiset oli hyvin lapsirakkaita, mitään ehkäisyä ei käytetty. Perheissä oli paljon lapsia. Viiden koko perheen kast
      Kaste
      470
      1037
    5. 136
      1018
    6. Johanna Tukiainen ei suostu muuttamaan pois vuokra-asunnosta!

      Seiska kertoi tänään, että Johanna Tukiainen ei ole suostunut poistumaan Helsingin Munkkisaarenkadun vuokra-asunnostaan.
      Kotimaiset julkkisjuorut
      72
      961
    7. Olimmeko molemmat

      ujoja ja hankalia, vai minä vain? Mietin, oliko se silloin epävarmuutta vai kiinnostuksen puutetta.
      Ikävä
      73
      933
    8. Apostolit kastoivat eri tavalla kuin kirkko

      Raamatussa on kaksi ristiriitaista kastekaavaa. Toinen ei voi olla oikea. Kumpi on alkuperäinen? "Menkää siis ja tehkää
      Kaste
      437
      896
    9. Mun on ikävä sua J ,

      Mun on ikävä sua J, haluaisin tutustua paremmin (vaikka tämä aivan älytöntä onkin). Voitaisiinko nähdä ja jutella ihan
      Ikävä
      47
      862
    10. Kesä ja nuorison mopoilu

      Tänään neljä mopoa ajelivat yöllä ihan miten sattuu pitkin kyliä liikenteenjakajan väärältä puolelta hirveää ylinopeutta
      Suomussalmi
      149
      843
    Aihe