Hoppa till huvudinnehåll

Hämta och infoga den skapade tiden och den senast modifierade tiden i celler

Den här artikeln kommer att prata om sätt att få den skapade tiden och den senast modifierade tiden för aktuell arbetsbokinformation och infoga den skapade tiden och den senaste modifierade tiden för aktuell arbetsbokinformation i celler i Excel.

Få den skapade tiden och den senast modifierade tiden i Excel med kommandot Info

Få den skapade tiden och den senast modifierade tiden i Excel med funktionen Avancerade egenskaper

Infoga den skapade tiden och den senast modifierade tiden i celler i Excel med VBA-kod

Infoga den skapade tiden och den senast modifierade tiden i celler / sidhuvud / sidfot med Kutools för Excel bra idé3


pil blå höger bubbla Få den skapade tiden och den senast modifierade tiden i Excel med kommandot Info

Vi kan ta reda på den exakta skapade tiden och den senast ändrade tiden för aktuell arbetsbok i backstage-vyn i Microsoft Excel 2010/2013.

Klicka på Fil > Info, och i den högra sidan av backstage-vyn visar den Relaterade datum information. Under Relaterade datum titel, den visar den senaste modifierade tiden, skapad tid och senast utskrivna tid. Se följande skärmdump:

-2

 

Notera: Detta sätt är endast tillgängligt i Microsoft Excel 2010/2013. Det är ogiltigt i Excel 2007.


pil blå höger bubblaFå den skapade tiden och den senast modifierade tiden i Excel med funktionen Avancerade egenskaper

Egentligen kan vi få både skapad tid och senast ändrad tid för aktuell arbetsbok i dialogrutan Dokumentegenskaper.
steg 1: Öppna Avancerade egenskaper dialog ruta:

Klicka på i Excel 2007 Office knapp> Förbered > Våra BostäderOch en Dokument egenskaper bar visas under verktygsfältet, klicka Dokument egenskaper > Avancerade egenskaper, se skärmdumpar:

doc-insert-modified-time-3-3
-1
doc-insert-modified-time-4-4

 

I Excel 2010/2013 klickar du på Fil > Info > Våra Bostäder > Avancerade egenskaper.

doc-insert-modified-time-4-4

steg 2: I Avancerade egenskaper i dialogrutan ser du den skapade tiden och den senast ändrade tiden under Statistik-fliken. Se följande skärmdump:

doc-insert-modified-time-4-4


pil blå höger bubbla Infoga den skapade tiden och den senast modifierade tiden i celler i Excel med VBA-kod

Följande VBA-makron hjälper dig att infoga den skapade tiden och den senast ändrade tiden för aktuell arbetsbokinformation i celler direkt.

Infoga både skapad tid och senast modifierad tid i Excel

steg 1: Håll ner ALT + F11 nycklar och det öppnar Microsoft Visual Basic for Applications-fönstret.

steg 2: Klicka på Insert >> Modulernaoch klistra in följande makro i modulfönstret.

VBA-kod: Infoga både skapad tid och senast modifierad tid i Excel

Sub Workbook_Open()
Range("A1").Value = Format(ThisWorkbook.BuiltinDocumentProperties("Creation Date"), "short date")
Range("A2").Value = Format(ThisWorkbook.BuiltinDocumentProperties("Last Save Time"), "short date")
End Sub

steg 3:Tryck på F5 för att köra detta makro. Och sedan kommer det skapade datumet och det senast modifierade datumet att infogas i cell A1 och cell A2 separat.

Anmärkningar: du kan ändra målcellen i VB efter dina behov.

Infoga den senaste modifierade tiden för arbetsboken i Excel

steg 1: Håll ner ALT + F11 nycklar och det öppnar Microsoft Visual Basic for Applications-fönstret.

steg 2: Klicka på Insert >> Modulernaoch klistra in följande makro i modulfönstret.

Public Function ModDate()
ModDate = Format(FileDateTime(ThisWorkbook.FullName), "m/d/yy h:n ampm")
End Function

steg 3: Spara och stäng den här koden och gå tillbaka till kalkylbladet, i en tom cell, ange formeln för = ModDate (), och tryck på ange nyckel. Sedan infogar den senast modifierade tiden i cellen.

-2

Infoga skapad tid för arbetsbok i Excel

steg 1: Håll ner ALT + F11 nycklar och det öppnar Microsoft Visual Basic for Applications-fönstret.

steg 2: Klicka på Insert >> Modulernaoch klistra in följande makro i modulfönstret.

Function CreateDate() As Date
CreateDate = ActiveWorkbook.BuiltinDocumentProperties("Creation Date")
End Function

steg 3: Spara och stäng den här koden, gå tillbaka till kalkylbladet, i en tom cell, ange formeln för = CreateDate (), och tryck på ange key.och det skapade datumet infogas i cellen enligt följande skärmdumpar:

-2

Notera: Om din cell inte har datumformat kan det visa ett konstigt nummer. Formatera bara den här cellen som Datum format visas det som ett vanligt datum.


pil blå höger bubbla Infoga den skapade tiden och den senast modifierade tiden i celler / sidhuvud / sidfot med Kutools för Excel

Får jag presentera dig ett praktiskt verktyg--Kutools för Excel vilket inklusive mer än 300 användbara funktioner kan förbättra din arbetseffektivitet? Med dess Infoga arbetsbokinformation funktion kan du snabbt infoga arbetsbokssökväg, arbetsbok / kalkylbladets namn, användarnamn eller skapad tid och senast modifierade tid i celler eller sidhuvud eller sidfot.

Kutools för Excel, med mer än 300 praktiska funktioner, gör dina jobb enklare. 

Efter gratis installation Kutools för Excel, gör så här:

1. klick Kutools Plus > Arbetsbok > Infoga arbetsbokinformation. Se skärmdump:
doc senast ändra namn2

2. Sedan i Infoga arbetsbokinformation dialogrutan, kontrollera informationen du vill infoga från avsnittet Information och gå sedan till den plats du vill infoga till, du kan välja celler, sidfot (vänster sidfot, mittfot, högra sidfot) eller sidhuvud (vänster sidhuvud, mittrubrik, högra rubriken). Se skärmdump:
doc-inlägg skapad modifierad tid 1

3. klick Okoch informationen du kontrollerar har infogats till den plats du anger.

Tips. Om du vill ha en gratis testversion av funktionen Infoga arbetsbokinformation, gå till gratis nedladdning Kutools för Excel först och sedan tillämpa operationen enligt ovanstående steg.

pil blå höger bubbla Infoga arbetsbokinformation


Bästa kontorsproduktivitetsverktyg

🤖 Kutools AI Aide: Revolutionera dataanalys baserat på: Intelligent utförande   |  Generera kod  |  Skapa anpassade formler  |  Analysera data och generera diagram  |  Anropa Kutools funktioner.
Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50+ Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

Beskrivning


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
Comments (21)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I LOOOOOOOOVE YOU!!!! TKSSSSSSS
This comment was minimized by the moderator on the site
I want to automatically create a space between each customer in excel how do i do this??
This comment was minimized by the moderator on the site
Hi Team, I need your help. I am having an excel file, there i want to find the modified date of a particular cell. Please help me with the coding here, if possible. Thanks in advance.
This comment was minimized by the moderator on the site
I learned why "Last Save Time" was not working for me. I put my function in my .XLA file, and "ThisWorkbook" was referring to the .XLA file itself. Therefore I needed to get Application.ActiveWorkbook (presumably the location of the function call), ending up with: Function DocumentProperty(PropertyName As String) ' 'You can refer to document properties either by index value or by name. The following list shows the available built-in document property names: 'Title Subject Author 'Keywords Comments Template 'Last Author Revision Number Application Name 'Last Print Date Creation Date Last Save Time 'Total Editing Time Number of Pages Number of Words 'Number of Characters Security Category 'Format Manager Company 'Number of Bytes Number of Lines Number of Paragraphs 'Number of Slides Number of Notes Number of Hidden Slides 'Number of Multimedia Clips Hyperlink Base Number of Characters (with spaces) Call Application.Volatile(True) Dim ActiveUserWorkbook On Error Resume Next Set ActiveUserWorkbook = Application.ActiveWorkbook If Err.Number 0 Then DocumentProperty = "!!! Error getting Application.ActiveWorkbook: " & Err.Description Exit Function End If DocumentProperty = ActiveUserWorkbook.BuiltinDocumentProperties(PropertyName) If Err.Number 0 Then DocumentProperty = "!!! Unknown Property Name !!!" Exit Function End If End Function
This comment was minimized by the moderator on the site
I see that "Last Save Time" is only referenced ONCE in the code. I'm using Excel 2010.When I put "Last Save Time" into a function, even with Application.Volatile(true), the value never updates. Then I noticed that the value returned by "Last Save Time" does not appear in the Excel 2010 "Properties" page NOR any of the tabs in the "Advanced Properties" dialog. Could "Last Save Time" be some relic?
This comment was minimized by the moderator on the site
Thanks for the help, but I also had a problem with the cell not updating after a save without having to first close and reopen the workbook. I added the following code to the workbook which refreshes after a save event: Private Sub Workbook_AfterSave(ByVal Success As Boolean) If Success Then ActiveSheet.Calculate End If End Sub That did the trick for me. Hope it helps.
This comment was minimized by the moderator on the site
Could this be modified to display the Created Date of other closed files? I'd like to compare the Created Date of a file on my Desktop to a file on a public web server. I could create the formula to use your functions...CreateDate() of local file to CreateDate() of web file...and alert me to a change. I appreciate your help. Bruce
This comment was minimized by the moderator on the site
very very very very very very very very helpful thanks
This comment was minimized by the moderator on the site
Hiya Love love love this but sadly the date only is appearing in USA and in Australia we have dd/mm/yy I've tired changing it to this format using the "Date" section but have not had any luck. Any ideas?
This comment was minimized by the moderator on the site
Julie - in the VBA code use "dd/mm/yy hh:n" instead. That'll put the date in the "right" order! :lol:
This comment was minimized by the moderator on the site
Hey this was awesome. Is it possible to insert the created date and last modified date of a different workbook? I'm looking to create an index file that tells me when other documents were last updated. Thanks!!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations