Postingan kali ini akan menjelaskan cara Transfer data dari Visual Basic ke Excel. Melalui form Visual Basic kita dapat menentukan ke baris dan kolom mana data tersebut akan ditempatkan di sheet Excel.
Caranya:
1. Buat 2 buah kontrol TextBox dan 1 buah kontrol CommandButton pada form Visual Basic
2. Ubah Properties kontrol tersebut--->Ini bisa terserah anda
1. Buat 2 buah kontrol TextBox dan 1 buah kontrol CommandButton pada form Visual Basic
2. Ubah Properties kontrol tersebut--->Ini bisa terserah anda
Dalam contoh ini propertiesnya sebagai berikut:
- TextBox = T1 dan T2
- CommandButton = CB1 --> Pada Caption ketik Transfer Data Ke Excel
- Hasil pengaturan lihat gambar hasil program (di bagian bawah postingan ini
- Pada Jendela Kode ketikkan kode berikut ini:
Kode:
Dim Transfer As Excel.Application
-------------------------------------------------------
Private Sub CB1_Click()
Transfer.Workbooks.Add
Transfer.Range(T1.Text).Value = T2.Text
Transfer.Visible = True
End Sub
-------------------------------------------------------
Private Sub Form_Load()
Set Transfer = CreateObject("excel.application")
End Sub
-------------------------------------------------------
Private Sub Form_Unload(Cancel As Integer)
Transfer.Quit
End Sub
- Setelah Run Program, maka hasilnya akan seperti ini:
- Kotak pendek (TextBox T1) merupakan tempat mengetikkan baris dan kolom yang akan di tuju di sheet Excel. Sedangkan kotak panjang (TextBox T2) tempat mengetikkan teks.- Data akan berpindah setelah Transfer Data Ke Excel di klik
- Selamat Mencoba.......
Posting Komentar