[العالمي]

السلام عليكم
اريد مثال للتعامل مع الاكسيل عن طريق الادو دوت نت

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

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

بارك الله  فيكم اخواني  

[الوليد ☺]

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

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

أضف المرجع Microsoft Excel xx.x Object Library حسب رقم الإصدار المتوفر لديك

PHP كود :

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles 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(1, 1) ' الإحداثيات تبدأ بالرقم واحد وليس صفر '
    MsgBox("xlsWorkSheet.Cells(1, 1)= " & xlsRange.Text)

    xlsRange = Nothing

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


[العالمي]

جزاك الله خيرا اخي
هل يمكن التعامل مع الاكسيل مثل ما بنتعامل مع الاكسس في الادو دوت نت ؟؟

[الوليد ☺]

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

للتعامل مع ملفات الاكسل كقاعدة بيانات:
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.Object, e As System.EventArgs) Handles 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 


[العالمي]

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