Membuat Import data

Membuat Import data


Pada kesempatan kali ini saya akan membagikan pada anda salah satu tips yang sangat bermanfaat, tips ini saya ambil dari diskusi grup Iparengan sekaligus sebagai jawaban dari permasalahan yang ditanyakan pada grup tersebut. Bagi anda yang belum bergabung dengan grup facebook Iparengan silahakn joint pada grup tersebut. Okelah kita langsung ketips bahasan "Membuat Import data", Membuat Import data maksudnya mengcopy data dari satu file excel lain kedalam file excel yang sedang aktif, proses ini akan membuat pengetikan database menjadi lebih singkat bahkan bisa dikatakan cepat sekali

Membuat Import data

Sub import_Data()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
FileToOpen = Application.GetOpenFilename(Title:="Silakan pilih file yang diimport", FileFilter:="Excel Files (*.xls*),")
If FileToOpen = False Then
MsgBox "Pilih dulu ya, perintah akan dibatalkan", vbExclamation, "MAAF!"
Exit Sub
Else
Workbooks.Open Filename:=FileToOpen
End If
Set ws1 = ThisWorkbook
Set ws2 = Workbooks.Open(Filename:=FileToOpen)

ws1.Sheets("Hasil").Range("A1:d100").Value = ws2.Sheets("Sumber").Range("A1:d100").Value
ws2.Close

ws1.Activate
Sheet1.Select
MsgBox "Proses Import Berhasil", vbInformation, "iparengan.com"
End Sub

Penjelasan Kode Import data

FileFilter:="Excel Files (*.xls*),") Merupakan file sumber berextensi Xls
Set ws1 = ThisWorkbook Merupakan deklarasi workbook aktif
Set ws2 = Workbooks.Open(Filename:=FileToOpen) Merupakan file workbook sumber yang anda pilih
ws1.Sheets("Hasil").Range("A1:d100").Value Workbook aktif harus ada nama sheet "Hasil" jika tidak ada maka akan error
ws2.Sheets("Sumber").Range("A1:d100").Value Workbook sumber harus ada nama sheet "Sumber" jika tidak ada maka akan error
...Range("A1:d100").Value Area yang diimport adalah kolom A1 sampai D100

Saya minta maaf tidak bisa menjabarkan lebih detail cara Membuat Import data, untuk menebus kesalahan saya ini silahkan anda download Membuat Import data pada link download dibawah ini, sebelumnya silahkan anda joint terlebih dahulu kegrup facebook Iparengan

Demikianlah cara Membuat Import data dengan microsoft excel visua basic for application ( VBA / VBE ), jika ada pertanyaan seputar Microsoft excel silahkan oret oret pada kolom komentar, jika tidak ada respon silahkan gabung atau joint ke grup Excel Iparengan di facebook, semoga bermanfaat dan terimakasih

Share this: