[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي الكريم المتألق
الامر نفسه وكأنك تجلب الجداول بالاكسس فقط التغيير يتم في جملة الاتصال
وجلب الاوراق وكأننا نجلب الجداول من الـ 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