تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اريد مثال للتعامل مع الاكسيل عن طريق الادو دوت نت
#1
السلام عليكم
اريد مثال للتعامل مع الاكسيل عن طريق الادو دوت نت

هل يمكن  استدعاء  البيانات  من  ملف اكسل للعمود A  لعدد صفوف  محدد  مثلا من  الصف  5  الي الصف  10  

وياريت  اذا تواجد مثال يشمل  جميع العمليات  استدعاء واضافه وتعديل وحذف  البيانات

بارك الله  فيكم اخواني  
الرد }}}}
تم الشكر بواسطة:
#2

السلام عليكم ورحمة الله

هذا أبسط مثال لقراءة خلية محددة

أضف المرجع Microsoft Excel xx.x Object Library حسب رقم الإصدار المتوفر لديك
PHP كود :
Private Sub Button1_Click(ByVal sender As ObjectByVal e As EventArgsHandles Button1.Click
    Dim excelFilename 
As String "C:\Users\Microsoft\Desktop\Book1.xlsx"
    
Dim xlsApp As New Excel.Application
    Dim xlsWorkBook 
As Excel.Workbook
    Dim xlsWorkSheet 
As Excel.Worksheet
    xlsWorkBook 
xlsApp.Workbooks.Open(excelFilename' فتح الملف '
    
xlsWorkSheet xlsWorkBook.Worksheets(1' رقم الورقة '
    '-----------------------------'
    
xlsApp.Visible True ' إظهار برنامج الإكسل '

    
Dim xlsRange As Excel.Range

    
' طريقة عنوان الخلية '
    
xlsRange xlsWorkSheet.Range("A1")
    
MsgBox("xlsWorkSheet.Range(""A1"")= " xlsRange.Text)

    
' طريقة الإحداثيات '
    
xlsRange xlsWorkSheet.Cells(11' الإحداثيات تبدأ بالرقم واحد وليس صفر '
    
MsgBox("xlsWorkSheet.Cells(1, 1)= " xlsRange.Text)

    
xlsRange Nothing

    
'-----------------------------'
    
xlsWorkSheet Nothing
    xlsWorkBook 
Nothing
    xlsApp
.Quit() ' إغلاق الملف '
    
xlsApp Nothing
End Sub 

الرد }}}}
تم الشكر بواسطة:
#3
جزاك الله خيرا اخي
هل يمكن التعامل مع الاكسيل مثل ما بنتعامل مع الاكسس في الادو دوت نت ؟؟
الرد }}}}
تم الشكر بواسطة:
#4

السلام عليكم ورحمة الله

للتعامل مع ملفات الاكسل كقاعدة بيانات:
1: إضافة الخاصية (Extended Properties) في جملة الاتصال
2: الجداول هي ورقات الإكسل، مع ملاحظة إضافة الرمز $ في نهاية اسم الجدول فقط
3: أسماء الأعمدة هي خلايا السطر الأول
4: البيانات تبدأ من السطر الثاني وما بعده

وهذا مثال
PHP كود :
Imports System.Data.OleDb

Public Class Form1

    
'xls - Excel 2003
    '
Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 4.0;Data Source= Book1.xls;")

    
''xlsx Excel 2007+
    
Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source= Book1.xlsx; ")


    Private 
Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles Button1.Click
        
Try
            
Using da As New OleDbDataAdapter("SELECT * FROM [ورقة1$] "conn)

                
Dim dt As New DataTable
                da
.Fill(dt)

                
Me.DataGridView1.DataSource dt

            End Using
        
Catch ex As Exception
            MsgBox
(ex.Message)
        
End Try
    
End Sub

End 
Class 

الرد }}}}
تم الشكر بواسطة:
#5
جزاك الله خيرا اخي ..
استخدمت كودك في المشاركة الاولي وتم تنفيذ المطلوب
بارك الله فيك
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مثال عن نسخ جدول من مستند وورد لمستند وورد آخر omran.a 3 48 05-12-16, 03:53 PM
آخر رد: sendbad100
  [VB.NET] اريد كود للبرنامج التالي بطريقة general procedures a_abdullah 2 58 05-12-16, 02:18 PM
آخر رد: a_abdullah
  [سؤال] كود البحث عن طريق اسم naden 1 74 28-11-16, 02:05 PM
آخر رد: Adrees
  sms كيف أرسل عن طريق برنامجي adel27 6 124 22-11-16, 09:17 PM
آخر رد: adel27
  [VB.NET] ربط الداتا بيز بالكريستال ريبورت عن طريق الكود thevirus 3 99 22-11-16, 02:38 PM
آخر رد: thevirus
  الاخوة الاعزاء ابحث عن مثال للتنبيه بقرب انتهاء تاريخ بشرط ان احدد المدة trfa8899 4 132 21-11-16, 11:00 AM
آخر رد: trfa8899
  استدعاء داتا من الداتا بيز عن طريق المعالج araxis 14 297 15-11-16, 07:17 AM
آخر رد: araxis
  [سؤال] هل يمكن عرض عناصر الكومبوبوكس عن طريق الكود ؟؟؟؟؟؟؟؟؟؟؟؟ thevirus 1 100 10-11-16, 06:25 PM
آخر رد: أبو عمر
  اريد post لي جهاز ubnt .... خبراء sharo.azad 1 61 05-11-16, 06:58 PM
آخر رد: sharo.azad
  [VB.NET] اريد إضافة صورة للموظف في جدول أخر بنفس قاعدة البيانات أبووسم 8 275 05-11-16, 12:00 PM
آخر رد: Adrees

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


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