Excel-tiedostojen läpikäynti VBA:n avulla

ongelmaan_ratkaisu

Minulla on kansioon tallennettuna 100 kpl standardimuotoisia Excel-työkirjoja (=asiakkaiden täyttämiä ja palauttamia lomakkeita).
Nyt haluaisin yhdistää näiden yksittäisten tiedostojen datan yhteen työkirjaan. Data on aina samassa paikassa lomakkeissa, mutta haluan poimia tiedostoista vain tietyt solut. (En tarvitse kaikkia lomakkeisiin täytettyjä tietoja tässä vaiheessa.) Solut eivät välttämättä peräkkäin. Solut, josta haluaisin poimia tiedot yhteen työkirjaan, ovat B4, C13, C14, C15, C16, B38 ja F38.
Haluaisin yhden asiakirjan datan yhdelle riville koostetyökirjassa.
Olisi hyvä, jos koostetyökirjaan saisi mukaan myös lähdetiedostojen nimet, nimi sarakkeeseen A ja data sarakkeisiin B, C jne.
Millaisella VBA-koodilla onnistuisi käydä läpi Excel-tiedostot haluamallani tavalla?

5

169

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
      • Kundepuu

        Kappas vaan sanoi Kunde vaan... ;-)

      • XLduud

        Itsekin kaipasin juuri tätä, mutta koska ahneus kasvaa syödessä kysyisin kuinka saan syntyneeseen tiedostoluettelon tiedostonimiin hyperlinkit?
        Tällaisen hyperlinkillisen luettelon sain jo aikaan, mutta tuon koodin soveltaminen tässä Kunden koodissa (joka toimii selvästi paremmin) ei onnistu minulta.
        Kiitokset etukäteen

      • kunde

        en tarkistanut toimivuutta, mutta kaiketi pelittää ;-) ?

        pikku muutos luuppiin

        Do While Len(Tiedosto) > 0
        Set wbk = Workbooks.Open(Polku & Tiedosto)
        tw.ActiveSheet.Cells(Laskuri, 2) = wbk.Worksheets("Lokakuu").Range("C17") 'muuta solu C17 sopivaksi
        wbk.Close True
        tw.ActiveSheet.Hyperlinks.Add Anchor:=Cells(Laskuri, 1), Address:=Tiedosto, TextToDisplay:=Tiedosto
        Tiedosto = Dir
        Laskuri = Laskuri 1
        Loop

        Keep EXCELing
        @Kunde

      • XLduud

        Kiitosta paljon! Pelittää oikein hienosti ja jotain tuollaista itsekin yritin, mutta kun ei osaa. Onneksi Kunde osaa!

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Moikka rakas

      Oon miettinyt meidän välistä yhteyttä viime aikoina. En ihan osaa pukea sanoiksi, mitä kaikkea tunnen, mutta halusin vaa
      Ikävä
      35
      10890

    2. Malmin tapaus on järkyttävä

      Kolme ulkomaalaistaustaista miestä raiskasi nuoren tytön tavalla, jota ei meinaa uskoa todeksi. Mikä voisi olla oikeampi
      Maahanmuutto
      621
      3000

    3. Mitä haluaisit kysyä

      Kaivatultasi?
      Ikävä
      152
      2073

    4. HS: Kuka vielä uskaltaa mennä sairaalan ensiapuun?

      https://www.hs.fi/mielipide/art-2000011212025.html Tässä on hyvin ajankohtainen mielipidekirjoitus koskien Malmin sairaa
      Maailman menoa
      167
      1704

    5. Mitkä asiat teidän elämässänne on

      Tällä hetkellä parasta?
      Ikävä
      105
      1519

    6. Ökyrikas Kurkilahti mussuttaa veroistaan

      Pakeni aikoinaan veroja Portugaliin mutta joutui palaamaan takaisin kun Suomi teki verotussopimuksen Portugalin kanssa.
      Maailman menoa
      109
      1272

    7. Mitä haluaisit nähdä

      Kaivatullasi päällä?
      Ikävä
      75
      1137

    8. Yhdysvalloissa työllisyys paranee, Suomessa työttömyys kasvaa, missä vika?

      Miten tämä on mahdollista että 177 000 uutta työllistä tuli USAssa yhdessä kuukaudessa, vaikka Trump on ruorissa? Orpon
      Maailman menoa
      263
      1111

    9. Kaupunki ostaa Kauppamatin

      Joutuukohan yrittäjät lähteen muualle?
      Haapavesi
      37
      1044

    10. Jos tämän vaan sulkee ja avaa 5 vuoden päästä

      Täällä on luultavasti edelleen näitä ihan samoja juttuja. On kuin kauniit ja rohkeat samat jutut junnaa. Heips. 👋🏻 E
      Ikävä
      10
      1043
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt