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

270

    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. Kiva kun SDP alkaa hallitsemaan Suomea

      Vanhat hyvät ajat taas palaavat ja kansa vaurastuu. Muistatteko vielä Sorsan aikakauden? Silloin Suomessa tehtiin jopa
      Maailman menoa
      244
      6084
    2. SDP:n lyhyt selviytymisopas

      1. Komitea on vastaus, oli kysymys mikä tahansa Jos maailma on muuttumassa tai jossain palaa, demari ei hätiköi. Ensin p
      Maailman menoa
      78
      4849
    3. Keskisen kyläkaupassa Temun vaatteita myynnissä?

      Siis mitä? Miksi siis ei itse tilaisi Temusta samoja.
      Maailman menoa
      94
      3717
    4. SÄHKÖLASKU 1600 EUROA Ei tässä ole mitään järkeä

      https://www.is.fi/taloussanomat/art-2000011804443.html Kyllä täysin huijausta nämä sähkömarkkinat. Varsinkin pörssisähk
      Maailman menoa
      253
      3180
    5. Toivoisitko

      Toivoisitko, että kaivattusi olisi introvertimpi tai extrovertimpi? Itsenäinen tai tarvitsisi enemmän apua/sinua? Osoit
      Ikävä
      146
      2869
    6. Olli Rehn: Eläkkeistä pitää leikata. Nyt tuli Lindtmanille kauhun paikka

      jos johtaa seuraavaa hallitusta. Purra: eläkkeisiin ei kosketa. Eikä tällä hallituskaudella varmasti kosketa, mutta seur
      Maailman menoa
      196
      2414
    7. Venäläiset varkaudessa

      Ja venäjä mieliset. Teitä kiinnostaa toisinajattelijat ja trafikista päätellen aika paljonkin. Kunhan aika koitaa tulee
      Varkaus
      262
      1817
    8. Säästäminen on typerää, muistakaa äänestää demareita

      Säästäminen on typerää, koska aiheuttaa vain talouden taantumista ja lopulta tappaa potilaan. Demareiden tapa on satsat
      Maailman menoa
      59
      1655
    9. Lupajaoston esityslista

      Ilmoitus rakennusvalvonntaan luvattomasta rakentamisesta. esityslistan 6pykälä Kyse on kulttuuritalon rakentamisesta jo
      Pyhäjärvi
      49
      1315
    10. Jorma Uotinen UMK-juontajaksi! Mitä ajatuksia UMK-pesti herättää?

      Professori, laulaja, koreografi ja TTK-tuomari Jorma Uotinen, 75, on yksi tämän vuoden UMK-juontajista. Uotisen rinnall
      Euroviisut
      28
      1238
    Aihe