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
84
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
Moikka rakas
Oon miettinyt meidän välistä yhteyttä viime aikoina. En ihan osaa pukea sanoiksi, mitä kaikkea tunnen, mutta halusin vaa6517073Mitä tapahtunut
Poliiseja monta autoa+panssariauto Porista kpäähän päin tänään klo n.20 kuka hurjistunut ?414814HS: Kuka vielä uskaltaa mennä sairaalan ensiapuun?
https://www.hs.fi/mielipide/art-2000011212025.html Tässä on hyvin ajankohtainen mielipidekirjoitus koskien Malmin sairaa3002728- 1442016
Ökyrikas Kurkilahti mussuttaa veroistaan
Pakeni aikoinaan veroja Portugaliin mutta joutui palaamaan takaisin kun Suomi teki verotussopimuksen Portugalin kanssa.1321597Yhdysvalloissa työllisyys paranee, Suomessa työttömyys kasvaa, missä vika?
Miten tämä on mahdollista että 177 000 uutta työllistä tuli USAssa yhdessä kuukaudessa, vaikka Trump on ruorissa? Orpon3981534- 171507
Lakea konkurssiin. Asukkaat menettävät asuntonsa
Kuntarahoitus on tänään jättänyt konkurssihakemuksen lakean kaikista kiinteistö osakeyhtiöistä. Kassa on tyhjä, kaikki231348Jos tämän vaan sulkee ja avaa 5 vuoden päästä
Täällä on luultavasti edelleen näitä ihan samoja juttuja. On kuin kauniit ja rohkeat samat jutut junnaa. Heips. 👋🏻 E101303mahdollista, että olet ollut iltavuorossa
Ja kotiin päästyäsi tulit palstalle etsimään merkkiä minusta, jos kaipaat yhtään minua niin kuin minä sinua Ei mennyt k111223