Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako shraniti Excelovo ime datoteke s časovnim žigom?

Ali ste kdaj poskusili shraniti datoteko Excel s trenutnim časovnim žigom? Ta članek vam bo pokazal način, kako ga doseči.

Shrani Excelovo ime datoteke s časovnim žigom s kodo VBA


puščica modra desno mehurček Shrani Excelovo ime datoteke s časovnim žigom s kodo VBA


Zaženite lahko spodnjo kodo VBA, da shranite ime datoteke Excel s časovnim žigom. Prosimo, naredite na naslednji način.

1. V delovnem zvezku ga morate poimenovati s trenutnim časovnim žigom, prosimo, pritisnite druga + F11 tipke hkrati odpreti Okno Microsoft Visual Basic za aplikacije.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli. Potem kopirajte spodnjo kodo VBA v Koda okno. Prikaz slike:

VBA koda: shranite Excelovo ime datoteke s časovnim žigom

Sub test()
Dim xWb As Workbook
Dim xStrDate As String
Dim xFileName As String
Dim xFileDlg As FileDialog
Dim i As Variant
Application.DisplayAlerts = False
Set xWb = ActiveWorkbook
xStrDate = Format(Now, "yyyy-mm-dd hh-mm-ss")
If Right(xWb.Name, 4) = "xlsm" Then
  xFileName = Application.GetSaveAsFilename(xStrDate, "Excel Macro-Enabled Workbook (*.xlsm),*.xlsm")
Else
  xFileName = Application.GetSaveAsFilename(xStrDate, "Excel Workbook (*.xlsx),*.xlsx")
End If
  xWb.SaveAs (xFileName)
Application.DisplayAlerts = True
End Sub

3. Pritisnite F5 ključ za zagon kode. Potem a Shrani kot pogovorno okno se prikaže, lahko vidite časovni žig v polju Ime datoteke. Določite lokacijo, na kateri želite shraniti to datoteko, in kliknite Shrani gumb. Prikaz slike:

Opombe:

1. Nova ustvarjena Excelova datoteka bo shranjena z imenom trenutnega časovnega žiga neposredno.

2. Za tiste že obstoječe datoteke Excel se bo izvirno ime datoteke zamenjalo s časovnim žigom.

Če želite samo časovni žig dodati v izvorno ime datoteke, namesto da ga zamenjate, uporabite spodnjo kodo VBA.

VBA koda: Shranite ime datoteke Excel s časovnim žigom (vstavite časovni žig v izvorno ime datoteke)

Sub test()
Dim xWb As Workbook
Dim xStr As String
Dim xStrOldName As String
Dim xStrDate As String
Dim xFileName As String
Dim xFileDlg As FileDialog
Dim i As Variant
Application.DisplayAlerts = False
Set xWb = ActiveWorkbook
xStrOldName = xWb.Name
xStr = Left(xStrOldName, Len(xStrOldName) - 5)
xStrDate = Format(Now, "yyyy-mm-dd hh-mm-ss")
If Right(xStrOldName, 4) = "xlsm" Then
  xFileName = Application.GetSaveAsFilename(xStr & " " & xStrDate, "Excel Macro-Enabled Workbook (*.xlsm),*.xlsm")
Else
  xFileName = Application.GetSaveAsFilename(xStr & " " & xStrDate, "Excel Workbook (*.xlsx),*.xlsx")
End If
  xWb.SaveAs (xFileName)
Application.DisplayAlerts = True
End Sub

puščica modra desno mehurčekSorodni članki:


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Nathan · 1 years ago
    You can't save files with : within the filename, if you change this to nbre = Format(Now, "yyyy-mm-dd hh-mm")
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Dear Nathan,
      The below VBA code can help to add the timestamp within the filename.

      Sub test()
      Dim xWb As Workbook
      Dim xStr As String
      Dim xStrOldName As String
      Dim xStrDate As String
      Dim xFileName As String
      Dim xFileDlg As FileDialog
      Dim i As Variant
      Application.DisplayAlerts = False
      Set xWb = ActiveWorkbook
      xStrOldName = xWb.Name
      xStr = Left(xStrOldName, Len(xStrOldName) - 5)
      xStrDate = Format(Now, "yyyy-mm-dd hh-mm-ss")
      If Right(xStrOldName, 4) = "xlsm" Then
      xFileName = Application.GetSaveAsFilename(xStr & " " & xStrDate, "Excel Macro-Enabled Workbook (*.xlsm),*.xlsm")
      Else
      xFileName = Application.GetSaveAsFilename(xStr & " " & xStrDate, "Excel Workbook (*.xlsx),*.xlsx")
      End If
      xWb.SaveAs (xFileName)
      Application.DisplayAlerts = True
      End Sub
  • To post as a guest, your comment is unpublished.
    ELIAS ARROYO · 1 years ago
    I have this below, which works perfect to save file with date stamp, BUT would not work if change to this to add time-> nbre = Format(Now, "yyyy-mm-dd hh:mm")


    nbre = Format(Now, "yyyy-mm-dd")


    Application.DisplayAlerts = False


    ChDir "T:\Distribution Center"
    ActiveWorkbook.SaveAs Filename:="T:\Distribution Center\2. BACKLOG\DC BACKLOG " + nbre + ".xlsx", FileFormat _
    :=xlOpenXMLWorkbook, WriteResPassword:="****", CreateBackup:=False



    Can you please help what is missning???....

  • To post as a guest, your comment is unpublished.
    Matt · 2 years ago
    Is there a version of this that works for Word documents?