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
195
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
Jalankulkija kuoli. Poliisi etsii mustaa BMW Coupe -autoa, jossa on punertavat vanteet.
Jalankulkija kuoli jäätyään auton alle Joensuussa – kuljettaja pakeni, poliisi pyytää havaintoja https://www.mtvuutiset.1283101Mikä vasemmistolaisista jankkaavaa vaivaa?
Pahasti on ihon alle, siis korvien väliin sinne tyhjään tilaan, päässeet kummittelemaan. Ei ole terveen ihmisen merkki92985Ohjelma "Rikollisjengien Ruotsi" hyvin paljasti jakautuneen maan
eli ns. ruotsalaiset yhdellä puolella, muslimit ja muut kehitysmaalaiset toisella puolella. Siinäkin hyvin näki mitä ma242724Vassarina hymyilyttää vaurastuminen persujen kustannuksella
Olen sijottanut määrätietoisesti osan Kelan tuista pörssiosakkeisiin, ja salkku on paisunut jo toiselle sadalle tuhanne452598Riikka runnoo: Elisalta potkut 400:lle
Erinomaisen hallitusohjelman tavoite 100 000 työllistä lisää yksityisellä sektorilla on kohta saavutettu. Toivotaan toiv852480PÄIVÄN PARAS: Nigerialainen haki turvapaikkaa Suomesta, lähti takas huilaamaan
kotimaahansa, koska turvapaikan saaminen kesti niin kauan. Ja tämän kertoo ihan Yle, eikä yhtään toimittaja kyseenalaist462432Pidennetään viikko 8 päiväiseksi
Ja jätetään työpäivien määrä nykyiseen 5:een. Tuo olisi kompromissiratkaisu vellovaan keskusteluun työajan lyhentämisest102284Pääseekö kuka tahansa hoitaja katselemaan kenen tahansa ihmisen terveystietoja?
"Meeri selaili puhelinta uteliaisuuttaan ja katuu nyt – Moni hoitaja on tehnyt saman rikoksen Tuttujen ihmisten asiat k801942Niinistö neliraajajarrutteli Natoon liittymistä vielä sodan alettua
Myöntää nyt itsekin, mikä jo aikaisemmin tiedettiin. Marin vei Suomen ja Ruotsin Natoon. "”Myönnän auliisti jarruttelle1971796- 1341705