فتح ملف إكسل في الفيجوال - نسخة قابلة للطباعة

فتح ملف إكسل في الفيجوال - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116)
+---- الموضوع : فتح ملف إكسل في الفيجوال (/showthread.php?tid=6050)

فتح ملف إكسل في الفيجوال - RaggiTech - 17-10-12

كاتب الموضوع : sniperser

أقدم لكم كود [[العنوان]]

كود :

Option Explicit

Dim db As Database

Dim rs As Recordset

Private filepath As String

Private sheetname As String

Private Sub Form_Activate()

DoEvents

filepath = "D:\SniperSer.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

شكرا لم