vb 导出excel生成图表统计

Private Sub btnExprot_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExprot.Click
        If Not T Is Nothing Then
            If T.ThreadState = ThreadState.Running Then Exit Sub
        End If
        T = New Thread(AddressOf Export)
        T.Start()
    End Sub
 
    Private Sub Export()
        Dim xApp = New Excel.Application
        Dim xBook As Excel.Workbook
        Dim xSheet As New Excel.Worksheet
        Dim charts As Object
        Me.Cursor = Cursors.WaitCursor
        Try
            xBook = xApp.Workbooks.Add(Application.StartupPath & "\Templets\Monthly Short Ship Analysis Report.xlt")
            'one plant site one sheet
            For i As Integer =  To ds.Tables.Count -
                xSheet = xBook.Worksheets(i)
                xSheet.Name = ds.Tables(i).TableName
                xSheet.Activate()
                xSheet.Application.WindowState = Excel.XlWindowState.xlMaximized
                xSheet.Cells.NumberFormatLocal = "@" '數值型轉字符串，防止出現6.54655E+11
                xApp.DisplayAlerts = False
 
                'data
                '------------------------------------------------------------------------------------
                Dim data(ds.Tables(i).Rows.Count + , ) As Object
                Dim j As Integer
                Dim qty As Integer =
                For j =  To ds.Tables(i).Rows.Count -
                    xSheet.Range("A3").Resize(, ).Insert(Shift:=Excel.XlDirection.xlDown)
                    data(j, ) = ds.Tables(i).Rows(j).Item("reason")
                    data(j, ) = ds.Tables(i).Rows(j).Item("qty")
                    data(j, ) = ds.Tables(i).Rows(j).Item("percentage")
                    qty += ds.Tables(i).Rows(j).Item("qty")
                Next
                data(j, ) = "Total:"
                data(j, ) = qty
                data(j, ) = IIf(qty > , "100.00%", "0.00%")
                xSheet.Range("A3").Resize(, ).Delete()
                xSheet.Range("A2").Resize(ds.Tables(i).Rows.Count + , ).Value = data
                '------------------------------------------------------------------------------------
 
                'charts
                '------------------------------------------------------------------------------------
                Dim height As Integer = xSheet.Range("A1").Resize( + ds.Tables(i).Rows.Count, ).Height
                charts = xSheet.ChartObjects.Add(, height, , ).Chart
                charts.SetSourceData(Source:=xSheet.Range("A2").Resize(ds.Tables(i).Rows.Count, ))
                With charts
                    .HasTitle = True
                    .ChartTitle.Characters.Text = ds.Tables(i).TableName + "廠按原因縮數情況表"
                    With .ChartTitle.Font
                        .Name = "新細明體"
                        .Size =
                        .Strikethrough = False
                        .Superscript = False
                        .Subscript = False
                        .OutlineFont = False
                        .Shadow = False
                        .Underline = Excel.XlUnderlineStyle.xlUnderlineStyleNone
                        .ColorIndex =
                        .Background = Excel.Constants.xlAutomatic
                    End With
                    .Axes(Excel.XlAxisType.xlCategory, Excel.XlAxisGroup.xlPrimary).HasTitle = False
                    .Axes(Excel.XlAxisType.xlValue, Excel.XlAxisGroup.xlPrimary).HasTitle = False
                    .HasLegend = False
                    'show the data value
                    .ApplyDataLabels(AutoText:=True, LegendKey:=False, HasLeaderLines:=False, ShowSeriesName:=False, ShowCategoryName:=False, ShowValue:=True, ShowPercentage:=False, ShowBubbleSize:=False)
                    'X Coordinate
                    .Axes(Excel.XlAxisType.xlCategory).TickLabels.AutoScaleFont = True
                    With .Axes(Excel.XlAxisType.xlCategory).TickLabels.Font
                        .Name = "Arial"
                        .FontStyle = "標準"
                        .Size =
                        .Strikethrough = False
                        .Superscript = False
                        .Subscript = False
                        .OutlineFont = False
                        .Shadow = False
                        .Underline = Excel.XlUnderlineStyle.xlUnderlineStyleNone
                        .ColorIndex = Excel.Constants.xlAutomatic
                        .Background = Excel.Constants.xlAutomatic
                    End With
                End With
                '------------------------------------------------------------------------------------
            Next
 
            xApp.Range("A1").Select()
            xApp.Visible = True
            xApp.Caption = "Bogart Report"
            xApp.ActiveWindow.Caption = "Monthly Short Ship Analysis Report"
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        Finally
            xBook = Nothing
            xApp = Nothing
            Me.Cursor = Cursors.Default
        End Try
    End Sub