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).
Tiedostojen lisääminen?
6
489
Vastaukset
- 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
Kuvat! Dannyyn liitetty Helmi Loukasmäki, 22, on puhjennut naisena kukkaan - Some sekoaa: "Sä..."
Ooo, kaunis aikuinen nainen Helmistä on kasvanut siinä yli 80-vuotiaan Dannyn rinnalla! Katso uudet kuvat: https://ww614631- 513092
Suodatinpussin kastelemalla saa parempaa kahvia
Kokeilin niksiä ja kyllä tämä kahvi on parempaa nyt. Ei lainkaan maistu paperiselta. Huljuttelee hanan alla suppiloa pap1402356Tidätkö nainen
että suoraan sanottuna v.tut.aa että pääsit näin lähelle minua. Ei olisi oikeasti aikaa tähän mutta silti aina välillä o1051966Mikä on kaivattusi etunimi?
Otsikossa siis on kysymys eriteltynä. Vain oikeat vastaukset hyväksytään.771553Onkohan sinulla kaikki hyvin?
Nyt vähän sellainen outo tunne tuli. Sinun asiasi niin ei minulle toki tarvitse kertoa. Kunhan mietin...381197Huikeeta, mahtavaa, ihan mielettömän upeeta
Me ostettiin talo Espanjasta. Tosin saadaan käyttää sitä vain muutama viikko vuodessa kun on monta muutakin ostajaa! M1931125Oho! Arja Koriseva paljastaa TTK:n ekasta suorasta lähetyksestä: "On vähän ärsyttävä yhtälö!"
Upea Arja Koriseva! Tsemppiä haasteelliseen tilanteeseen! Lue lisää: https://www.suomi24.fi/viihde/oho-arja-koriseva-161092En kestä katsoa
Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois871088- 1731086