Banyak program yang ditawarkan tanpa melihat dan memahami bahwa instansi / perusahaan yang ditawari telah mencatat data di file excel. Kebanyakan dari mereka terlalu enjoy atau bahkan terlalu takut untuk menulis ulang jutaan data yang mereka punya. Sedangkan data yang ada selama ini menggunakan file excel untuk penyimpanannya.
Beberapa alternatif pun digunakan. Salah satunya dengan menambah fasilitas import data dari excel. Dalam bahasa pemrograman visual basic 6.0 ada beberapa langkah yang bisa kita tempuh.
Masukkan kode pembuatan variable
'Dim xl As New Excel.Application
untuk menampilkan, taruh kode berikut untuk membuka dan menampilkan file excel:
Me.CommonDialog1.ShowOpen
xl.Workbooks.Open Me.CommonDialog1.FileName
Me.ListView1.ListItems.Clear
For i = 1 To 65534
If xl.Workbooks(1).Worksheets(1).Cells(i + 2, 2) <> "" And xl.Workbooks(1).Worksheets(1).Cells(i + 2, 2) <> " " Then
Set sl = Me.ListView1.ListItems.Add(, , xl.Workbooks(1).Worksheets(1).Cells(i + 2, 2))
sl.SubItems(1) = xl.Workbooks(1).Worksheets(1).Cells(i + 2, 4)
Else
Exit For
End If
Next
xl.Quit
Semoga bermanfaat
