تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
فتح ملف إكسل في الفيجوال
#1
كاتب الموضوع : 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
شكرا لم
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية اغلاق أي برنامج من خلال الفيجوال بيسك RaggiTech 0 1,003 17-10-12, 12:51 AM
آخر رد: RaggiTech
  فتح واغلاق الباب الخاص بمحرك السي دي من خلال الفيجوال بيسك RaggiTech 0 532 17-10-12, 12:49 AM
آخر رد: RaggiTech
  فتح ملف أكسيل من خلال الفيجوال بيسك RaggiTech 0 1,649 17-10-12, 12:49 AM
آخر رد: RaggiTech
  عرض فلاش في الفيجوال بيسك 6 RaggiTech 0 543 17-10-12, 12:47 AM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم