Импорт таблицы Excel в vb.net

Question

У меня есть таблица Excel, которая фактически рассчитывает кредит ... Если мы вводим сумму и нет. лет, он дает нам список всех EMI, которые будут сделаны в ближайшие годы.

Мой босс хочет интегрировать этот лист Excel в форму vb.net .... Как я могу это сделать? Пожалуйста, помогите мне ....

Answer 1

В вашей форме добавить DataGrid "GridControl1" и button "BtnImport_Click:

В кнопке BtnImport_Click добавить этот код

Private Sub BtnImport_Click(sender As Object, e As EventArgs) Handles BtnImport.Click 
    Dim dialog As New OpenFileDialog() 
       dialog.Filter = "Excel files |*.xls;*.xlsx" 
       dialog.InitialDirectory = "C:\" 
       dialog.Title = "Veuillez sélectionner le fichier à importer" 
       'Encrypt the selected file. I'll do this later. :) 
       If dialog.ShowDialog() = DialogResult.OK Then 
        Dim dt As DataTable 
        dt = ImportExceltoDatatable(dialog.FileName) 
        GridControl1.DataSource = dt 
        GridControl1.Visible = True 
        MsgBox(" done ! ", MsgBoxStyle.Information) 
       End If 
    End Sub 

И добавить function в вашем form:

Public Shared Function ImportExceltoDatatable(filepath As String) As DataTable 
       ' string sqlquery= "Select * From [SheetName$] Where YourCondition"; 
       Dim dt As New DataTable 
       Try 
        Dim ds As New DataSet() 
        Dim constring As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & filepath & ";Extended Properties=""Excel 12.0;HDR=YES;""" 
        Dim con As New OleDbConnection(constring & "") 

        con.Open() 

        Dim myTableName = con.GetSchema("Tables").Rows(0)("TABLE_NAME") 
        Dim sqlquery As String = String.Format("SELECT * FROM [{0}]", myTableName) ' "Select * From " & myTableName 
        Dim da As New OleDbDataAdapter(sqlquery, con) 
        da.Fill(ds) 
        dt = ds.Tables(0) 
        Return dt 
       Catch ex As Exception 
        MsgBox(Err.Description, MsgBoxStyle.Critical) 
        Return dt 
       End Try 
      End Function 

Хоп, который поможет вам