İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Bir Excel faylını vaxt damgası ilə necə saxlamaq olar?

Bir Excel faylını cari vaxt damgası ilə saxlamaq üçün cəhd etdiniz mi? Bu məqalədə onu əldə etmək üçün sizə üsul göstərilir.

Excel faylını VBA kodu ilə vaxt damgası ilə saxlaya bilərsiniz


arrow mavi sağ bubble Excel faylını VBA kodu ilə vaxt damgası ilə saxlaya bilərsiniz


Excel faylını vaxt damgası ilə saxlamaq üçün aşağıdakı VBA kodunu çalıştırabilirsiniz. Xahiş edirik bunu edin.

1. İş kitabında bu işarənin indiki vaxt damgası ilə adlandırılması lazımdır, buraya basın Dayandırmaq + F11 açmaq üçün eyni anda düymələri Proqramlar üçün Microsoft Visual Basic.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərədə basın Taxmaq > Modules. Sonra aşağıdakı VBA kodu kopyalayın Kodu pəncərə. Ekran görüntüsünə baxın:

VBA kodu: Zaman nümunəsi ilə Excel faylını saxlaya bilərsiniz

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. Basın F5 kodunu çalıştırmak üçün düyməsini basın. Sonra a Saxla informasiya qutusu açılırsa, Fayl adı qutusunda göstərilən zaman damgasını görə bilərsiniz. Xahiş edirik bu faylı saxlamaq üçün bir yer belirleyin və sonra da basın Yadda saxla düyməsini basın. Ekran görüntüsünə baxın:

Qeydlər:

1. Yeni yaradılmış Excel faylı birbaşa mövcud vaxt damgası adıyla qeyd olunacaq.

2. Mövcud olan Excel faylları üçün, orijinal fayl adı zaman damgası ilə əvəz olunacaq.

Yalnız zaman dəyişdirmək əvəzinə orijinal fayl adı daxilində vaxt damgası əlavə etmək istəyirsinizsə, aşağıdakı VBA kodunu tətbiq edin.

VBA kodu: Bir Excel faylını vaxt damgası ilə saxlaya bilərsiniz (orijinal fayl adı daxilində vaxt damgasını əlavə edin)

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

arrow mavi sağ bubbleƏlaqəli məqalələr:



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

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?