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
202
Vastaukset
- 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
Vuonna 2026 jää entistä vähemmän rahaa käteen palkansaajille
Työttömyysvakuutusmaksu nousee 0,3 prosenttia. Työeläkemaksu nousee 7,15 prosentista 7,3 prosenttiin. Työmarkkinajärjest1056913Suomen kansa puhunut: Purra huonoimpia ministereitä
Kouluarvosanalla 6–, eli samaa tasoa mitä Purran oikeakin koulutodistus. Epäpätevyys on tullut huomattua Suomen talouden4835045Mitä aiot tehdä uudenvuoden aattona
Mitä olet suunnitellut tekeväsi uudenvuoden aattona ja aiotko ensi vuonna tehdä jotain muutoksia tai uudenvuoden lupauks1302989Joulun ruokajonoissa entistä enemmän avuntarvitsijoita - Mitä ajatuksia tämä herättää?
Räppärit Mikael Gabriel, VilleGalle ja Jare Brand jakoivat ruokaa ja pehmeitäkin paketteja vähävaraisille jouluaattoa ed1772518Marin sitä, Marin tätä, yhyy yhyy, persut jaksaa vollottaa
On nuo persut kyllä surkeaa porukkaa. Edelleen itkevät jonkun Marinin perään, vaikka itse ovat tuhonneet Suomen kansan t182226Pituuden mittaaminen
Ihmisen pituuden mittaaminen ja puolikkaat senttimetrit. Kuuluuko ne puolikkaatkin sentit tai millit teistä ilmoittaa m361214En tiedä enää
Pitäiskö mun koittaa vältellä sua vai mitä? Oon välillä ollut hieman mustasukkainen, myönnän. En ymmärrä miksi en saa su721143Muistattekos kuinka persujen Salainen Akentti kävi Putinin leirillä
Hakemassa jamesbondimaista vakoiluoppia paikan päällä Venäjällä? Siitä ei edes Suomea suojeleva viranomainen saanut puhu51090Luuletko, että löydetään vielä
Yhteys takaisin? En tiedä enää mitä tehdä... tuntuu jo että olen vieraantunut sinusta. Naiselta531060- 1071054