اظهار اسماء الورقات في ملف الاكسيل

كود :

 '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