Get Data From Excel To Visual Basic.
Get Data From Excel To Visual Basic.
Rate Get Data From Excel To Visual Basic.
(1(1 Vote))
Dim db As Database
Dim rs As Recordset
Private filepath As String
Private sheetname As String
Private Sub Form_Activate()
DoEvents
filepath = "h:\CIVIL_RAJ\HOMES\vb_raj\test.xls"
sheetname = "Sheet1$"
Set db = OpenDatabase(filepath, False, False, "Excel 8.0;HDR=yes;")
Set rs = db.OpenRecordset(sheetname)
rs.MoveFirst
Screen.MousePointer = 11
While rs.EOF <> True
List1.AddItem rs.Fields("Name") & " " & rs.Fields(1) & " " & rs.Fields(2)
rs.MoveNext
Wend
Screen.MousePointer = 0
End Sub
Get Data From Excel To Visual Basic. Comments
No comments yet — be the first to post one!
Post a Comment