本文共 3200 字，大约阅读时间需要 10 分钟。
在很多情况下，我们需要将程序产生的一些数据按照一些用户要求的EXCEL文件模板格式进行填写，将指定的数据项写入指定的单元格。在某些特定的情况下，可能还需要进行动态的行插入，比如数量不确定的点坐标信息，要求每行记录一个点坐标信息时。另外，用模板生成的文件，需要进行文件另存，以免将模板文件覆盖。
基于以上目的，笔者采用通用的网络搜魂大法，几经周折，几多测试，终于完成了以上功能，在此与大家共享。
之前曾经使用过CSpreadSheet类进行EXCEL读写，不过貌似这个类不能用于模板EXCEL的填写，只能对新建EXCEL文件进行操作。闲话少说，下面就介绍如何完成以上工作的吧。
1、需要在工程中初始化OLE
if(!AfxOleInit())///初始化COM库
{
AfxMessageBox("初始化COM失败");
return FALSE;
}
这段代码我一般会放在应用程序类的InitInstance函数的开头部分。
2、插入EXCEL模块
使用Classwizard中，点击右侧第一个按钮“AddClass...”，在弹出的下拉菜单中选择“From a type library...”
在弹出的目录选择对话框中，选择Office安装目录下的EXCEL.EXE文件
将弹出需要导入的模块选择窗口，如果嫌麻烦，那就将列表中的模块全部选中。选中的办法是直接拖拉选中，或者按住SHIFT键后，选择第一个和最后一个即可。(该死，怎么不支持CTRL+A呢)
点击“OK”即可将所有模块插入工程。此时看一下工程文件，会发现多了EXCEL.h和EXCEL.CPP两个文件。
3、编写代码
环境已经准备好了，假设现在的测试工程是点击一个按钮，在按钮事件中完成模板文件单元格数据的填写、动态行的插入以及文件的存储。
首先注意要将EXCEL.h文件包含进来：
#include "comdef.h" //这个也需要哦，不然_variant_t不认识
#include "excel.h"这里假设将EXCEL对象作为成员变量：(这个主要看工程中具体的应用了)
Range m_ExlRge;
_Worksheet m_ExlSheet; Worksheets m_ExlSheets; _Workbook m_ExlBook; Workbooks m_ExlBooks; _Application m_ExlApp;
然后在按钮的点击事件中增加处理代码，具体代码的含义就看注释吧。
- void CTTTDlg::OnButton1()
- {
- //用m_ExlApp对象创建Excel2003进程
- if(!m_ExlApp.CreateDispatch("Excel.Application",NULL))
- {
- AfxMessageBox("创建Excel服务失败!");
- return;
- }
- //设置为不可见，这样就不会弹出EXCEL窗口了
- m_ExlApp.SetVisible(FALSE);
- ///下面得到应用程序所在的路径///
- CString theAppPath;
- //
- //此段省略获得应用程序根目录的代码
- //
- CString TempPath = theAppPath+"ShipInfoTemp.xls";//EXCEL模板的路径
- m_ExlBooks.AttachDispatch(m_ExlApp.GetWorkbooks(),TRUE);
- m_ExlBook.AttachDispatch(m_ExlBooks.Add((_variant_t)TempPath),TRUE);//加载EXCEL模板
- m_ExlSheets.AttachDispatch(m_ExlBook.GetSheets(),TRUE);//加载Sheet页面
- //修改Sheet页面的名称，第一页从1开始，不是0哦！后面涉及到编号的地方都是如此，要注意阿
- m_ExlSheet.AttachDispatch(m_ExlSheets.GetItem(_variant_t((long)1)),TRUE);
- m_ExlSheet.SetName("1106号台风");
- //根据实际受台风影响的船舶的数量，动态改变船舶信息的行数，这里假设只增加一行，插入在第12行之前
- Range rangeSelect;
- rangeSelect.AttachDispatch(m_ExlSheet.GetRange(_variant_t("A12"),_variant_t("D12")),TRUE);
- Range rangeInsert = rangeSelect.GetEntireRow();//选择第12行
- //这里特别说明一下-4121，在ASP.NET和VB等工具下，表示xlShiftDown，指将行向下挤，VC下没找到，所以只能用直接的数值了
- rangeInsert.Insert(COleVariant((long)-4121),vtMissing); //在12行之前插入
- rangeSelect.ReleaseDispatch();
- rangeInsert.ReleaseDispatch();
- //开始向各个单元格填入数据
- m_ExlRge.AttachDispatch(m_ExlSheet.GetCells(),TRUE);//加载所有单元格
- //此段可以循环插入船舶信息，这里以插入一条船来举例
- m_ExlRge.SetItem(_variant_t((long)8),_variant_t((long)1),_variant_t("1"));
- m_ExlRge.SetItem(_variant_t((long)8),_variant_t((long)2),_variant_t("雪龙号"));
- m_ExlRge.SetItem(_variant_t((long)8),_variant_t((long)3),_variant_t("201106270800"));
- m_ExlRge.SetItem(_variant_t((long)8),_variant_t((long)4),_variant_t("京唐/南沙"));
- m_ExlRge.SetItem(_variant_t((long)8),_variant_t((long)5),_variant_t("3901N"));
- m_ExlRge.SetItem(_variant_t((long)8),_variant_t((long)6),_variant_t("12138E"));
- //将编辑完成的内容保存为新文件，这里的文件名可以根据需要动态产生。
- m_ExlSheet.SaveAs(theAppPath + "newdata.xls",vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing);
- //释放对象
- m_ExlRge.ReleaseDispatch();
- m_ExlSheet.ReleaseDispatch();
- m_ExlSheets.ReleaseDispatch();
- m_ExlBook.ReleaseDispatch();
- m_ExlBooks.ReleaseDispatch();
- //m_ExlApp一定要退出程序，否则程序结束后还会有一个Excel进程驻留在内存中，而且程序重复运行的时候会出错
- m_ExlApp.Quit();
- m_ExlApp.ReleaseDispatch();
- }
- 本段代码在XP系统，EXCEL 2003,VC6环境下测试成功。
转载地址：http://qbhab.baihongyu.com/