Avatar billede kgndksv Juniormester
12. september 2009 - 23:21 Der er 6 kommentarer og
1 løsning

kan få info om oprettelses tid for en ekstern fil i excel?

Kan det lade sig gøre at få info ind i excel i en celle om en ekstern fil eksempel sidste gemte tid for en txt fil? og så få det skrevet i ekx. A1
Avatar billede nissen2630 Novice
12. september 2009 - 23:37 #1
Læs denne:
http://www.bigresource.com/VB-VBA-to-Read-Modified-Date-of-txt-file-upTcxQhjOB.html

Du skal lidt ned af siden så står der noget kode.

ps.: Har ikke selv EXCEL til at teste det på :-(
Avatar billede tjacob Juniormester
13. september 2009 - 14:13 #2
Ja, men det er en smule besværligt. Da der ikke findes en indbygget funktion til dette er du nødt til selv at lave den. Den laves med FileSystemObject som er nævnt i #1's link.
Sådan gør du:

Jeg kører Office 2007. Hvis du kører en anden version er det muligvis lidt anderledes.

1. Gå ind i Visual Basic -indsæt et modul.

2. FileSystemObject er en del af Microsoft Scripting Runtime biblioteket, og dette er IKKE pr standard en del af VBA. Derfor skal det evt. tilføjes, sådan:
Gå ind i menuen Tools, og vælg punktet References...
I rullelisten finder du punktet Microsoft Scripting Runtime, og vinger det af. Klik OK.

3. Gå ind i modulet og tilføj følgende:

Public Function FilOprettet(ByVal sPath As String) As Date

    Dim fs As FileSystemObject
    Set fs = New FileSystemObject
    Dim f As File
    Set f = fs.GetFile(sPath)
    Dim d As Date
    d = f.DateCreated
    FilOprettet = d

End Function


4. I selve regnearket:
Hvis vi antager at du har den fulde sti til en fil i A1:
i A2 skriver du: =FilOprettet(A1) -cellen skal formateres som Klokkeslet (evt. med dato).

Håber det er forståeligt, ellers spørg....
Avatar billede tjacob Juniormester
13. september 2009 - 14:21 #3
Nu jeg nærlæser dit spørgsmål, må jeg lige uddybe:

Den nævnte funtion giver det tidspunkt filen blev oprettet. Der er flere muligheder:

I funktionen kan linien: d = f.DateCreated erstattes med:

d = f.DateLastAccessed (tidspunkt hvor filen sidst blev åbnet)
d = DateLastModified (tidspunkt hvor filen sidst blev ændret)
Avatar billede tjacob Juniormester
13. september 2009 - 14:26 #4
endnu en rettelse, sidste linie skulle naturligvis være:
d = f.DateLastModified (tidspunkt hvor filen sidst blev ændret)
Avatar billede tjacob Juniormester
22. september 2009 - 18:27 #5
Hvad så kgndksv?
Hvis ikke du kunne bruge mine tips så tag points selv.
Avatar billede kgndksv Juniormester
12. oktober 2009 - 16:29 #6
Det beklager jeg tjacob - Send svar - Dine tips er som altid løsningen på problemet :-)
Avatar billede tjacob Juniormester
12. oktober 2009 - 16:36 #7
OK, -svar
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester