1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58
|
Private Sub ChargerData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChargerData.Click
appxls = New Microsoft.Office.Interop.Excel.Application
appxls.Visible = False
'config de l'openfiledialog
OpenFichierExcel.FileName = ""
OpenFichierExcel.InitialDirectory = "C:\Users\PC\"
OpenFichierExcel.Filter = "Fichiers Excel (*.xlsx)|*.xlsx"
OpenFichierExcel.FilterIndex = 1
OpenFichierExcel.Title = "ouvrir le fichier de données"
OpenFichierExcel.RestoreDirectory = True
'afficher la boite de dialogue
Dim result As DialogResult = OpenFichierExcel.ShowDialog()
'ouverture de l'application et du classeur
appxls.Visible = False
excelfile = OpenFichierExcel.FileName
book = appxls.Workbooks.Open(excelfile)
'calculer le nombre de lignes
appxls.ActiveSheet.range("A1").select()
Do While appxls.ActiveSheet.cells(nbre_lignes + 1, 1).value <> 0
nbre_lignes = nbre_lignes + 1
Loop
ReDim dates(nbre_lignes)
ReDim valeurs(nbre_lignes)
CreateDataSet()
LBL_charge_data.Text = excelfile
LBL_charge_data.Visible = True
Dim newrow1 As DataRow
For i = 1 To nbre_lignes
newrow1 = dt.NewRow
newrow1(0) = appxls.ActiveSheet.cells(i, 1).value
newrow1(1) = appxls.ActiveSheet.cells(i, 2).value
dt.Rows.Add(newrow1)
dates(i) = appxls.ActiveSheet.cells(i, 1).value
valeurs(i) = appxls.ActiveSheet.cells(i, 2).value
Next
'Quitter Excel et fermeture fichier
book.Close(True, , )
appxls.Quit()
book = Nothing
appxls = Nothing
End Sub |
Partager