Cara import data menggunakan excel macro - Import merupakan proses pengambilan data dari workbook pasif kemudian data tersebut dicopy keworkbook yang aktif, jadi dalam import ini melibatkan dua workbook yang berbeda workbook satu admin sebut sebagai workbook aktif dan dan workbook kedua merupakan workbook pasif. Import akan memudahkan anda saat menginput data kedalam excel, dengan menggunakan fungsi import maka anda tidak perlu melakukan proses input data satu persatu

Baca : Cara input data kedlam excel menggunakan macro

Baa : Cara export data menggunakan excel macro

Cara import data menggunakan excel macro

Catatan saat membuat import data, workbook pasif yang admin sebut workbook sumber data, sebaiknya berformat xlsx atau format exel yang tidak mengandung excel macro, hal ini bertujuan menghindari script aktif ada workbook sumber. Untuk memulai membuat import data menggunakan excel macro silahkan ikuti langkah langkah berikut ini

Menyiapkan workbook sumber

Buka excel dan buatlah tabel data secara manual, atau buat tulisan terserah anda dan semau anda karena hanya latihan jadi tidak perlu membutuhkan data yang akurat

Simpan workbook dengan format xlsx, kemudian tutup workbook

Buatlah folder dalam drive D, beri nama folder tersebut "File database Utama"

Cara import data menggunakan excel macro

Menyiapkan workbook aktif

Buka excel lalu simpan dengan format enabled macro, pada workbook aktif anda boleh membua tabel data atau tidak membuat tabel data. Disini saya tidak membuat tabel data dikarenakan nanti tabel data akan otomatis mengikuti tabel data yang ada pada workbook pasif

Buka tab developer > Insert COmmand button ativeX controls, silahkan sesuaikan properties command button sesuai selera anda


Cara import data menggunakan excel macro

Masukan kode macro dibawah ini kedalam event click tombol Command button

Private Sub CommandButton1_Click()()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
FileToOpen = Application.GetOpenFilename(Title:="Silakan pilih file sumber", FileFilter:="Excel Files (*.xls*),")
If FileToOpen = False Then
MsgBox "Anda tidak memilih file sumber dengan benar", vbExclamation, "Error!"
Exit Sub
Else
Workbooks.Open Filename:=FileToOpen
End If
Set ws1 = ThisWorkbook
Set ws2 = Workbooks.Open(Filename:=FileToOpen)
ws1.Sheets("Sheet1").Range("B:M").ClearContents
ws1.Sheets("Sheet1").Range("B:M").Value = ws2.Sheets("Sheet1").Range("B:M").Value
ws2.Close
ws1.Activate
Sheet1.Select
MsgBox "Proses Import Berhasil", vbInformation, "asis10.com"
End Sub

FileFilter:="Excel Files (*.xlsx*),") Merupakan file sumber berextensi Xlsx

Set ws1 = ThisWorkbook Merupakan deklarasi workbook aktif

Set ws2 = Workbooks.Open(Filename:=FileToOpen) Merupakan file workbook sumber yang anda pilih

ws1.Sheets("Sheet1").Range("B:M").Value Nama worksheet workbook aktif adalah Sheet1

ws2.Sheets("Sheet1").Range("B:M").Value Nama worksheet workbook pasif adalah Sheet1

...Range("B:M").Value Area yang diimport adalah kolom B sampai M, silahkan sesuaikan selera anda

Simpan dan saatnya dites

Saat anda menggunakan metode ini maka semua data yang berada di workbook aktif akan dihapus dan diganti dengan data yang ada pada workbook sumber

Demikianlah Cara import data menggunakan excel macro, untuk pembahasan selanjutnya adalah membuat export data menggunakan macro, proses ini kebalikan dari proses import data, semoga bermanfaat
1 comment
Anonymous
Anonymous

script tidak bisa jalan
menghasilkan warna merah di baris paling atas
Private Sub CommandButton1_Click()()

Reply