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
KOOSTE
2
89
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
Lavrov suivaantui Stubbille perustellusti.
Lavrov perusteli suivaantumistaan tosiasioilla Suomen tarinasta sotiemme jälkeen, tutkija Tynkkynen ja pankkihenkilö Sol5472099Sukupuolia on vain kaksi- kohukassista tuli kova tuomio perheenisälle oikeudessa.
https://www.iltalehti.fi/kotimaa/a/4d4db0d9-4dda-4ba6-a699-25d725683ad6 Miten näin normaalista kassissa olevasta tekstis3851692Eronnut Janni Hussi palaa julkisuuteen - Aloittaa uudessa työssä, joka on aivan uusi pesti Suomessa
Janni Hussi on saanut viime aikoina kohujulkisuutta, kun hänen ja Joel Harkimon avioliitto päättyi eroon kesällä 2025. H211519Se ei ihan oikeasti vaatisi kuin yhden
Tekstiviestin... Jos rakastat minua vielä toivoisin että laittaisit minulle viestiä. Rakastatko? Oletko oikeasti niin pe641398- 561082
JM lukkoliike
Mihin helvetin kuuseen te olette tällä kertaa siirtäneet Lukkoliikkeenne? Sen kerran kun ensimmäisen ja viimesen kerran191076- 1181067
Pankin avajaiset
Osuuspankin uuden toimitilan viralliset avajaiset vetävät väkeä. Kyllä oli outo nauhan leikkaus, kun leikkaajat pyllisti16848Helena Ahti-Hallberg uudessa elämäntilanteessa - Paljastaa eläkehaaveestaan Espanjassa: "Mä.."
Oi, kuulostaa ihanalta eläkepäivillä! Helena Ahti-Hallberg on ostanut kakkoskodin Espanjasta ja hänellä on puolisonsa ka11824Miten kesäsi meni?
Oletko tyytyväinen siihen? Oliko kaivattusi mielessäsi? Lähennyitkö vai etäännyitkö hänen kanssaan?66813