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
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.......
Tidak ada komentar:
Posting Komentar