Cara Import dari Notepad ke Excel menggunakan VBA

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.

✕

Cara Import dari Notepad ke Excel 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