تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اظهار مربع الاشارة علي الزر mohamedallams 4 136 10-08-22, 12:18 PM
آخر رد: mohamedallams
  سؤال كيفية اظهار reportviewer فى Visual Studio 2019 mohamed2316 2 171 03-08-22, 03:07 AM
آخر رد: mohamed2316
  [سؤال] عايز كود عرض اسماء الجداول من قاعد البيانات الي ليست بوكس حسن الجلب 1 138 23-07-22, 08:53 PM
آخر رد: سعود
  الاستعلام عن اسماء العملاء الذين لم يسددوا اي مبلغ atefkhalf2004 7 811 17-04-22, 02:33 PM
آخر رد: atefkhalf2004
  اسماء الكنترول محمود صالح 3 579 05-02-22, 05:23 PM
آخر رد: asmarsou
  [VB.NET] طريقة اظهار احصائية محمد بوقزاحة 0 497 31-01-22, 01:43 PM
آخر رد: محمد بوقزاحة
  [VB.NET] طريقة اظهار احصائية محمد بوقزاحة 0 479 31-01-22, 01:42 PM
آخر رد: محمد بوقزاحة
  اظهار الفروم محمود صالح 2 413 13-01-22, 04:13 PM
آخر رد: محمود صالح
  اظهار الأبناء بعد إختيار الأباء محمد خيري 2 483 08-12-21, 07:09 PM
آخر رد: محمد خيري
  استعلام يرجع اسماء الاعمدة و نوع البيانات في جدول معين بسام محمدغانم 1 921 23-10-21, 01:35 AM
آخر رد: بسام محمدغانم

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


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