用VC Excel绘图.docx

更改给定图表的属性。可用本方法迅速设定图表的格式，而不必逐个设置所有属性。本方法是非交互式的，并且仅修改指定的属性。expression.ChartWizard(Source,Gallery,Format,PlotBy,CategoryLabels,SeriesLabels,HasLegend,Title,CategoryTitle,ValueTitle,ExtraTitle)expression 必需。该表达式返回“应用于”列表中的对象之一。SourceVariant类型，可选。包含新图表的源数据的区域。如果省略本参数，Microsoft Excel 将更改活动图表工作表，或活动工作表中处于选定状态的嵌入图表。GalleryXlChartType类型，可选。图表类型。XlChartType 可为以下 XlChartType 常量之一。xlAreaxlBarxlColumnxlLinexlPiexlRadarxlXYScatterxlCombinationxl3DAreaxl3DBarxl3DColumnxl3DLinexl3Dpiexl3DSurfacexlDoughnutxlDefaultAutoFormatFormatVariant类型，可选。内置自动套用格式的编号。可为从 1 到 10 的数字，其取值依赖于图库类型。如果省略本参数，Microsoft Excel 将依据图库类型和数据源选择默认值。PlotByVariant类型，可选。指定系列中的数据是来自行还是来自列。可为以下XlRowCol常量之一：xlRows或xlColumns。CategoryLabelsVariant类型，可选。表示包含分类标签的源区域内行数或列数的整数。有效取值为从 0（零）至小于相应的分类或系列中最大值的某一数字。SeriesLabelsVariant类型，可选。表示包含系列标志的源区域内行数或列数的整数。有效取值为从 0（零）至小于相应的分类或系列中最大值的某一数字。HasLegendVariant类型，可选。如果为True，则图表将具有图例。TitleVariant类型，可选。图表标题文字。CategoryTitleVariant类型，可选。分类轴标题文字。ValueTitleVariant类型，可选。数值轴标题文字。ExtraTitleVariant类型，可选。三维图表的系列轴标题，或二维图表的第二数值轴标题。说明如果省略Source，并且选定内容不是活动工作表中的嵌入图表或者活动工作表不是当前存在的图表，则该方法失效并产生错误。EXCEL2003中标准图表类型介绍大类编号图表类型中文说明散点图-4169xlXYScatter散点图雷达图-4151xlRadar雷达图圆环图-4120xlDoughnut圆环图饼图-4102xl3DPie三维饼图折线图-4101xl3DLine三维折线图柱形图-4100xl3DColumn三维柱形图面积图-4098xl3DArea三维面积图面积图1xlArea面积图折线图4xlLine折线图饼图5xlPie饼图气泡图15xlBubble气泡图柱形图51xlColumnClustered簇状柱形图柱形图52xlColumnStacked堆积柱形图柱形图53xlColumnStacked100百分比堆积柱形图柱形图54xl3DColumnClustered三维簇状柱形图柱形图55xl3DColumnStacked三维堆积柱形图柱形图56xl3DColumnStacked100三维百分比堆积柱形图条形图57xlBarClustered簇状条形图条形图58xlBarStacked堆积条形图条形图59xlBarStacked100百分比堆积条形图条形图60xl3DBarClustered三维簇状条形图条形图61xl3DBarStacked三维堆积条形图条形图62xl3DBarStacked100三维百分比堆积条形图折线图63xlLineStacked堆积折线图折线图64xlLineStacked100百分比堆积折线图折线图65xlLineMarkers数据点折线图折线图66xlLineMarkersStacked堆积数据点折线图折线图67xlLineMarkersStacked100百分比堆积数据点折线图饼图68xlPieOfPie复合饼图饼图69xlPieExploded分离型饼图饼图70xl3DPieExploded分离型三维饼图饼图71xlBarOfPie复合条饼图散点图72xlXYScatterSmooth平滑线散点图散点图73xlXYScatterSmoothNoMarkers无数据点平滑线散点图散点图74xlXYScatterLines折线散点图散点图75xlXYScatterLinesNoMarkers无数据点折线散点图面积图76xlAreaStacked堆积面积图面积图77xlAreaStacked100百分比堆积面积图面积图78xl3DAreaStacked三维堆积面积图面积图79xl3DAreaStacked100百分比堆积面积图圆环图80xlDoughnutExploded分离型圆环图雷达图81xlRadarMarkers数据点雷达图雷达图82xlRadarFilled填充雷达图曲面图83xlSurface三维曲面图曲面图84xlSurfaceWireframe三维曲面图（框架图）曲面图85xlSurfaceTopView曲面图（俯视图）曲面图86xlSurfaceTopViewWireframe曲面图（俯视框架图）气泡图87xlBubble3DEffect三维气泡图股价图88xlStockHLC盘高-盘低-收盘图股价图89xlStockOHLC开盘-盘高-盘低-收盘图股价图90xlStockVHLC成交量-盘高-盘低-收盘图股价图91xlStockVOHLC成交量-开盘-盘高-盘低-收盘图圆锥图92xlCylinderColClustered簇状柱形圆锥图圆锥图93xlCylinderColStacked堆积柱形圆锥图圆柱图94xlCylinderColStacked100百分比堆积柱形圆柱图圆柱图95xlCylinderBarClustered簇状条形圆柱图圆柱图96xlCylinderBarStacked堆积条形圆柱图圆柱图97xlCylinderBarStacked100百分比堆积条形圆柱图圆柱图98xlCylinderCol三维柱形圆柱图圆锥图99xlConeColClustered簇状柱形圆锥图圆锥图100xlConeColStacked堆积柱形圆锥图圆锥图101xlConeColStacked100百分比堆积柱形圆锥图圆锥图102xlConeBarClustered簇状条形圆锥图圆锥图103xlConeBarStacked堆积条形圆锥图圆锥图104xlConeBarStacked100百分比堆积条形圆锥图圆锥图105xlConeCol三维柱形圆锥图棱锥图106xlPyramidColClustered簇状柱形棱锥图棱锥图107xlPyramidColStacked堆积柱形棱锥图棱锥图108xlPyramidColStacked100百分比堆积柱形棱锥图棱锥图109xlPyramidBarClustered簇状条形棱锥图棱锥图110xlPyramidBarStacked堆积条形棱锥图棱锥图111xlPyramidBarStacked100百分比堆积条形棱锥图棱锥图112xlPyramidCol三维柱形棱锥图Chart.ChartWizard(var, / Source. COleVariant(short)4), / Gallery 4 covOptional, / Format, use default. COleVariant(short)2), / PlotBy xlColumns. COleVariant(short)0), / CategoryLabels. COleVariant(short)1), / SeriesLabels. COleVariant(short)TRUE), / HasLegend. COleVariant(随时间变化曲线), / Title. COleVariant(时间轴), / CategoryTitle. COleVariant(数值), / ValueTitles. covOptional / ExtraTitle. );VC操作Excel之基本操作最近由于工作需要，不得不操作Excel，包括基本的数据输入输出、字体设置、颜色设置、单元格的合并、填充色的设置，当然还包括图表的生成以及渐近线的操作等。折腾了许久，项目终于完成了_。现在将学习操作Excel的点点滴滴记录下来和大家一同分享，也作为自己的一次总结。1、Excel的对象模型（有人称其为层次结构）打开一个Excel工作表，点击“工具”-“宏”-“Visual Basic 编辑器”选项打开VB的编辑器，打开帮助文档，里面“Microsoft Excel Visual Basic 参考”下的“Microsoft Excel 对象模型”展示了完整的Excel的层次结构，是不是有点类似于MFC的继承图表啊？利用帮助文档我们可以找到一些需要的知识，下面介绍一些类： _Application：表示整个的Excel应用程序，包含一个工作簿集合 Workbooks：工作簿集合，包含N个工作簿（Workbook） _Workbook：工作簿，包含一个工作表（sheets）集合 Worksheets：工作表集合，包含N个工作表 _Worksheet：工作表，也就是我们在Excel中看到的Sheet1、Sheet2、Sheet3，它是我们操作Excel的基本单位 Range：这是单元格的集合，我们知道Excel是由一个个的单元格组成的，通过Range来操作单元格 Font：用于设置单元格的字体、颜色、字号、粗体设置 Interior：设置底色 Boards：设置区域内所有单元格的边框，如果要设置一组区域的外边框的话用Rang-BorderAround设置 下面用一个具体的例子来说明怎么通过MFC来操作Excel2、Excel库的插入 在我们MFC的工程中，按Ctrl+W打开MFC类向导对话框，点击“Add Class.”-“From a type Library.”，找到你所使用的excel类型库，我使用的在目录C:/Program Files/Microsoft Office/OFFICE11下的“EXCEL.EXE”文件，查找时文件类型选“All Files”，然后添加我们所需要的类，通常以上列举的前6类是必须的，其它的需要时再添加。我不认为全部添加是一种好的做法，一个我觉得很乱，另外生成的excel.cpp文件会很大。我建议浏览一遍这些类，这样当你做些操作时可以更清楚的知道需要添加哪些类。添加完需要的类后，我们就可以来做一些基本的操作了。3、Com支持库的初始化 通常在App的InitInstance()里面加入初始化和关闭COM库的操作，在DoModal()调用之前加入初始化的代码：cppview plaincopy1. if(CoInitialize(NULL)!=0)2. 3. AfxMessageBox(初始化COM支持库失败!);4. exit(1);5. 在return之前加入CoUninitialize(); 关闭CON库。4、代码演示一些基本的操作 首先别忘了包含头文件“excel.h”，若用到_variant_t()时，需要包含头文件“comdef.h”和“comutil.h”，否则会出现错误：“error C2065: _variant_t : undeclared identifier”。 下面的代码包括了一些基本的操作：cppview plaincopy1. /变量的定义2. _Applicationapp;3. Workbooksbooks;4. _Workbookbook;5. Worksheetssheets;6. _Worksheetsheet;7. Rangerange;8. LPDISPATCHlpDisp;9. COleVariantvResult;10. 11. CStringstr=;12. 13. COleVariant14. covTrue(short)TRUE),15. covFalse(short)FALSE),16. covOptional(long)DISP_E_PARAMNOTFOUND,VT_ERROR);17. 18. /创建Excel2003服务器(启动Excel)19. if(!app.CreateDispatch(Excel.Application,NULL)20. 21. AfxMessageBox(CreateExcelservicefailure!);22. return;23. 24. 25. /设置为FALSE时，后面的app.Quit();注释要打开26. /否则EXCEL.EXE进程会一直存在，并且每操作一次就会多开一个进程27. app.SetVisible(TRUE);28. books.AttachDispatch(app.GetWorkbooks(),true);29. 30. /*31. *打开一个工作簿。32. *Excel2000只需要13个参数就行，Excel2003需要15个参数33. */34. lpDisp=books.Open(E:/test.xls,35. covOptional,covOptional,covOptional,covOptional,36. covOptional,covOptional,covOptional,covOptional,37. covOptional,covOptional,covOptional,covOptional,38. covOptional,covOptional);39. ASSERT(lpDisp);40. 41. book.AttachDispatch(lpDisp);42. 43. /得到Worksheets44. sheets.AttachDispatch(book.GetWorksheets(),true);45. 46. /得到Worksheet47. sheet.AttachDispatch(sheets.GetItem(_variant_t(short)(1);48. 49. /得到全部Cells50. range.AttachDispatch(sheet.GetCells(),true);51. 52. 53. /往单元格A1里写入字符串数据，就像操作矩阵一样，第1行第1列54. range.SetItem(_variant_t(LONG)1),_variant_t(LONG)1),_variant_t(helloword!);55. 56. /往单元格A2里写入时间数据57. range.AttachDispatch(sheet.GetRange(_variant_t(A2),_variant_t(A2),true);58. range.SetValue2(_variant_t(2011/02/15);59. 60. /往单元格A3A6里写入浮点数据61. range.AttachDispatch(sheet.GetRange(_variant_t(A3),_variant_t(A6),true);62. range.SetValue2(_variant_t(double)3.14);63. 64. /设置单元格的列宽为1265. range.AttachDispatch(sheet.GetRange(_variant_t(A1),_variant_t(A1),true);66. range.SetColumnWidth(_variant_t(long)12);67. 68. /所有单元格居中显示69. range.AttachDispatch(sheet.GetCells(),true);70. range.SetHorizontalAlignment(_variant_t(long)-4108);/-4108:居中，-4131:靠左，-4152:靠右71. range.SetVerticalAlignment(_variant_t(long)-4108);/-4108:居中，-4160:靠上，-4107:靠下72. 73. /读取单元格的数据，第4行第1列74. range.AttachDispatch(range.GetItem(_variant_t(long)(4),_variant_t(long)(1).pdispVal);75. vResult=range.GetValue(covOptional);76. 77. switch(vResult.vt)78. 79. caseVT_BSTR:/字符串80. str=vResult.bstrVal;81. break;82. caseVT_R8:/8字节的数字83. str.Format(%f,vResult.dblVal);84. break;85. caseVT_DATE:/时间格式86. SYSTEMTIMEst;87. VariantTimeToSystemTime(vResult.date,&st);88. break;89. caseVT_EMPTY:/单元格空的90. str=;91. break;92. 93. /MessageBox(str);94. 95. Fontft;/要插入excel类库里面的Font类，下面类似96. 97. range.AttachDispatch(sheet.GetRange(_variant_t(A3),_variant_t(A5),true);98. ft.AttachDispatch(range.GetFont();99. ft.SetName(_variant_t(华文行楷);/字体100. ft.SetSize(_variant_t(long)12);/字号101. /ft.SetColorIndex(_variant_t(long)3);/字的颜色:红色102. ft.SetColor(_variant_t(long)RGB(255,0,0);103. ft.SetBold(_variant_t(long)1);/1：粗体，0：非粗体104. 105. Interiorit;/底色设置106. 107. range.AttachDispatch(sheet.GetRange(_variant_t(C3),_variant_t(E6),true);108. it.AttachDispatch(range.GetInterior();109. it.SetColorIndex(_variant_t(long)20);/底色设置为浅青色110. 111. Bordersborders;/先设置区域内所有单元格的边框112. borders=range.GetBorders();113. borders.SetColorIndex(_variant_t(long)1);114. borders.SetLineStyle(_variant_t(long)1);115. borders.SetWeight(_variant_t(long)2);116. 117. /然后设置外边框118. /LineStyle=线型(113)Weight=线宽ColorIndex=线的颜色(-4105为自动,1为黑色)119. range.BorderAround(_variant_t(long)9),_variant_t(long)1),_variant_t(long)1),vtMissing);120. 121. range.AttachDispatch(sheet.GetRange(_variant_t(C8),_variant_t(D9),true);122. /合并单元格123. range.Merge(_variant_t(long)0);124.125. 126. 127. book.Save();/保存Excel的内容128. /app.SetDisplayAlerts(false);/不弹出对话框询问是否保存129. /app.Quit();/退出130. 131. /释放对象132. range.ReleaseDispatch();133. sheet.ReleaseDispatch();134. sheets.ReleaseDispatch();135. book.ReleaseDispatch();136. books.ReleaseDispatch();137. app.ReleaseDispatch();VC利用EXCEL模板实现报表打印第一步：添加包含文件i nclude excel9.h/使用EXCEL类需要包含的头文件i nclude comdef.h /使用EXCEL类需要包含的头文件（注：需要excel9.h和excel9.cpp，可以到网上下载，如没有可联系我）如果是excel 2003 则导入excel.exe类第二步：创建对象_Application ExcelApp;Workbooks wbsMyBooks;_Workbook wbMyBook;Worksheets wssMysheets;_Worksheet wsMysheet;Range rgMyRge;第三步：创建EXCEL服务器/*创建EXCEL服务器*/if (!ExcelApp.CreateDispatch(Excel.Application, NULL)AfxMessageBox(创建EXCEL服务器失败!);return;第四步：利用EXCEL模板创建EXCEL文档/strPath为模板的全路径名wbsMyBooks.AttachDispatch(ExcelApp.GetWorkbooks(), true);trywbMyBook.AttachDispatch(wbsMyBooks.Add(_variant_t(strPath);catch(.)AfxMessageBox(EXCEL模板打开失败，请检查文件是否存在!, MB_OK | MB_ICONSTOP);ExcelApp.Quit();return;第五步：关联对象/*得到Worksheets*/wssMysheets.AttachDispatch(wbMyBook.GetWorksheets(), true);/*得到Worksheet1*/wsMysheet.AttachDispatch(wssMysheets.GetItem(_variant_t(sheet1), true);/*得到全部Cells，此时,rgMyRge是cells的集合*/rgMyRge.AttachDispatch(wsMysheet.GetCells(),true);第六步：设置单元格的值rgMyRge.SetItem(_variant_t(long)1),_variant_t(long)1),_variant_t(姓名); /1*1rgMyRge.SetItem(_variant_t(long)1),_variant_t(long)2),_variant_t(QQ号); /1*2 rgMyRge.SetItem(_variant_t(long)2),_variant_t(long)1),_variant_t(风云在线); rgMyRge.SetItem(_variant_t(long)2),_variant_t(long)2),_variant_t(278800584);第七步：打印预览ExcelApp.SetVisible(true);wbMyBook.PrintPreview(_variant_t(false);第八步：退出EXCEL应用程序/*设置保存标志为已保存，则不会弹出保存模板对话框,实际上并未保存，只是认为的标志保存了，因为这里不需要保存*/wbMyBook.SetSaved(true);/*退出EXCEL应用程序*/ExcelApp.Quit();第九步：释放对象/*释放对象*/rgMyRge.ReleaseDispatch();wsMysheet.ReleaseDispatch();wssMysheets.ReleaseDispatch();wbMyBook.ReleaseDispatch();wbsMyBooks.ReleaseDispatch();ExcelApp.ReleaseDispatch();在VC中彻底玩转Excel 转如今Excel是越来越重要了，在我们自己开发的程序中不免要和Excel打交道了。利用Automation技术，我们可以在不去了解数据库的情况下玩转Excel，而且你会发现一切竟如此轻松！ 好了，咱们开始吧，我不喜欢用长篇累牍的代码来故弄玄虚，所以下面的代码都是切中要害的片段，总体上是个连贯的过程，包括启动Excel，读取数据，写入数据，以及最后的关闭Excel，其中还包括了很多人感兴趣的合并单元格的处理。 特别说明以下代码需要MFC的支持，而且工程中还要包含EXCEL2000的定义文件：EXCEL9.H，EXCEL9.CPP*Workbooks wbsMyBooks; _Workbook wbMyBook;Worksheets wssMysheets; _Worksheet wssMysheet;Range range; Range iCell;LPDISPATCH lpDisp;COleVariant vResult;COleVariant covTrue(short)TRUE), covFalse(short)FALSE), covOptional(long)DISP_E_PARAMNOTFOUND, VT_ERROR); /创建Excel 2000服务器(启动Excel)，尽量在初始化中建立excel_app对象 /以确保一次只打开一个excel服务器/ if(!m_ExcelApp.CreateDispatch(Excel.Application)/ / AfxMessageBox(无法启动Excel服务器!);/ return;/ /app.SetVisible(TRUE); /使Excel可见 /ExcelApp.SetUserControl(TRUE); /允许其它用户控制Excel /打开c:*.xls wbsMyBooks.AttachDispatch(m_ExcelApp.GetWorkbooks(); lpDisp = wbsMyBooks.Open(m_strPath,/此处无法打开文档没有问题 covOptional, covOptional, covOptional, covOptional, covOptional, covOptional, covOptional, covOptional, covOptional, covOptional, covOptional, covOptional); wbMyBook.AttachDispatch(lpDisp);/得到Workbook wssMysheets.AttachDispatch(wbMyBook.GetWorksheets();/得到Worksheets /得到当前活跃sheet，如果有单元格正处于编辑状态中，此操作不能返回，会一直等待 lpDisp = wbMyBook.GetActiveSheet(); wssMysheet.AttachDispatch(lpDisp); /读取已经使用区域的信息，包括已经使用的行数、列数、起始行、起始列 Range usedRange; usedRange.AttachDispatch(wssMysheet.GetUsedRange(); range.AttachDispatch(usedRange.GetRows(); long iRowNum = range.GetCount(); /已经使用的行数 range.AttachDispatch(usedRange.GetColumns(); long iColNum = range.GetCount(); /已经使用的列数 long iStartRow = usedRange.GetRow(); /已使用区域的起始行，从1开始 long iStartCol = usedRange.GetColumn(); /已使用区域的起始列，从1开始 /读取第iStartRow行，第iStartCol列单元格的值 range.AttachDispatch(wssMysheet.GetCells(); range.AttachDispatch(range.GetItem(COleVariant(iStartRow),COleVariant(iStartCol).pdispVal); vResult = range.GetValue(); CString str; if(vResult.vt = VT_BSTR) /字符串 str = vResult.bstrVal; else if (vResult.vt = VT_R8) /8字节的数字 str.Format(%f, vResult.dblVal); else if(vResult.vt = VT_DATE) /时间格式 SYSTEMTIME st; VariantTimeToSystemTime(vResult.date, &st); else if(vResult.vt = VT_EMPTY) /单元格空的 str = ; /读取第一个单元格的对齐方式，数据类型:VT_I4，读取水平对齐方式 range.AttachDispatch(wssMysheet.GetCells(); iCell.AttachDispatch(range.GetItem (COleVariant(long(1), COleVariant(long(1).pdispVal); vResult.lVal = 0; vResult = iCell.GetHorizontalAlignment(); if(vResult.lVal != 0) switch (vResult.lVal) case 1: /默认 break; case -4108: /居中 break; case -4131 : /靠左 break; case -4152 : /靠右 break; /垂直对齐方式 iCell.AttachDispatch(range.GetItem (COleVariant(long(1), COleVariant(long(1).pdispVal); vResult.lVal = 0; vResult = iCell.GetVerticalAlignment(); if(vResult.lVal!=0) switch (vResult.lVal) case -4160 : /靠上 break; case -4108 : /居中 break; case -4107 : /靠下 break; /设置第一个单元格的值HI,EXCEL! range.SetItem(COleVariant(long(1),COleVariant(long(1),COleVariant(HI,EXCEL!); /设置第一个单元格字体颜色:红色/ CFont font;/ range.AttachDispatch(wssMysheet.GetCells();/ range.AttachDispatch(range.GetItem (COleVariant(long(1), COleVariant(long(1).pdispVal);/ font(COleVariant(long)0xFF0000); /合并单元格的处理，包括判断第一个单元格是否为合并单元格，以及将第一个单元格进行合并 Range unionRange; range.AttachDispatch(wssMysheet.GetCells(); unionRange.AttachDispatch(range.GetItem (COleVariant(long)1),COleVariant(long)1).pdispVal ); vResult = unionRange.GetMergeCells(); if(vResult.boolVal = -1) /是合并的单元格 /合并单元格的行数 range.AttachDispatch(unionRange.GetRows(); long iUnionRowNum=range.GetCount(); /合并单元格的列数 range.AttachDispatch(unionRange.GetColumns(); long iUnionColumnNum=range.GetCount(); /合并区域的起始行，列 long iUnionStartRow=unionRange.GetRow(); /起始行，从1开始 long iUnionStartCol=unionRange.GetColumn(); /起始列，从1开始 else if(vResult.boolVal = 0) /不是合并的单元格，将第一个单元格合并成2行，3列 range.AttachDispatch(wssMysheet.GetCells(); unionRange.AttachDispatch(range.GetItem(COleVariant(long)1),COleVariant(long)1).pdispVal ); unionRange.AttachDispa