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?
Excel-tiedostojen läpikäynti VBA:n avulla
5
236
Vastaukset 5
- KiitoksetMeneeKundelle
- 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 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ä.
Luetuimmat keskustelut
Gallup: Kansalaiset eivät usko velkajarruun
Puolet suomalaisista ei usko velkajarrun vaatimien sopeutusten toteutuvan, kertoo Iro Researchin kyselytutkimus. Kokoom1261367- 2531208
- 631036
- 681024
Martsusta tuli leuhka
Ja ylimielinen. Hän ei nosta persettäkään ilmaseksi . Luulempa et nämä ei tee hyvää hyvinvointivalmennuksille.... Nannal251900Kuisla Group Oy jättänyt yrityssaneeraushakemuksen
Samalla yrityssaneeraukseen on hakeutunut Kuisla henkilökohtaisesti ja Seinäjoen Motelli Oy, joka omistaa Sorsanpesän ki42853Hei rakkaani.
Kohtaaminen lähestyy. Miten teemme sen? Kumpi ottaa yhteyttä vai törmäämmekö jossain sattumalta? Tuleva vaimosi70795Ethän voinut nainen tietää, että rikot rikotun
Omaa elämää taas mietin aamuyön tunteina. En vieläkään löytänyt muistin sokkeloista ainuttakaan onnen hetkeä. Kaipuu on72782- 42746
Uskallanko laittaa sulle viestiä?
Se viesti on tossa valmiina ja lähettämistä vaille valmis. Kun ei kauhee sti tunneta niin eipä sillä olisi niin väliä. S58730- 67713
Mies joka on oikeasti kiinnostunut
Ja näkee sut pitkäaikaisena kumppanina, siirtää vaikka vuoria selvittääkseen asiat eikä ota pienintäkään riskiä menettää125656- 28650
Kiulu myynnissä!
Kiulu hakee taas uutta yrittäjää. https://www.yritysporssi.fi/etela-pohjanmaa-lansi-suomi-finland/myytavat/yritykset/ma26618- 85611
Tulisiko naisille asettaa korkeammat eläkemaksut
Tämä tuli mieleeni kun luin aamun lööppejä. Japanissa alkaa olla "uutta nuorisoa" ihan urakalla, ikä alkaa sadan jälkeen187544Et pysty peittämään minulta
Sinä olet hyvä peittämään asioita niin halutessasi. Pystyt pitkiäkin aikoja salaamaan juttuja. Juuri mietin tuossa, olet47524- 24514
Mitä oikein tapahtui? Maajussi-Jetta sai tylyt pakit - Sulhoehdokas selittää: "Ei lentänyt kipinät"
Maajussille morsian -sarjassa etsitään rakkautta ja rinnalle kumppania. Yksi maajusseista on Jetta - liikunnallinen ja13514- 40487