كيفية الوصول الي جدول بيانات اكسيل من خلال كود الفيجول بيسك باستخدام DAO

فائدة

كيفية الوصول الي جدول بيانات اكسيل من خلال كود الفيجول بيسك باستخدام DAO

بباسطة اضف اداة LISTBOX الي فورم واكتب الكود التالي

Option Explicit

Private Sub Command1_Click()
Dim Db As Database
Dim Rs As Recordset
Dim filepath As String
Dim sheetname As String

DoEvents
filepath = "C:My Documentsbook1.xls"
sheetname = "Sheet1$"
Set Db = OpenDatabase(filepath, False, False, "Excel 8.0;HDR=yes;")
Set Rs = Db.OpenRecordset(sheetname)
Rs.MoveFirst
While Not Rs.EOF
  List1.AddItem Rs.Fields(0) & "  " & Rs.Fields(1) & "  " & Rs.Fields(2)
Wend

End Sub