+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اريد مثال للتعامل مع الاكسيل عن طريق الادو دوت نت (/showthread.php?tid=10625)
اريد مثال للتعامل مع الاكسيل عن طريق الادو دوت نت - العالمي - 08-11-14
السلام عليكم
اريد مثال للتعامل مع الاكسيل عن طريق الادو دوت نت
هل يمكن استدعاء البيانات من ملف اكسل للعمود A لعدد صفوف محدد مثلا من الصف 5 الي الصف 10
وياريت اذا تواجد مثال يشمل جميع العمليات استدعاء واضافه وتعديل وحذف البيانات
بارك الله فيكم اخواني
RE: اريد مثال للتعامل مع الاكسيل عن طريق الادو دوت نت - الوليد ☺ - 08-11-14
السلام عليكم ورحمة الله
هذا أبسط مثال لقراءة خلية محددة
أضف المرجع 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
RE: اريد مثال للتعامل مع الاكسيل عن طريق الادو دوت نت - العالمي - 08-11-14
جزاك الله خيرا اخي
هل يمكن التعامل مع الاكسيل مثل ما بنتعامل مع الاكسس في الادو دوت نت ؟؟
RE: اريد مثال للتعامل مع الاكسيل عن طريق الادو دوت نت - الوليد ☺ - 08-11-14
السلام عليكم ورحمة الله
للتعامل مع ملفات الاكسل كقاعدة بيانات:
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
RE: اريد مثال للتعامل مع الاكسيل عن طريق الادو دوت نت - العالمي - 10-11-14
جزاك الله خيرا اخي ..
استخدمت كودك في المشاركة الاولي وتم تنفيذ المطلوب
بارك الله فيك