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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طريق الكتابة على التكست بوكس aftfm 3 34 أمس, 08:47 PM
آخر رد: Fantastico
  [VB.NET] اريد طريقة لتشفير اكواد الفيجوال بيسك طارق سليمان 0 33 24-05-17, 05:14 PM
آخر رد: طارق سليمان
  ارسال بيانات عن طريق الإنترنت أسامة السالمي 7 131 22-05-17, 04:43 PM
آخر رد: Amir_alzubidy
  [VB.NET] اريد حل لموضع تايمر ضمن الاكواد تالية e-coder 5 116 21-05-17, 09:38 PM
آخر رد: Amir_alzubidy
  [سؤال] كود فتح الاوتوكاد عن طريق الفجوال 2008 gharib 3 75 21-05-17, 06:46 PM
آخر رد: gharib
  تصدير المعلمومات الي الاكسيل khaled12345 6 129 21-05-17, 02:45 PM
آخر رد: khaled12345
  ممكن طريقة عمل راديو اذاعات القرآن الكريم عن طريق aassa 5 89 20-05-17, 12:49 AM
آخر رد: alma2
  [VB.NET] اريد وضع مؤقت بدون تايمر داخل هذا الكود + المشروع بالكامل e-coder 0 48 19-05-17, 04:09 PM
آخر رد: e-coder
  استيراد البيانات من الاكسيل salah mansour 1 55 18-05-17, 06:28 AM
آخر رد: khaled12345
  ربط الاجهزة عن طريق ال Bluetooth mohamed haroon 0 33 16-05-17, 03:53 PM
آخر رد: mohamed haroon

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


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