Cara Export dari Excel ke Notepad menggunakan VBA

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.

✕

Cara Export dari Excel ke Notepad menggunakan VBA

Harga : *Free Ongkir, dikirim melalui Whatsapp

BCA - 3220 341 185 BRI - 508 601 032 577 535 BUKOPIN - 5101 001 476 DANA OVO Paypal

Pesan via whatsapp Pesan via Email

Tags

Excel Trick

VBA

Previous article

Next Post

Next article

Previous Post