Kumpulan VBA Excel Untuk Menyimpan File Baru (Save As)

Updated: 31 Jan, 2025 • 0 • min read

Table of Contents

Microsoft Excel adalah salah satu aplikasi pengolah data yang paling populer digunakan. Dalam beberapa kasus, kita memerlukan kemampuan untuk menyimpan file Excel dengan nama yang berbeda atau dalam format yang berbeda. Dalam artikel ini, kita akan membahas cara save as file Excel dengan menggunakan VBA (Visual Basic for Applications)

VBA Excel Menyimpan File Dengan Nama File dan Penyimpanan Berbeda

Metode SaveAs adalah metode yang paling umum digunakan untuk menyimpan file Excel dengan nama yang berbeda atau dalam format yang berbeda. Berikut adalah contoh kode VBA yang menggunakan metode SaveAs:

Sub SaveAsFile()
    ' ExcelIndonesia.net
    Dim filePath As String
    Dim fileName As String

    ' Tentukan path dan nama file
    filePath = "C:\Users\Username\Documents\"
    fileName = "FileExcelBaru.xlsx"
 
    ' Simpan file dengan nama yang berbeda
    ThisWorkbook.SaveAs filePath & fileName
End Sub

Dalam contoh di atas, kita menggunakan metode SaveAs untuk menyimpan file Excel dengan nama "FileExcelBaru.xlsx" di path "C:\Users\Username\Documents".

Untuk tulisan "C:\Users\Username\Documents\" bisa dirubah sesuai dengan keinginan penyimpan file Excel nya dan tulisan "FileExcelBaru" untuk merubah nama file Excelnya.

VBA Excel Menyimpan File Dengan Nama Berdasarkan Cell

Berikut kode VBA Excel untuk menyimpan file dengan nama berdasarkan nilai di Cell A1, menyimpan file di lokasi yang sama dengan file aslinya, dan menutup file aslinya tanpa menyimpan perubahan:


Sub SaveAsFile()
    'ExcelIndonesia.net
    Dim namaFile As String

    namaFile = Range("A1").Value
    ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & namaFile & ".xlsx"
    ThisWorkbook.Close False
End Sub

Ganti A1 dengan Cell yang berisi nama file yang akan disimpan. Jika kalian tidak ingin menutup file aslinya bisa hapus tulisan bagian "ThisWorkbook.Close False"

Dalam kode di atas, kita menggunakan metode SaveCopyAs untuk menyimpan file dengan nama yang berdasarkan nilai di sel A1. File disimpan di lokasi yang sama dengan file aslinya, dan ekstensi file adalah .xlsx.

Setelah file disimpan, kita menggunakan metode Close untuk menutup file aslinya tanpa menyimpan perubahan. Argumen False pada metode Close berarti bahwa file tidak akan disimpan sebelum ditutup.

VBA Excel Menyimpan File Dengan Nama Berdasarkan Cell dan Otomatis Membukanya

Untuk membuat hasil save as otomatis dibuka, Anda dapat menambahkan kode berikut setelah kode save as:

Workbooks.Open ThisWorkbook.Path & "\" & namaFile & ".xlsx"

Dengan demikian, kode lengkapnya menjadi:


Sub SaveAsFile()
    'ExcelIndonesia.net
    Dim namaFile As String

    ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & namaFile & ".xlsx"
    Workbooks.Open ThisWorkbook.Path & "\" & namaFile & ".xlsx"
    ThisWorkbook.Close False
End Sub

Ganti A1 dengan Cell yang berisi nama file yang akan disimpan. Jika kalian tidak ingin menutup file aslinya bisa hapus tulisan bagian "ThisWorkbook.Close False"

Dengan kode ini, setelah file disimpan dengan nama yang berdasarkan nilai di sel A1, file tersebut akan otomatis dibuka. Kemudian, file aslinya akan ditutup tanpa menyimpan perubahan.

VBA Excel Menyimpan File Dengan Nama Yang Diisi Secara Otomatis (Nama File Tanggal Sekarang)

Berikut kode VBA Excel untuk menyimpan file dengan nama yang diisi secara otomatis, menyimpan file di lokasi yang sama dengan file aslinya, dan menutup file aslinya tanpa menyimpan perubahan:


Sub SaveAsFile()
    'ExcelIndonesia.net
    Dim namaFile As String

    namaFile = Format(Now, "yyyy-mm-dd_hh-mm-ss") ' nama file otomatis
 
    ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & namaFile & ".xlsx"
    ThisWorkbook.Close False
End Sub

Dalam kode di atas, kita menggunakan fungsi Format untuk mengisi nama file secara otomatis dengan format tanggal dan waktu saat ini.

Kode ini akan menyimpan file dengan nama yang diisi secara otomatis, menyimpan file di lokasi yang sama dengan file aslinya, dan menutup file aslinya tanpa menyimpan perubahan.

VBA Excel Menyimpan File Dengan Nama File Diisi secara Custom (Mendadak)

Berikut kode VBA Excel untuk menyimpan file dengan nama file yang diisi secara custom dan mendadak, menyimpan file di lokasi yang sama dengan file aslinya, dan menutup file aslinya tanpa menyimpan perubahan:


Sub SaveAsFile()
    'ExcelIndonesia.net
    Dim namaFile As String

    namaFile = InputBox("Masukkan nama file", "Nama File")

    ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & namaFile & ".xlsx"
    ThisWorkbook.Close False
End Sub

Dalam kode di atas, kita menggunakan fungsi InputBox untuk meminta pengguna memasukkan nama file yang diinginkan.

Kode ini akan menyimpan file dengan nama file yang diisi secara custom dan mendadak, menyimpan file di lokasi yang sama dengan file aslinya, dan menutup file aslinya tanpa menyimpan perubahan.

Penutup

Dalam artikel ini, kita telah membahas cara save as file Excel dengan menggunakan VBA. Kita dapat menggunakan metode SaveAs untuk menyimpan file Excel dengan nama yang berbeda atau dalam format yang berbeda. VBA Excel ini juga masih dapat di costom sesuai dengan kebutuhan kita. Dengan menggunakan VBA, kita dapat memudahkan pekerjaan kita dan meningkatkan produktivitas.

EXCEL INDONESIA