Tiedostokansiossa MYYNNIT on x kpl rakenteeltaan identtisiä Excel –tiedostoja, data tietty eri.
TARVE: Jokaisen tiedoston LOKAKUU –nimisestä taulukosta pitäisi hakea tietyn (vaikka C17) solun sisältö. Tuloksena pitäisi syntyä taulukko, jossa A-sarakkeessa kunkin tiedoston nimi ja B-sarakkeessa halutun solun arvo. Siis yhtä monta riviä kuin tiedostoja kansiossa.
Koodin/makron pitäisi siis käydä läpi kaikki kansion EXCEL –tiedostot ja poimia ko. tieto koostetyökirjan taulukkoon. Löytyisikö jotain aihiota josta saisi mallia tällaisen tekemiseen?
Kansion Excel -tiedostojen läpikäynti ja määrätyn soluarvon haku
2
65
Vastaukset
- Kundepuu
Option Explicit
Public Sub HakeeKaikistaTiedostoista()
Dim wbk As Workbook
Dim tw As Workbook
Dim Tiedosto As String
Dim Polku As String
Dim Laskuri As Integer
Application.ScreenUpdating = False
Laskuri = 1
Set tw = ThisWorkbook
tw.ActiveSheet.Range("A:B") = ""
Polku = "C:\Myynnit\" 'muuta polku
Tiedosto = Dir(Polku & "*.xlsx") 'muuta tiedostopääte
Do While Len(Tiedosto) > 0
Set wbk = Workbooks.Open(Polku & Tiedosto)
tw.ActiveSheet.Cells(Laskuri, 1) = Tiedosto
tw.ActiveSheet.Cells(Laskuri, 2) = wbk.Worksheets("Lokakuu").Range("C17") 'muuta solu C17 sopivaksi
wbk.Close True
Tiedosto = Dir
Laskuri = Laskuri 1
Loop
Set wbk = Nothing
Set tw = Nothing
Application.ScreenUpdating = True
End Sub
Keep EXCELing
@Kunde - KOOSTE
Toimii, kiitos! Ei ole eka kerta kun Kunde antaa apuja! =)
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Voitasko leikkiä jotain tunnisteleikkiä?
Tietäisi ketä täällä käy kaipaamassa.. kerro jotain mikä liittyy sinuun ja häneen eikä muut tiedä. Vastaan itsekin kohta801975Tietysti jokainen ansaitsee
Hän varmasti ansaitsee vain parasta ja sopivinta tietenkin, suon sen onnen hänelle enemmän kuin mielelläni. Aika on nyt181753- 161614
50+ naiset kyl
Lemottaa sillille mut myös niitte kaka lemottaa pahlle ku kävin naiste veskis nuuhiin201356Välitän sinusta mies
Kaikki mitä yritin kertoa tänään ei mennyt ihan putkeen..Joka jäi jälkeenpäin ajateltuna suoraan sanottuna harmittaa aiv61262En voi sille mitään
Tulen niin pahalle tuulelle tästä paikasta nykyisin. Nähnyt ja lukenut jo kaiken ja teidän juttu on samaa illasta toisee121254Jotain puuttuu
Kun en sinua näe. Et ehkä arvaisi, mutta olen arka kuin alaston koivu lehtiä vailla, talven jäljiltä, kun ajattelen sinu501253hieman diabetes...
Kävin eilen kaverin kanssa keskusapteekissa kun on muutama kuukausi sitten tullut suomesta ja oli diabetes insuliinit lo121246Miten joku voi käyttää koko elämänsä
siihen että nostelee täällä vanhoja ketjuja ja troIIaa niihin jotain linkkiä mitä kukaan ei avaa? Ihmisellä ei ole mitää101212Annetaanko olla vaan
Siinä se, tavallaan kysymys ja toteamuskin. Niin turhaa, niin rikkovaa. On niin äärettömän tärkeä, ja rakas olo.. N291191