VC操作Excel之sercies、Trendline

      演示一下如何通過VC操作Excel生成下面這樣的一個圖表，它有兩個系列，每個系列都擁有自己的X軸數據和Y軸數據，同時顯示其線性的漸近線（TrendLine）以及獲取其漸近線公式，因爲在項目當中有時候需要其漸近線公式進行分析。

 

      具體的代碼演示如下：

// 變量的定義 _Application app; Workbooks books; _Workbook book; Worksheets sheets; _Worksheet sheet; Range range; LPDISPATCH lpDisp; COleVariant vResult; _Chart chart; ChartObjects chartobjects; ChartObject chartobject; SeriesCollection serc; Series sercies; ChartTitle charttitle; AxisTitle axistitle; Axis axis; Trendlines trendlines; Trendline trendline; DataLabel dataLabel; Font ft; VARIANT var; CString str; COleVariant covTrue((short)TRUE), covFalse((short)FALSE), covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR); //創建Excel 2003服務器(啓動Excel) if (!app.CreateDispatch("Excel.Application",NULL)) { AfxMessageBox("Create Excel service failure!"); return; } // 設置爲FALSE時，後面的app.Quit();註釋要打開 // 否則EXCEL.EXE進程會一直存在，並且每操作一次就會多開一個進程 app.SetVisible(TRUE); books.AttachDispatch(app.GetWorkbooks(),true); book = books.Add(covOptional); // 添加一個工作簿，這裏沒有open操作，在最後調用SaveCopyAs另存爲 // 得到Worksheets sheets.AttachDispatch(book.GetWorksheets(),true); // 得到Worksheet sheet.AttachDispatch(sheets.GetItem(_variant_t((short)(1)))); // 得到全部Cells range.AttachDispatch(sheet.GetCells(),true); range.SetItem(_variant_t((LONG)1),_variant_t((LONG)1),_variant_t("X1")); range.SetItem(_variant_t((LONG)1),_variant_t((LONG)2),_variant_t("X2")); range.SetItem(_variant_t((LONG)1),_variant_t((LONG)4),_variant_t("Y1")); range.SetItem(_variant_t((LONG)1),_variant_t((LONG)5),_variant_t("Y2")); // 將數據填入Excel表格 for (int i = 0; i < 8; i++) { range.SetItem(_variant_t((LONG)(2+i)),_variant_t((LONG)1),_variant_t((long)(i+1))); range.SetItem(_variant_t((LONG)(2+i)),_variant_t((LONG)2),_variant_t((long)(i+3))); range.SetItem(_variant_t((LONG)(2+i)),_variant_t((LONG)4),_variant_t((long)((i+1)*(i+1)))); range.SetItem(_variant_t((LONG)(2+i)),_variant_t((LONG)5),_variant_t((long)((i+1)*(i+2)))); } // 圖表(chart) /****************************************************************************************************/ double left = 200, top = 160, width = 450, height = 260; lpDisp = sheet.ChartObjects(covOptional); ASSERT(lpDisp); chartobjects.AttachDispatch(lpDisp); chartobject = chartobjects.Add(left, top, width, height); chart.AttachDispatch(chartobject.GetChart()); chart.SetChartType(74); // xlXYScatterLines = 74 var.vt = VT_DISPATCH; // 系列1 A /*********************************************************************************/ serc = chart.SeriesCollection(covOptional); sercies = serc.NewSeries(); lpDisp = sheet.GetRange(_variant_t("A2"), _variant_t("A9")); var.pdispVal = lpDisp; sercies.SetXValues(var); // 設置X軸的數據 lpDisp = sheet.GetRange(_variant_t("D2"), _variant_t("D9")); var.pdispVal = lpDisp; sercies.SetValues(var); // 設置Y軸的數據 sercies.SetName("A"); // 添加趨勢線 trendlines = sercies.Trendlines(covOptional); trendline = trendlines.Add(-4132, covOptional, covOptional, covOptional, covOptional, covOptional, _variant_t((long)1), _variant_t((long)0), covOptional); // xlDataSeriesLinear = -4132 dataLabel = trendline.GetDataLabel(); ft = dataLabel.GetFont(); ft.SetColorIndex(_variant_t((long)5)); // blue str = dataLabel.GetText(); // 獲取趨勢線的公式 // 系列2 B /*********************************************************************************/ serc = chart.SeriesCollection(covOptional); sercies = serc.NewSeries(); lpDisp = sheet.GetRange(_variant_t("B2"), _variant_t("B9")); var.pdispVal = lpDisp; sercies.SetXValues(var); // 設置X軸的數據 lpDisp = sheet.GetRange(_variant_t("E2"), _variant_t("E9")); var.pdispVal = lpDisp; sercies.SetValues(var); // 設置Y軸的數據 sercies.SetName("B"); // 添加趨勢線 trendlines = sercies.Trendlines(covOptional); trendline = trendlines.Add(-4132, covOptional, covOptional, covOptional, covOptional, covOptional, _variant_t((long)1), _variant_t((long)0), covOptional); // xlDataSeriesLinear = -4132 dataLabel = trendline.GetDataLabel(); ft = dataLabel.GetFont(); ft.SetColor(_variant_t((long)0xEE00EE)); str = dataLabel.GetText(); // 獲取趨勢線的公式 chart.Location(2, _variant_t("Sheet1")); chart.SetHasTitle(TRUE); // 設置圖表標題 charttitle = chart.GetChartTitle(); charttitle.SetText("圖表標題"); // 設置X座標軸 axis = chart.Axes(_variant_t((long)1), 1); axis.SetHasTitle(TRUE); // 設置座標軸的標題可見 axistitle = axis.GetAxisTitle(); axistitle.SetText("X軸標題"); // 設置X座標軸的標題文本 // 設置Y座標軸 axis = chart.Axes(_variant_t((long)2), 1); axis.SetHasTitle(TRUE); // 設置座標軸的標題可見 axistitle = axis.GetAxisTitle(); axistitle.SetText("Y軸標題"); // 設置Y座標軸的標題文本 book.SaveCopyAs(_variant_t("E://test.xls")); app.SetDisplayAlerts(false); // 不彈出對話框詢問是否保存 // app.Quit(); // 退出 //釋放對象 range.ReleaseDispatch(); sheet.ReleaseDispatch(); sheets.ReleaseDispatch(); book.ReleaseDispatch(); books.ReleaseDispatch(); app.ReleaseDispatch();