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?
Excelimies
6
522
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
Olet toisen kanssa
...ja minä yhä vain sinua kaipaan. Tiedän ettet ole onnellinen siellä. Älä hukkaa aitoa onnea ja rakkautta hukkaan vain2872441- 462143
Immu otti pataan
Olen pettynyt, hänen piti viedä Stagalaa kuin litran mittaa - mutta kuinka kävikään? Voi hemmetti sentään.... Ääääääh!1242090Kuka teistä on paras nainen
A-nainen? J-nainen? K-nainen? M-nainen? S-nainen? Vai kenties joku muu...? 😊731699Osaako joku selittää tätä
Että miksi mulle on joka toinen ventovieras ihminen tyly ainakin ilmeillään ja eleillään?881469Jos me joskus nähtäisiin
niin ei kai sen vielä tarvitsisi merkitä sen enempää? Ja voihan olla ettei kumpikaan enää siinä vaiheessa edes haluaisi1111383- 781324
Persun suusta:"Köyhät on luusereita ja ansaitsevat köyhyyden"
Ministeri Juuston apulainen näin uhoaa. Mitäs siinä. Kyllä on jo tiedetty muutaman vuoden hallitustyön pohjalta että per2301280- 571185
Näetkö feminismin uhkana
Vai mahdollisuutena kun deittailet naisia? Mitä miehet mieltä feminismistä?1851073