Excel dosya adını zaman damgasıyla nasıl kaydedilir?

Excel dosyasını mevcut zaman damgasıyla kaydetmeyi denediniz mi? Bu makale, bunu başarmak için bir yöntem gösterecek.

VBA kodu ile Excel dosya adını zaman damgasıyla kaydedin

VBA kodu ile Excel dosya adını zaman damgasıyla kaydedin

Aşağıdaki VBA kodunu çalıştırmak için Excel dosya adını zaman damgasıyla kaydedebilirsiniz. Lütfen şu adımları izleyin.

1. Geçerli zaman damgasına göre isimlendirmeniz gereken çalışma kitabında, lütfen Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına aynı anda basın.

2. Microsoft Visual Basic for Applications penceresinde, lütfen Ekle > Modül seçeneğine tıklayın. Ardından aşağıdaki VBA kodunu Kod penceresine kopyalayın. Ekran görüntüsüne bakın:

VBA kodu: Excel dosya adını zaman damgasıyla kaydetme (dosya adını zaman damgasıyla değiştirme)

Sub SaveAsFilenameWithTimestamp()
'Updated by Extendoffice 20191223
Dim xWb As Workbook
Dim xStrDate As String
Dim xFileName As Variant
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
If xFileName = False Then
Else
  xWb.SaveAs (xFileName)
End If
Application.DisplayAlerts = True
End Sub

3. Kodu çalıştırmak için F5 tuşuna basın. Daha sonra bir Farklı Kaydet iletişim kutusu açılacak ve Dosya adı kutusunda zaman damgasını görebilirsiniz. Lütfen bu dosyayı kaydetmek için bir konum belirtin ve ardından Kaydet düğmesine tıklayın. Ekran görüntüsüne bakın:

Notlar:

1. Yeni oluşturulan Excel dosyası doğrudan mevcut zaman damgası ile kaydedilecektir.

2. Zaten var olan Excel dosyaları için, orijinal dosya adı zaman damgasıyla değiştirilecektir.

Orijinal dosya adını değiştirmek yerine yalnızca zaman damgasını eklemek istiyorsanız, lütfen aşağıdaki VBA kodunu uygulayın.

VBA kodu: Excel dosya adını zaman damgasıyla kaydetme (Orijinal dosya adına zaman damgası ekleme)

Sub AddTimestampToFileName()
'Updated by Extendoffice 20191223
Dim xWb As Workbook
Dim xStr As String
Dim xStrOldName As String
Dim xStrDate As String
Dim xFileName As Variant
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
If xFileName = False Then
Else
  xWb.SaveAs (xFileName)
End If
Application.DisplayAlerts = True
End Sub

Kutools AI ile Excel Sihirini Keşfedin

• Akıllı Yürütme: Hücre işlemleri gerçekleştirin, verileri analiz edin ve grafikler oluşturun—tümü basit komutlarla sürülür.
• Özel Formüller: İş akışlarınızı hızlandırmak için özel formüller oluşturun.
• VBA Kodlama: VBA kodunu kolayca yazın ve uygulayın.
• Formül Yorumlama: Karmaşık formülleri kolayca anlayın.
• Metin Çevirisi: Elektronik tablolarınız içindeki dil engellerini aşın.

Yapay zeka destekli araçlarla Excel yeteneklerinizi geliştirin. Şimdi İndirin ve daha önce hiç olmadığı gibi bir verimlilik deneyimi yaşayın!

İlgili makaleler:

• Bir çalışma sayfasını PDF dosyası olarak nasıl kaydedip Outlook üzerinden e-posta olarak ek olarak gönderirim?
• Excel'de mevcut dosyanın otomatik olarak üzerine yazılmasını sağlamak için Farklı Kaydet işlevini nasıl kullanabilirim?
• Excel'de birden çok/tüm sayfaları ayrı ayrı csv veya metin dosyaları olarak nasıl kaydedebilirim/dışa aktarabilirim?
• Excel'de Kaydet ve Farklı Kaydet seçeneklerini devre dışı bırakmak veya izin vermemek nasıl yapılır?
• Excel'de çalışma kitabı kaydetmeyi devre dışı bırakıp yalnızca farklı kaydetmeye izin vermek nasıl yapılır?