Mengambil data Excel dengan Visual Basic 6

Artikel kali ini saya ingin  membahas hal basi tapi sulit dalam visual basic 6.0. seperti diketahui, program developer vb6 sudah begitu ketinggalan karena microsoft terus mengembangkan visualbasic.net yang berbasis framework. Namun microsoft tetap berkomitmen mensupport vb6 untuk setiap sistem operasi yang diciptakannya. Maka vb 6 tetap bisa digunakan dalam windows 8 yang baru-baru ini dirilis.

Salah satu hal sulit yang dibicarakan adalah bagaimana caranya menggunakan excel untuk vb6 ?. salah satu hal yang dibutuhkan adalah membaca data dari excel untuk bisa diolah di dalam visual basic. Bisa saja disebabkan user kita menerima data dari tim lain berupa data excel, namun kita harus mengolahnya lagi sehingga dapat digunakan ke dalam sistem kita secara terintegrasi.

Misalnya kita telah menyiapkan file excel dengan isi berikut :

Laporan Bulanan
Kode	Nama	Nilai
AB	Abepura	89
KK	Kota Kote	72

Kemudian kita siapkan form vb seperti berikut :

Form Upload File Excel ke VB 6

Keterangan :

Untuk mengawali pembuatan proyek ini, kita perlu menggunakan component dengan menekan CTRL+T, kemudian pilih Microsoft Common Dialog 6.0 dan Microsoft Flex Grid Control 6.0
Kemudian kita juga perlu untuk memasukkan library excel dengan klik Project > Refference
Pilih Microsoft Excel 12.0 untuk pengguna excel 2007.
Berikut atribut komponen yang digunakan.

Command Button –>  Name : cmdambil             Caption : Ambil File Excel

Common Dialog  –> Name    : C

Flexgrid Control : Name : f

Skrip :

————————————————–

General

Dim eksel As Excel.Application

Dim wb As Excel.Workbook

Dim ws As Excel.Worksheet

————————————————–

Private Sub cmdAmbil_Click()

startexcel

‘buka common dialog open

c.DialogTitle = “Membuka File Excel”

c.ShowOpen

nama = c.FileName

Set wb = eksel.Workbooks.Open(nama)

MsgBox “Berhasil Membuka File”

Set ws = eksel.Worksheets(1)

MsgBox “Berhasil membuat worksheet”

Dim I As Integer, baris As Integer, strdata As String

f.Cols = 4

f.Rows = 3

f.TextMatrix(0, 1) = ws.Cells(2, 1)

f.TextMatrix(0, 2) = ws.Cells(2, 2)

f.TextMatrix(0, 3) = ws.Cells(2, 3)

For I = 1 To 2

For J = 1 To 3

f.TextMatrix(I, J) = ws.Cells(I + 2, J)

Next J

Next I

CloseWorksheet

ClearExcelMemory

End Sub

————————————————-

Private Sub CloseWorksheet()

On Error Resume Next

wb.Close

eksel.Quit

End Sub

————————————–

Private Sub ClearExcelMemory()

If Not ws Is Nothing Then Set ws = Nothing

If Not wb Is Nothing Then Set wb = Nothing

If Not eksel Is Nothing Then Set eksel = Nothing

End Sub

————————————————————–

Private Sub startexcel()

On Error GoTo salah

Set eksel = GetObject(, “excel.Application”)

Exit Sub

salah:

Set eksel = CreateObject(“excel.Application”)

End Sub

Silahkan mempelajari skrip ini, akan saya jelaskan lain kali jika ada yang perlu ditanyakan. Ditunggu komentarnya ya,…