撰寫程式前需要先在Visual Studio中加入Excel參考,加入完成後可以開始進行程式撰寫,以下提供一個產生 Excel 圖表範例程式,程式中會將資料放置 Excel 中的 Sheet2 的頁表中,在 Sheet1 中畫出圖表,程式畫面如下,點選 Button1 按鈕產生 Excel 。

 

程式畫面:

 

 

Visual Studio 中加入 Excel參考

SETP 1.在方案總管點選滑鼠右鍵,選擇加入參考。

 

 

SETP 2. 選擇 Microsoft.Office.Interop.Excel 點選確定按鈕

 

 

程式:

 

Imports Microsoft.Office.Interop

 

Public Class Form1

 

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       Dim app As New Excel.Application

       Dim book As Excel.Workbook

       Dim sheet As Excel.Worksheet

       Dim range As Excel.Range

 

       app.DisplayAlerts = False

       app.Visible = False

 

       '建立一個新的 Workbooks

       book = app.Workbooks.Add

 

       '將資料放置 Excel 中的 Excel

       sheet = book.Sheets(2)

       sheet.Cells(1, 1).Value = "天數"

       sheet.Cells(1, 2).Value = "人數"

       For i As Integer = 1 To 10

           sheet.Cells(i + 1, 1).Value = i

           sheet.Cells(i + 1, 2).Value = i * 10

       Next

 

       '建立圖表

       Dim chart As Excel.Chart

       Dim myChart As Excel.ChartObject

 

       myChart = book.Sheets(1).ChartObjects.Add(10, 10, 400, 300)

       chart = myChart.Chart

 

       '設定 Y 軸資料

       range = book.Sheets(2).Range("B1", "B11")

       chart.SetSourceData(Source:=range)

 

       '設定 X 軸

       chart.SeriesCollection(1).XValues = "=Sheet2!$A$2:$A$11"

 

       'Chart Type 設為折線圖

       chart.ChartType = Excel.XlChartType.xlLine

 

       '另存檔案到程式目錄中的 test.xlsx

       book.SaveAs(Application.StartupPath & "\test.xlsx")

       book.Close()

   End Sub

End Class

 

Excel 輸出圖表

 

Sheet2 資料:

 

創作者介紹
創作者 iammic 的頭像
iammic

簡單過生活

iammic 發表在 痞客邦 留言(0) 人氣()