cara dan kode input excel ke msflexgrid visual basic/ MSFlexgrid (2)

Berikut membuat tabel dgn msflexgrid dan data input dari excel..
peratama buka visual basic..


klik kanan tolbox..componen..seperti sebelumnya ( lihat disini )

Nanti ambil msflexgrid dan commondialog ( untuk open file khususnya excel )
..jika sudah klik " ok" hingga muncul di toolbox vb .
..........setelah itu buat referensinya seperti gbr B diatas..project..reference
pilih microsoft actifx..library..klik ok.

lanjut....

sebelum masuk ke kode..buat terlebih dahulu data pada excel

lalu saveas.misal . Latihan data.xls..dll..di C misalnya.

Contoh dibawah ini

Nanti di dasaveas jika selesai..

kembali ke vb..
buat sebuah modul..add modul

Setelah open modul nya tulis kode berikut ini


( kode bisa copy saja pada bagian bawah halmn ini )

<cttn: jika office nya 2007 ke bawah ganti provider=microsoft.jet.OLEDB.4.0; >

lanjut.......

Nanti terdapat form dan modul pada propertis ( sebelah kanan)
Selanjutnya klik  buka form nya

buat msfkexgrid , command-click 1.dan commondialog1 Sbb:

Command-click1 ubah caption jadi " buka"
Klik 2 kali..isi kode
( kode bisa di Copy bagian bawah }

Setelah itu klik formnya (form.load)
Isi kodenya

Selesai klik " run" cari file excel yg di simpan diatas.

jika mau menambahkan tombol "save"  maka insert juga commabd-click 2..
Juga commondialog2.
Pada commandialog1 diatas untuk membuka..( showopen)
Jika save maka cdialog2 nya (showsave)...bisa liat pada blog yg
satu ini ( link commondialog ).
.......
nanti Di sempurnakan sendiri kofe nya  jika ada kekurangan..buka and cari di google search..atau
microsoft vb

Kode diatas bisa copy saja di bawah ini

modul

Public abcd As ADODB.Connection Public Function bukaExcel(ByVal excelFile As String) As Boolean On Error GoTo errHandle Set abcd = New ADODB.Connection abcd.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" _ & "Data Source=" & Replace(excelFile, Chr$(0), "") & ";" _ & "Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1""" abcd.Open bukaExcel = True Exit Function errHandle: bukaExcel = False End Function


Kode click buka excel
Private Sub Command1_Click() Dim a As ADODB.Recordset Dim b As String Dim c As Long c = 0 With CommonDialog1 .DialogTitle = "Pilih File Excelnya (.xls)" .InitDir = App.Path .Filter = "all files(*.*)|*.*| (*.xlsx)|*.xls" .ShowOpen End With If bukaExcel(CommonDialog1.FileName) Then b = "SELECT * FROM [Sheet1$]" Set a = New ADODB.Recordset a.Open b, abcd If Not a.EOF Then Do While Not a.EOF c = c + 1 MSFlexGrid1.Rows = c + 1 MSFlexGrid1.TextMatrix(c, 0) = c MSFlexGrid1.TextMatrix(c, 1) = a(0).Value MSFlexGrid1.TextMatrix(c, 2) = a(1).Value MSFlexGrid1.TextMatrix(c, 3) = a(2).Value MSFlexGrid1.TextMatrix(c, 4) = a(2) * a(1) a.MoveNext DoEvents Loop End If a.Close Set a = Nothing End If End Sub