تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اظهار اسماء الورقات في ملف الاكسيل
#1
السلام عليكم
اريد عندما اجلب بيانات من ملف اكسيل ان يظهر لي اسماء ورقات العمل في المصنف في كومبو بوكس 
مثلا ورقة 1 و ورقة 2 وهكذا لكي اختار اي بيانات من اي ورقة اريد اظهارها وشكرا
الرد
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5
#2
السلام عليكم ورحمة الله وبركاته
اخي الكريم المتألق
الامر نفسه وكأنك تجلب الجداول بالاكسس فقط التغيير يتم في جملة الاتصال
وجلب الاوراق وكأننا نجلب الجداول من الـ Schema عبر حلقة فور وفي كل مرة نملا الكومبو بوكس ولاتنس جلب مجال الاسماء

كود :
Imports System.Data.OleDb
هذا الصب 

كود :
 'Sheets  جملة الاتصال بملف الاكسل وجلب ال  
   Public Sub connectionExel()
       Try
           Dim connectionString As String
           Dim mytb As New DataTable()
           connectionString = String.Format("provider=microsoft.ACE.oledb.12.0;Data source=Personal.xlsx;Extended Properties=Excel 12.0;")
           ListBox1.Items.Clear()
ComboBox1.Items.Clear()
           Dim Con As New OleDbConnection(connectionString)
           Con.Open()
           mytb = Con.GetSchema("Tables")
           For i As Integer = 0 To mytb.Rows.Count - 1

               ComboBox1.Items.Add(mytb.Rows(i).Item("TABLE_NAME")) ' الاظهار في كومبوبوكس
               ListBox1.Items.Add(mytb.Rows(i).Item("TABLE_NAME")) ' الاظهار في ليست بوكس
               'ListBox1.Items.Add((mytb.Rows(i).Item("TABLE_NAME")).replace("$", "")) ' او هذا السطر ان كنت لاترغب باظهار اشارة الدولار
           Next
           Con.Close()
       Catch ex As OleDb.OleDbException
       End Try
   End Sub

وهنا ننادي عليه اما في الفورم لود او في بوتون
كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       connectionExel()
   End Sub
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة: asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اظهار الفروم محمود صالح 2 99 13-01-22, 04:13 PM
آخر رد: محمود صالح
  اظهار الأبناء بعد إختيار الأباء محمد خيري 2 189 08-12-21, 07:09 PM
آخر رد: محمد خيري
  استعلام يرجع اسماء الاعمدة و نوع البيانات في جدول معين بسام محمدغانم 1 453 23-10-21, 01:35 AM
آخر رد: بسام محمدغانم
  كيفية اظهار رسالة داخل الفيجوال بيزيك واختفائها تلقائياَ بعد فترة ابو نور الهدى 1 407 15-10-21, 06:47 PM
آخر رد: asemshahen5
  [سؤال] اريد اظهار تلميحات الخلية في الداتا جريد فيو اثناء الكتابة فيها alfaiz678 3 758 01-09-21, 02:52 PM
آخر رد: alfaiz678
  اظهار اسم اليوم aftfm 5 582 17-08-21, 06:10 PM
آخر رد: ابراهيم ايبو
  ممكن طريقة نقل اسماء من datagridview الي اكثر من textbox العطر الرايق 1 736 27-07-21, 03:59 AM
آخر رد: aldery
  [سؤال] اظهار داتا جريد فيو منبثق من داتا جريد فيو خالد20 10 1,312 17-06-21, 02:55 AM
آخر رد: خالد20
  [سؤال] اظهار قائمة منسدلة تحت تيكست بوكس خالد20 3 853 09-06-21, 02:18 AM
آخر رد: خالد20
  لم اجد مكتبة الاكسيل في المراجع داخل الفيجوال بيسك 2019 Alanwalker 2 604 05-06-21, 08:27 PM
آخر رد: Alanwalker

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


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