close
oExcel.ActiveSheet.ChartObjects("圖表 222").Activate()
oExcel.ActiveChart.ChartArea.Select()
oExcel.ActiveChart.SetSourceData(Source:=oSheet.Range("A2:A13,B2:B13"))
oExcel.ActiveChart.SeriesCollection(1).Name = "標題"
全站熱搜