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.