تقييم الموضوع :
  • 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
جزاك الله خيرا اخي ..
استخدمت كودك في المشاركة الاولي وتم تنفيذ المطلوب
بارك الله فيك
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Lightbulb للخبراء هل توجد مكتبة او اداة لعمل مثل هذا النموذج عن طريق vb.net ارجو المساعدة Amrjamil 6 67 أمس, 02:19 PM
آخر رد: Amrjamil
  ما الفرق بين اضافة قاعدة البيانات عن طريق الكود و اضافى قاعدة البيانات عن طريق add ne noway 1 46 12-02-17, 08:06 PM
آخر رد: مساعدة
Question [سؤال] اريد حل لهذه المشكلة دعم العربية shwehdi4pc 1 75 11-02-17, 02:35 AM
آخر رد: مساعدة
  اريد كود تنسيق التاريخ bidaya 10 224 06-02-17, 03:08 AM
آخر رد: bidaya
  [VB.NET] الاتصال بقاعدة البيانات عن طريق real Ip engmedomed@gmail.com 1 79 02-02-17, 11:44 PM
آخر رد: nabil.1710
  اريد select check item --- alwasela 4 80 31-01-17, 02:08 AM
آخر رد: محمد كريّم
  اريد طريقة الاتصال المباشر بقاعدة بيانات اكسس abudawoodd 0 72 30-01-17, 02:58 PM
آخر رد: abudawoodd
  [VB.NET] اريد عمل مثل هذا الاتصال 3asfa~mdmra 4 129 29-01-17, 11:08 PM
آخر رد: 3asfa~mdmra
  [سؤال] اريد طريقة لمنع تكرار عناصر listbox riad21 2 76 25-01-17, 04:06 PM
آخر رد: riad21
  عاوز كتاب كل الاكواد الخاصة بالربط عن طريق المعالج araxis 2 141 23-01-17, 02:15 PM
آخر رد: أبووسم

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


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