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
103
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
Elämä valuu ohi ilman merkitystä
Olen 5-kymppinen korkeasti koulutettu hyvässä ja vaativassa työssä oleva mies. Erosin pitkästä parisuhteesta pari vuotta2513599Martina julkaisi romanttisia kuvia kihlajaisista
Ihana pari. Paljon onnea ja rakkautta heille 💞2631253Ilo, joka nousee silmiisi saakka
kun katseemme kohtaavat. Olet energinen, aito, ihana. Välillä tuijotat suoraan silmiini - enkä hämmenny, katson takaisin591198- 841036
Gekkosessa hyvä juttu Sofian Dubai "töistä"
"Vielä tammikuussa Belórf lupaili aloittavansa jälleen verkkovalmennukset, mutta tämä projekti näyttää kuihtuneen kaikes93980eerikäinen novassa sanoi ei kukaan enää aja manuaalivaihteilla
meillä on 3 autoa talissa ja kaikissa manuaalilaatikot, on meillä vielä tämmöiset vaikka toisin puhutaan.93915Jokaisella on omat syntinsä
Minä olisin niin mielelläni sinun. Ehkä joskus viittasitkin siihen. Olet nainen ajatuksissani jatkuvasti ja taidat tietä56906- 169863
En oikeasti
Tiennyt että sinulla on ollut vaikeuksia ja huonoja aikoja. Olen oikeasti pahoillani, ja olisin myös toiminut eritavoin117860Palsta sekosi lopullisesti?
Taidan mennä päikkäreille. Oliko hän nyt muka oikeasti äsken täällä ja kirjoitti, että täytyy unohtaa? Todistakaa se. Ki14814