1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
|
Set oExcel = Server.CreateObject("Excel.Application")
Set oWrk = oExcel.Workbooks.Open(Server.MapPath("fichier.xls"))
Set oSheet = oWrk.Sheets(2)
Set oChart = oSheet.ChartObjects(4)
oChart.Activate
For Each oSerie In oChart.Chart.SeriesCollection
Select Case LCase(oSerie.Name)
Case "serie1" :
oSerie.Values = oSheet.Range(oSheet.Cells(14, 2), oSheet.Cells(20, 2))
oSerie.XValues = oSheet.Range(oSheet.Cells(14, 1), oSheet.Cells(20, 1))
Case "serie2" :
oSerie.Values = oSheet.Range(oSheet.Cells(14, 3), oSheet.Cells(20, 3))
oSerie.XValues = oSheet.Range(oSheet.Cells(14, 1), oSheet.Cells(20, 1))
Case "serie3" :
oSerie.Values = oWrk.Sheets("VS").Range(oWrk.Sheets("VS").Cells(13, 4), oWrk.Sheets("VS").Cells(19, 4))
oSerie.XValues = oSheet.Range(oSheet.Cells(14, 1), oSheet.Cells(20, 1))
End Select
Next
oWrk.Save
oWrk.Close
oExcel.Quit
Set oExcel = Nothing |
Partager