• Home
 · 
• Windows API Call/Explanation
 · 
• Get Data From Excel To Visual Basic.

Get Data From Excel To Visual Basic.

Get Data From Excel To Visual Basic.

Rate Get Data From Excel To Visual Basic.

• 1
• 2
• 3
• 4
• 5

(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