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
63
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
KUPSinpelaaja vangittu törkeästä rikoksesta
Tänään tuli uutinen että Kupsin sopimuspelaajs vangittu törkeästä rikoksesta epäiltynä. Kuka pelaaja kysressä ja mikä ri181495- 281305
Minun oma kaivattuni
Ei ole mikään ilkeä kiusaajatyyppi, vaan sivistynyt ja fiksu sekä ystävällinen ihminen, ja arvostan häntä suuresti. Raka631202Miksi ihmeessä nainen seurustelit kanssani joskus
Olin ruma silloin ja nykyisin vielä rumempi En voi kuin miettiä että miksi Olitko vain rikki edellisestä suhteesta ja ha111102Tervehdys!
Sä voit poistaa nää kaikki, mut mä kysyn silti A:lta sen kokemuksia sun käytöksestä eron jälkeen. Btw, miks haluut sabot651036Onko ministeri Juuso epäkelpo ministerin tehtäviensä hoitamiseen?
Eikö hänellä ole kompetenttia hoitaa sosiaali- ja terveysministetin toimialalle kuuluvia ministerin tehtäviä?101026Persut nimittivät kummeli-hahmon valtiosihteeriksi!
Persujen riveistä löytyi taas uusi törkyturpa valtiosihteeriksi! Jutun perusteella järjenjuoksu on kuin sketsihahmolla.271025Sakarjan kirjan 6. luku
Jolla korva on, se kuulkoon. Sain profetian 22.4.2023. Sen sisältö oli seuraava: Suomeen tulee nälänhätä niin, että se6991Elia tulee vielä
Johannes Kastaja oli Elia, mutta Jeesus sanoi, että Elia tulee vielä. Malakian kirjan profetia Eliasta toteutuu kokonaan30989Kaupungin valtuuston yleisötilaisuus
YouTubessa katsojia 76 Buahahaha buahahaha buahahaha buahahaha buahahaha buahahaha1980