منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - اظهار اسماء الورقات في ملف الاكسيل

السلام عليكم
اريد عندما اجلب بيانات من ملف اكسيل ان يظهر لي اسماء ورقات العمل في المصنف في كومبو بوكس
مثلا ورقة 1 و ورقة 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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

المتألق9

ابراهيم ايبو