saya pernah coba mbak tapi pake vb.net, kalau vb 6 belum pernah. yg pertama
saya pake sistem pembacaan file txt. jadi dari excel saya export jadi tabbed
text ato csv juga bisa baru kemudian dibaca oleh program saya, tinggal
dimasukkan database. yg kedua saya pake langsung baca di excel. ini skripnya :
Imports excel = Microsoft.Office.Interop.Excel
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim xlApp As excel.Application
Dim xlWorkBook As Excel.Workbook
Dim xlWorkSheet As Excel.Worksheet
Dim range As Excel.Range
Dim rCnt As Integer
Dim cCnt As Integer
‘Dim Obj As Object
Dim mystring As String
xlApp = New Excel.ApplicationClass
xlWorkBook = xlApp.Workbooks.Open(”c:\ayusa.xls”)
xlWorkSheet = xlWorkBook.Worksheets(”Sheet1″)
range = xlWorkSheet.UsedRange
For rCnt = 1 To range.Rows.Count
For cCnt = 1 To range.Columns.Count
mystring = xlWorkSheet.Cells(rCnt, 2).value
If mystring.Trim .Length 0 Then
MessageBox.Show(xlWorkSheet.Cells(rCnt, cCnt).value)
End If
Next
Next
xlWorkBook.Close()
xlApp.Quit()
releaseObject(xlApp)
releaseObject(xlWorkBook)
releaseObject(xlWorkSheet)
End Sub
Private Sub releaseObject(ByVal obj As Object)
Try
System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
obj = Nothing
Catch ex As Exception
obj = Nothing
Finally
GC.Collect()
End Try
End Sub
semoga membantu, siapa tau bisa disesuaikan di vb 6
--- On Wed, 2/18/09, Fatma Sari <[email protected]> wrote:
From: Fatma Sari <[email protected]>
Subject: [Programmer-VB] Coding Import Excel 2003 ke Database
To: [email protected]
Date: Wednesday, February 18, 2009, 6:46 PM
Dear All...
Ada yang punya coding VB6 untuk import excel 2003 ke database gak? dari kemarin
dah nyari di google gak dapat2 nih...:(
Ada yang bisa bantu gak?
Thanks before
