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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كود اظهار رساله في حال وجود الرقم في اكثر من عمود مبرمج صغير 1 6 402 09-01-24, 01:41 AM
آخر رد: Taha Okla
  متغيرات اسماء الملفات atefkhalf2004 1 337 15-11-23, 02:40 PM
آخر رد: atefkhalf2004
Bug [سؤال] قائمة ب اسماء برامج فك تشفير البرامج وقرائة السورسات Aymanr3b 0 285 06-09-23, 12:56 AM
آخر رد: Aymanr3b
  اظهار كرستال ريبورت MOHAMMED ALZWI 0 320 24-08-23, 02:47 PM
آخر رد: MOHAMMED ALZWI
Wink كيفية اظهار قاءمة عند النقر بزر الفأرة الايمن على الداتا قريد فيو في فيجوال 2010 RADOS 1 397 09-08-23, 09:39 PM
آخر رد: أبووسم
  اظهار السعر اسفل الصنف atefkhalf2004 2 397 28-07-23, 03:03 AM
آخر رد: atefkhalf2004
  تغيير اسماء الاسبوع kebboud 1 379 12-07-23, 01:39 AM
آخر رد: Shade0001
  اظهار الاسماء المختلفة من 2 داتا جريد فيو yosif 2 508 14-04-23, 03:50 PM
آخر رد: yosif
  [VB.NET] اريد عرض اسماء الجداول من قاعدة البيانات سكوال سيرفرس alsaab120 4 1,796 23-02-23, 12:37 AM
آخر رد: ابو انس
  [سؤال] اظهار اداة باكورد على فيجوال بيسك 2008؟ ؟ طالب تقنية المعلومات it 1 493 17-02-23, 10:16 PM
آخر رد: asmarsou

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


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