1 2 3 4 5 6 7 8 9 10 11 12 13 14
|
dim monDataAdapter As New monDataSetTableAdapters.maTableTableAdapter
dim monDataTable As New monDataSet.Table_exportDataTable
Private appExcel As New Excel.Application
Dim Classeur As Excel.Workbook = appExcel.Workbooks.Open(Me.TextBox1.Text)
Dim Feuille As Excel.Worksheet = Classeur.ActiveSheet
Dim nbrows As Integer
nbrows = 2
While Feuille.Cells(nbrows, 1).value <> ""
monDataTable.AddmaTableRow(System.Guid.NewGuid, Feuille.Cells(nbrows, 2).value, Feuille.Cells(nbrows, 3).value.ToString.Trim, Feuille.Cells(nbrows, 5).value, Feuille.Cells(nbrows, 7).value, Feuille.Cells(nbrows, 10).value, Feuille.Cells(nbrows, 15).value, Feuille.Cells(nbrows, 18).value, Feuille.Cells(nbrows, 19).value, Feuille.Cells(nbrows, 20).value, Feuille.Cells(nbrows, 21).value, Feuille.Cells(nbrows, 22).value)
nbrows += 1
End While
monDataAdapter.Update(monDataTable)
appExcel.Quit() |
Partager