撰寫程式前需要先在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 資料：
留言列表
