Bagaimana cara menyimpan nama file Excel dengan cap waktu?
Pernahkah Anda mencoba menyimpan file Excel dengan stempel waktu saat ini? Artikel ini akan menunjukkan kepada Anda metode untuk mencapainya.
Simpan nama file Excel dengan stempel waktu dengan kode VBA
Simpan nama file Excel dengan stempel waktu dengan kode VBA
Anda dapat menjalankan kode VBA di bawah ini untuk menyimpan nama file Excel dengan stempel waktu. Silakan lakukan sebagai berikut.
1. Di buku kerja Anda perlu memberi nama dengan stempel waktu saat ini, silakan tekan lain + F11 tombol secara bersamaan untuk membuka Jendela Microsoft Visual Basic for Applications.
2. Dalam Microsoft Visual Basic untuk Aplikasi jendela, silakan klik Menyisipkan > Modul. Kemudian salin kode VBA di bawah ini ke file Kode jendela. Lihat tangkapan layar:
Kode VBA: Simpan nama file Excel dengan stempel waktu (ganti nama file dengan stempel waktu)
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. tekan F5 kunci untuk menjalankan kode. Kemudian a Save As kotak dialog muncul, Anda dapat melihat cap waktu yang ditampilkan di kotak Nama file. Harap tentukan lokasi untuk menyimpan file ini, dan kemudian klik Save tombol. Lihat tangkapan layar:
Catatan:
1. File Excel yang baru dibuat akan langsung disimpan dengan nama cap waktu saat ini.
2. Untuk file Excel yang sudah ada, nama file asli akan diganti dengan stempel waktu.
Jika Anda hanya ingin menambahkan timestamp diikuti dengan nama file asli alih-alih menggantinya, silakan terapkan kode VBA di bawah ini.
Kode VBA: Simpan nama file Excel dengan stempel waktu (Masukkan stempel waktu diikuti dengan nama file asli)
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
Terkait artikel:
- Bagaimana cara menyimpan lembar kerja sebagai file PDF dan mengirimkannya melalui email sebagai lampiran melalui Outlook?
- Bagaimana cara menggunakan fungsi Save As untuk secara otomatis menimpa file yang ada di Excel?
- Bagaimana cara menyimpan, mengekspor beberapa / semua lembar ke file csv atau teks terpisah di Excel?
- Bagaimana cara menonaktifkan atau tidak mengizinkan opsi Save & Save As di Excel?
- Bagaimana cara menonaktifkan penyimpanan buku kerja tetapi hanya mengizinkan penyimpanan seperti di Excel?
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!