Bagaimana cara menggunakan fungsi Save As untuk secara otomatis menimpa file yang ada di Excel?
Saat menyimpan buku kerja Excel ke folder baru, Anda akan mendapatkan kotak prompt seperti gambar di bawah ini yang ditampilkan jika ada buku kerja dengan nama yang sama dan terletak di folder. Bagaimana cara otomatis menimpa file yang ada tanpa pesan peringatan cepat? Metode dalam artikel ini dapat membantu Anda.
Simpan sebagai fungsi untuk menimpa file yang ada secara otomatis dengan kode VBA
Simpan sebagai fungsi untuk menimpa file yang ada secara otomatis dengan kode VBA
Jika Anda ingin menyimpan buku kerja dengan nama baru dan secara otomatis menimpa file yang sudah ada di Excel. Silakan lakukan sebagai berikut.
1. Pertama, buat Tombol Perintah untuk memicu fungsi Simpan sebagai di lembar kerja Anda. Silakan klik Pengembang > Menyisipkan > Tombol Perintah (Kontrol X Aktif). Lihat tangkapan layar:
2. Gambarlah Tombol Perintah pada lembar kerja Anda. Kemudian klik kanan dan pilih Lihat kode dari menu konteks
3. Dalam Microsoft Visual Basic untuk Aplikasi jendela, salin kode VBA di bawah ini dan tempelkan di antara Sub Pribadi dan End Sub garis di Kode jendela.
Kode VBA: Simpan sebagai fungsi untuk menimpa file yang ada secara otomatis
Dim xFileName As String
Application.DisplayAlerts = False
If Right(ActiveWorkbook.Name, 4) = "xlsm" Then
xFileName = Application.GetSaveAsFilename(ActiveWorkbook.Name, "Excel Macro-Enabled Workbook (*.xlsm),*.xlsm")
Else
xFileName = Application.GetSaveAsFilename(ActiveWorkbook.Name, "Excel Workbook (*.xlsx),*.xlsx")
End If
If (xFileName <> "") Or (xFileName <> "False") Then
ActiveWorkbook.SaveAs Filename:=xFileName
End If
Application.DisplayAlerts = True
4. tekan lain + Q kunci untuk keluar dari Microsoft Visual Basic untuk Aplikasi jendela. Dan matikan Mode Desain bawah Pengembang Tab.
5. Klik Tombol Perintah, kemudian a Save As kotak dialog muncul, pilih folder untuk menyimpan buku kerja ini, lalu klik Save .
Jika ada buku kerja nama yang sama ada di folder tujuan, itu akan menimpa secara otomatis dengan buku kerja saat ini secara langsung tanpa prompt.
Terkait artikel:
- Bagaimana cara menyimpan lembar kerja sebagai file PDF dan mengirimkannya melalui email sebagai lampiran melalui Outlook?
- Bagaimana cara menyimpan nama file Excel dengan cap waktu?
- 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!