vb.net 基于excel数据生成图表

用vb.net直接将excel内容读取至datatable中，并基于dev chartcontrol控件生成折线图程序示例

Imports System.Windows.Forms.DataVisualization.Charting
Imports Microsoft.Office.Interop.Excel
Imports System.Data.OleDb
Imports DevExpress.XtraCharts

将excel数据读到dataset中

Dim myDataSet As DataSet = New DataSet()

Private Sub data_get()
        Dim data_file As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + "excel文件全路径 + ";Extended Properties='Excel 12.0;HDR=YES;IMEX=1'"
        Dim new_Conn As OleDb.OleDbConnection = New OleDb.OleDbConnection(data_file)
        Dim sheet_name As String = "SELECt * FROM [excel中sheet名$]"
        new_Conn .Open()
        Dim myCommand As OleDb.OleDbDataAdapter = New OleDbDataAdapter(sheet_name, new_Conn )
        myCommand.Fill(myDataSet, "Part")
        new_Conn .Close()        
End Sub

设置chart control，将数据制作为折线图

Private Sub PICTURE_DISPLAY()   
        ChartControl1.Series.Clear()
        Dim new_series As New DevExpress.XtraCharts.Series("数据1", DevExpress.XtraCharts.ViewType.Line)
        new_series .DataSource = myDataSet.Tables(0)
        new_series .ArgumentScaleType = ScaleType.Numerical
        new_series .ValueScaleType = ScaleType.Numerical
        new_series .ArgumentDataMember = "axis_X"  '指定X轴绑定列,列名axis_X
        new_series .ValueDataMembers.AddRange("axis_Y")'指定Y轴绑定列，列名axis_Y
        ChartControl1.Series.Add(new_series)
        new_series .ArgumentScaleType = ScaleType.Auto
        ChartControl1.Legend.AlignmentHorizontal = LegendAlignmentHorizontal.Center
        ChartControl1.Legend.AlignmentVertical = LegendAlignmentVertical.TopOutside
End Sub