Zaman damgasıyla bir Excel dosya adı nasıl kaydedilir?
Hiç geçerli zaman damgasıyla bir Excel dosyasını kaydetmeyi denediniz mi? Bu makale size bunu başarmanın yöntemini gösterecek.
VBA kodu ile zaman damgası içeren bir Excel dosya adını kaydedin
VBA kodu ile zaman damgası içeren bir Excel dosya adını kaydedin
Zaman damgalı bir Excel dosya adını kaydetmek için aşağıdaki VBA kodunu çalıştırabilirsiniz. Lütfen aşağıdaki işlemleri yapın.
1. Çalışma kitabında güncel zaman damgasına göre adlandırmanız gerekir, lütfen Ara Toplam + F11 anahtarları aynı anda açmak için Uygulamalar için Microsoft Visual Basic penceresi.
2. içinde Uygulamalar için Microsoft Visual Basic pencere, lütfen tıklayın Ekle > modül. Ardından aşağıdaki VBA kodunu Kod pencere. Ekran görüntüsüne bakın:
VBA kodu: Bir Excel dosya adını zaman damgasıyla kaydedin (dosya adını zaman damgasıyla değiştirin)
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. Tuşuna basın. F5 kodu çalıştırmak için anahtar. Sonra bir Farklı Kaydet iletişim kutusu açılır, Dosya adı kutusunda zaman damgasının görüntülendiğini görebilirsiniz. Lütfen bu dosyayı kaydetmek için bir konum belirtin ve ardından İndirim buton. Ekran görüntüsüne bakın:
notlar:
1. Yeni oluşturulan Excel dosyası, doğrudan geçerli zaman damgasının adıyla kaydedilecektir.
2. Zaten var olan Excel dosyası için, orijinal dosya adı zaman damgası ile değiştirilecektir.
Değiştirmek yerine yalnızca zaman damgasını ve ardından orijinal dosya adını eklemek istiyorsanız, lütfen aşağıdaki VBA kodunu uygulayın.
VBA kodu: Bir Excel dosya adını zaman damgasıyla kaydedin (Zaman damgasını ve ardından orijinal dosya adını ekleyin)
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
İlgili Makaleler:
- Bir çalışma sayfasını PDF dosyası olarak kaydetmek ve Outlook üzerinden bir ek olarak e-postayla göndermek nasıl?
- Excel'deki mevcut dosyanın üzerine otomatik olarak yazmak için Farklı Kaydet işlevi nasıl kullanılır?
- Excel'de ayrı csv veya metin dosyalarına nasıl birden çok / tüm sayfa kaydedilir, dışa aktarılır?
- Excel'de Kaydet ve Farklı Kaydet seçeneklerini nasıl devre dışı bırakabilirim veya izin vermeyebilirim?
- Çalışma kitabını kaydetmeyi devre dışı bırakma, ancak yalnızca Excel'deki gibi kaydetmeye izin verme?
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!