vc控制excel格式(转载备忘)

原文地址

VC++控制Excel格式

最近再做导出Excel的时候，想要控制Excel的格式，然后到处找VC控制Excel的接口。到网上找资料，而网上资料也很多接口不全的，比如在VC里面用接口设置Excel打印属性，如打印网格，设置表头等……然后有的实在没办法就只能先在excel里面录制相应功能的宏，然后查看其vb代码，然后再想办法转换成vc函数。把这些都折腾了一遍以后，真正做的时候却发现其实大多数设置Excel文件格式或者属性的工作都可以利用模板来解决。所以如果以后还有需要在VC下设置格式什么的，除非是必须动态生成的数据，否则都强烈建议先尝试一下Excel模板本身是不是可以解决，因为在模板里面处理的话不必担心各种版本的差异。且不必去找这些接口函数。

虽然这次基本上是在模板里处理的，但是还是把常用接口记录一下，省得下次要用的时候，要到处去找：

代码如下：

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66

_Application ExcelApp; Workbooks wbsMyBooks; _Workbook wbMyBook; Worksheets wssMysheets; _Worksheet wsMysheet; Range rgMyRge;      //用来设置打印格式 PageSetup pageStp; LPDISPATCH  pPageStp; //创建Excel 2000/2003服务(启动Excel) if (!ExcelApp.CreateDispatch( "Excel.Application" ,NULL)) {      AfxMessageBox( "创建Excel服务失败!" );      exit (1); }   //获取版本号 CString sVersion = ExcelApp.GetVersion(); AfxMessageBox(sVersion);   //利用模板文件建立新文档 wbsMyBooks.AttachDispatch(ExcelApp.GetWorkbooks(), true ); wbMyBook.AttachDispatch(wbsMyBooks.Add(_variant_t( "c:\\ExcelTest\\MyTemplate.xlt.xls" ))); //获取Worksheets wssMysheets.AttachDispatch(wbMyBook.GetWorksheets(), true ); //获取sheet1 wsMysheet.AttachDispatch(wssMysheets.GetItem(_variant_t( "sheet1" )), true ); //获取全部Cells，此时,rgMyRge是cells的集合 rgMyRge.AttachDispatch(wsMysheet.GetCells(), true ); //设置1行1列的单元的值 rgMyRge.SetItem(_variant_t(( long )1),_variant_t(( long )1),_variant_t( "test" ));   //获取到所有的列 rgMyRge.AttachDispatch(wsMysheet.GetColumns(), true ); //获取第一列 rgMyRge.AttachDispatch(rgMyRge.GetItem(_variant_t(( long )1),vtMissing).pdispVal, true ); //设置列宽 rgMyRge.SetColumnWidth(_variant_t(( long )30)); //调用模板中预先存放的宏     //调用宏的我没有得出预期的效果，不知道是我宏没有弄好，还是怎么回事   /* ExcelApp.Run(_variant_t("CopyRow"),_variant_t((long)10),vtMissing,vtMissing,      vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,      vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,      vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,      vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing);      */ //打印预览 pPageStp = wsMysheet.GetPageSetup();      pageStp.AttachDispatch(pPageStp);      pageStp.SetPrintGridlines(TRUE); //设置第一列作为表头 pageStp.SetPrintTitleColumns( "$a1:$a1" );      pageStp.ReleaseDispatch();   wbMyBook.SetSaved( true ); ExcelApp.SetVisible( true ); wbMyBook.PrintPreview(_variant_t( false )); //释放对象 rgMyRge.ReleaseDispatch(); wsMysheet.ReleaseDispatch(); wssMysheets.ReleaseDispatch(); wbMyBook.ReleaseDispatch(); wbsMyBooks.ReleaseDispatch(); ExcelApp.ReleaseDispatch();