قراءة بيانات جدول من Excel Sheet - نسخة قابلة للطباعة

PHP كود :
Public Function ReadExcelIntoDataset(ByVal file As String, ByVal Dgrview As DataGridView) As Data.DataSet

        If Not IO.File.Exists(file) Then
            MsgBox("The file provided doesn't exist. Please check the name and try again")
        Else
            Try

                Dim sOleDbString As New String("SELECT * FROM [SheetName$]")
                Dim cnExcel As New Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0; data source='" & _
                file & " '; " & "Extended Properties=Excel 8.0;")
                cmdExcel = New System.Data.OleDb.OleDbDataAdapter(sOleDbString, cnExcel)

                Try

                    dsExcel.Clear()
                    cmdExcel.Fill(dsExcel)
                    Dim dv As DataView
                    dv = dsExcel.Tables(0).DefaultView
                    Dgrview.DataSource = dv

                Catch ex As Exception
                    MsgBox(ex.Message)
                    dsExcel = Nothing

                Finally
                    cnExcel.Close()
                End Try

            Catch ex As Exception
                MsgBox(ex.Message)
                dsExcel = Nothing
            End Try
            Return dsExcel
        End If

    End Function