Tiedostojen lisääminen?

Excelimies

Saisiko Exceliin mitenkään lisättyä tietoja tiedostoista? Esimerkiksi jos haluan tehdä kaavion kuinka paljon lomakuvia olen kesällä ottanut vaikkapa viikkoa kohti, niin pitäisi saada tiedostojen päivämäärät Exceliin automaattisesti.

Käytössä on Office 2007 (luonnollisesti).

6

558

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kautta

      sain onnistumaan. Käytössä Excel 2000. Käytin tietojen tallentamiseen ilmaista suomenkielistä XnView kuvanhallinta ohjelmaa. Muissakin voi olla sama toiminto.Eli:
      Avaa XnView - selaa kansio jossa kuvat ovat - Muokkaa - valitse kaikki - klikkaa hiiren oikealla valittuja kuvia - valitse 'luo tiedostolistaus' - tallenna .txt tiedostona.
      Avaa Excel - avaa .txt-tiedosto johon tallensit edellä.
      Avautuu "Ohjattu tekstin tuominen" - ruksaa "Erotettu" - alhaalta 'Seuraava' - ruksaa Erottimet kohdasta "Väli" - 'Seuraava' - ja jos näyttää olevan oikein sitten "Valmis" ja kuvien tiedot on jaettu eri soluihin.
      XnView: voi ladata tästä:
      http://www.download.fi/tyopoytaohjelmat/kuvankasittely/xnview.cfm

    • moduuliin... ja viittaus Microsoft Scripting Runtime kirjastoon
      voit hakea muitakin tietoja lisäämällä
      Range("A" & rivi) = Tiedosto.(ja valikosta lisää)

      Sub Testi()
      Columns("A:E") = ""
      Range("A1").Formula = "Tiedoston nimi:"
      Range("B1").Formula = "Tiedoston koko kt:"
      Range("C1").Formula = "Tiedoston tyyppi:"
      Range("D1").Formula = "Luotu pvm:"
      Range("E1").Formula = "Muokattu viimeksi pvm:"
      Range("A1:E1").Font.Bold = True
      Listaa "C:\Testikansio"
      End Sub

      Sub Listaa(LähdeKansionNimi As String)
      Dim FSO As Scripting.FileSystemObject
      Dim LähdeKansio As Scripting.Folder
      Dim Tiedosto As Scripting.File
      Dim rivi As Long
      Set FSO = New Scripting.FileSystemObject
      Set LähdeKansio = FSO.GetFolder(LähdeKansionNimi)
      rivi = Range("A65536").End(xlUp).Row 1
      For Each Tiedosto In LähdeKansio.Files
      Range("A" & rivi) = Tiedosto.Name
      Range("B" & rivi) = Tiedosto.Size
      Range("C" & rivi) = Tiedosto.Type
      Range("D" & rivi) = Tiedosto.DateCreated
      Range("E" & rivi) = Tiedosto.DateLastModified
      rivi = rivi 1
      Next Tiedosto
      Columns("A:E").AutoFit
      Set Tiedosto = Nothing
      Set LähdeKansio = Nothing
      Set FSO = Nothing
      End Sub

      • Excelimies

        Kiitos asiallisista neuvoista. Vielä pitäisi saada kuvien määrä viikkoa kohden yhteen palkkiin. Se on vähän vaikeaa ja Excel sallii korkeintaan jotain 225-255 solua yhteen kaavioon :/


      • Kaverilla ei toimi

        Mahdatko tietää, mikä, mikä dll on tuon Scripting filesystemobject -koodin timimisen takan. Täm koodi toimii mulla, kaverilla ei. Eli ilmeisesti jaku kirjasto puuttuu kaverilta


      • krjtsvrhe

        ...kirjoitusvirheistä, lähti aika äkäseen maailmalle viesti.

        nimim. mnä en jurikaan kirjta vihreitä


      • Kaverilla ei toimi kirjoitti:

        Mahdatko tietää, mikä, mikä dll on tuon Scripting filesystemobject -koodin timimisen takan. Täm koodi toimii mulla, kaverilla ei. Eli ilmeisesti jaku kirjasto puuttuu kaverilta

        referensseistä
        Mulla näkyi olevan
        SCRRUN:DLL ja se löytyy mulla C:\WINDOWS\system32 kansiosta


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Suomalainen tutkimus paljasti oudon asian vasemmistolaisista - he häpeävät itseään

      Kyllä, asia on faktaa. Suomalainen tutkimus osoittaa, että vasemmistolaisina itseään pitävät kansalaiset häpeävät itseää
      Maailman menoa
      138
      3799
    2. Sosialismia Tampereella: Virallinen ilmiantolinja avautuu kaupungissa

      Nyt siis mennään mansessa ihan justiinsa samaan malliin kuin entisessä Neuvostoliitossa, jossa saattoi ilmiantaa naapuri
      Maailman menoa
      336
      2944
    3. Tätä et nähnyt tv:ssä: Frederik paljastaa - Totuus "haisevasta jäynästä" pehtoorille Farmilla

      Frederik veti ns. herneen nenään ja päätti kostaa pehtoorille. Mitäs mieltä olet Frederikin "aamutoimista"? Lue jutt
      Tv-sarjat
      8
      1845
    4. Ellen Jokikunnas paljastaa kyynelehtien Ralph-pojasta: "Apua..."

      Ellen Jokikunnaksen ja hänen puolisonsa Jari Raskin perheestä ja taloprojektista Italiassa kertova Unelmia Italiassa -sa
      Suomalaiset julkkikset
      5
      1588
    5. Oho! Vappu Pimiä teki "röyhkeän" teon - Onko sopivaa paljastaa tämä MasterChef-sarjasta?

      Vappu Pimiä on astunut MasterChef Suomi -keittiöön ja liittynyt ohjelman legendaariseen tuomaristoon Helena Puolakan ja
      Tv-sarjat
      4
      1069
    6. Mun kaikkialta häviäminen

      Ei liity sinuun. Muista se. ❤️ Mua kiusataan enkä mä enää jaksa.
      Ikävä
      71
      914
    7. Kaste tulisi tehdä apostolisella tavalla Ap. t. 2:38 mukaan

      Apostolit eivät kastaneet kolminaisuuden nimellä vaan Jeesuksen alkuperäisen käskyn mukaisesti: Ap. t. 2:38 Niin Pietar
      Kaste
      38
      854
    8. Onko teillä

      minkä tyyppisiä seksifantasioita kaivattunne kanssa?
      Ikävä
      44
      754
    9. Kuhmossa rallit alkoi ennen aikojaan

      Paettiin polliisia törkeästi? Se tuo rallikiima on näemmä saavuttanu paikalliset tommi mäkiset kiljupäissään auton rat
      Kuhmo
      22
      698
    10. Inhottaa ajatus siitä

      Miten monia olet pannut.
      Ikävä
      56
      697
    Aihe