منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - اريد مثال للتعامل مع الاكسيل عن طريق الادو دوت نت

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

هل يمكن استدعاء البيانات من ملف اكسل للعمود 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 

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

العالمي

الوليد ☺

العالمي

الوليد ☺

العالمي