Cara Import dari Notepad ke Excel menggunakan VBA

Image
Jika sebelumnya kita membahas tentang Export data dari Excel ke Notepad sekarang kita akan membahas bagaimana cara mengambil data dari Notepad ke Excel atau Import data dari Notepad ke Excel menggunakan VBA. Cara nya hampir sama cuma kita balik saja, data dan komponennya sama dengan sebelumnya, bagi yang belum punya datanya bisa klik disini sekalian belajar cara Export data Excel ke Notepad.

Buat 1 Shape lalu edit text menjadi Import, setelah itu langsung aja kamu masuk ke VBA, caranya sama tekan Alt+F11 untuk keyboard PC atau laptop versi lama, atau tekan fn+Alt+F11. Lalu masukkan code berikut pada Modul
Sub ImportTxtToXlsm()
	Dim wbI As Workbook, wbO As Workbook
    Dim myPath As String, myFile As String
    Dim wsI As Worksheet
    myPath = ThisWorkbook.Path & "\"
    myFile = "BackupData.txt"
    Application.ScreenUpdating = False
    
    Set wbI = ThisWorkbook
    Set wsI = wbI.Sheets("Sheet1")
    Set wbO = Workbooks.Open(myPath & myFile)

    wbO.Sheets(1).Cells.Copy wsI.Cells

    wbO.Close SaveChanges:=False
    Application.ScreenUpdating = True
    Columns("A:E").EntireColumn.AutoFit
    Range("A1").Select
End Sub
lalu klik kanan pada Shape pilih Assign Macro Pilih ImportTxtToXlsm lalu simpan excel dengan extension .xlsm
Jika di klik Shape Import maka code diatas akan mengambil data dari file "BackupData.txt"
Sangat mudah kan?

Jika kesulitan silahkan download file dibawah ini :
Import Data From Notepad example Windows | File Size : 105kb

Download

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

0