Cara Export dari Excel ke Notepad menggunakan VBA

Image
Seperti yang kita tahu data yang tersimpan di notepad lebih ringan dari pada menyimpan data di excel, memang data di notepad lebih susah untuk dibaca karena tidak ada tabel column dan lainnya. Tapi kita akan mengesampingkan itu yang kita ambil adalah sisi positifnya, sisi positifnya adalah membuat file kita lebih ringan dari sebelumnya untuk itu kita akan backup data yang ada di excel ke dalam file txt atau lebih kita kenal dengan notepad. Sebenarnya ada banyak extension yang bisa kita gunakan tapi mungkin kita perlu install terlebih dulu seperti SQL misalnya, pada umumnya orang tidak tahu platform apa saja yang dapat kita gunakan untuk backup data, untuk itu kita gunakan saja yang sudah ada dari Windows.
  
Tips dan Trick ini hanya untuk pembelajaran saja mungkin kamu bisa implementasikan di fitur lain, misalnya untuk backup data karyawan, data barang, data siswa atau data-data lainnya.
Ok kita lanjut cara membuatnya, silahkan buka excel dan siapkan komponen berikut :

Komponen Keterangan
Data Data yang ingin di backup
Shapes Jumlah 1 insert text "Export"

Contohnya seperti ini:
Selanjutnya masuk di VBA tekan Alt+F11 untuk keyboard PC atau laptop versi lama, atau tekan fn+Alt+F11 untuk laptop versi baru, lalu buat 1 Module dan masukkan code berikut : 

Sub ExportXlsmToTxt()
    Dim myPath As String, myFile As String
    myPath = ThisWorkbook.Path & "\"
    myFile = "BackupData.txt"
    Dim WB As Workbook, newWB As Workbook
    Set WB = ThisWorkbook
    If Sheet1.Range("A2").Value = "" Then
        Exit Sub
    End If
    Application.ScreenUpdating = False
    Set newWB = Workbooks.Add
    WB.ActiveSheet.UsedRange.Copy newWB.Sheets(1).Range("A1")
    With newWB
        Application.DisplayAlerts = False
        .SaveAs Filename:=myPath & myFile, FileFormat:=xlText
        .Close True
        Application.DisplayAlerts = True
    End With
    WB.Save
    Application.ScreenUpdating = True
End Sub
Lalu klik kanan pada Shape Export terus pilih Assign Macro lalu pilih ExportXlsmToTxt klik Ok
Lalu simpan Excel kamu dengan extension .xlsm
Klik Shape Export lalu lihat hasilnya di tempat kamu menyimpan file Excel kamu dengan nama "BackupData.txt".
Jika kesulitan silahkan download file dibawah ini :
Export Data To Notepad example Windows | File Size : 106kb

Download

Jangan lupa Share dan Komen ya.. mungkin saya bisa bantu mengatasi permasalah excel lainnya.

0