c++ 合并多个Excel

作者: littlesu 分类: 开发经验发布时间: 2013-01-17 09:55 ė5,377 浏览数 61条评论

csdn

我写了一个用与合并两个Excel文件的函数，贴出来缓解仁兄的编码之急！

说明：将SourceFile文件中的全部工作表插入到DestFile文件中，插入位置是在DestFile文件中最后一个工作表后面。我使用的Excel 2000。

Step1：
首先别忘记引入Excel 2000 的类型库，方法：选择VC环境中Classwizard-&gt;Message Maps中Add Class下拉按钮，选择From a type library，找到Excel9.OLB（一般位于Office的安装目录下,可以搜索一下）， 在出现的&ldquo;Confirm Classes&rdquo;对话框中选择列表框中全部内容，点击OK。

Step2：
在项目中使用到Excel Automation的地方包含excel9.h文件，即：#include &quot;excel9.h&quot;

Ster3：
下面是我写的合并函数，具体说明见其中注释：

void CDemoDlg::MergeExcel(CString DestFile, CString SourceFile)
{
  ::CoInitialize(NULL);
  _Application  app;	   //加载Excel服务器进程	

  if (!app.CreateDispatch(&quot;Excel.Application&quot;,NULL))
AfxMessageBox(&quot;创建Excel服务失败!&quot;);

  app.SetVisible(TRUE);

  Workbooks  wbSet;
  wbSet.AttachDispatch(app.GetWorkbooks());

  //打开目标文件
  _Workbook  wbDest;
  wbDest.AttachDispatch(wbSet.Add(_variant_t((LPCTSTR)DestFile)));
  //打开源文件
  _Workbook  wbSource;
  wbSource.AttachDispatch(wbSet.Add(_variant_t((LPCTSTR)SourceFile)));

  Worksheets  destWsSet;
  destWsSet.AttachDispatch(wbDest.GetWorksheets());
  Worksheets  sourceWsSet;
  sourceWsSet.AttachDispatch(wbSource.GetWorksheets());


  // 获取目标文件和源文件中的Worksheet数量
  long destSheetCount = destWsSet.GetCount();
  long sourceSheetCount = sourceWsSet.GetCount();

  //得到目标文件中最后一个Worksheet，源文件中的Worksheet将插入在她后面
  _Worksheet  lastWsInDest;
  lastWsInDest.AttachDispatch(
        destWsSet.GetItem(_variant_t((long)destSheetCount)));

  _Worksheet  sourceWS;
  _Worksheet  insertWS;
  Range	rgSource, rgDest;
  //遍历源文件中Worksheet集合，逐一选择、复制内容，然后
  //粘贴到目标文件最后一个Worksheet后面
  for(int i=1; i&lt;=sourceSheetCount; i++)
  {	
     //复制源文件中Worksheet内容
     sourceWS.AttachDispatch(sourceWsSet.GetItem(_variant_t((long)i)));
     rgSource.AttachDispatch(sourceWS.GetCells());
     rgSource.Copy(vtMissing);

     //在目标文件最后一个Worksheet后插入一新Worksheet，同时粘贴前面复制内容
     insertWS.AttachDispatch(destWsSet.Add(vtMissing, 
                                  _variant_t(lastWsInDest),
                                           vtMissing,	        vtMissing));

     insertWS.Paste(vtMissing, vtMissing);
     insertWS.SetName(sourceWS.GetName());
     insertWS.Activate();
     rgDest.AttachDispatch(insertWS.GetRange(_variant_t(&quot;A1&quot;),
                                             _variant_t(&quot;A1&quot;)));
     rgDest.Select();
  }
  app.SetCutCopyMode(0);

  wbSource.Close(vtMissing, vtMissing, vtMissing);
}

我写了一个用与合并两个Excel文件的函数，贴出来缓解仁兄的编码之急！

说明：将SourceFile文件中的全部工作表插入到DestFile文件中，插入位置是在DestFile文件中最后一个工作表后面。我使用的Excel 2000。

Step1：

首先别忘记引入Excel 2000 的类型库，方法：选择VC环境中Classwizard->Message Maps中Add Class下拉按钮，选择From a type library，找到Excel9.OLB（一般位于Office的安装目录下,可以搜索一下），在出现的“Confirm Classes”对话框中选择列表框中全部内容，点击OK。

Step2：

在项目中使用到Excel Automation的地方包含excel9.h文件，即：#include "excel9.h"

Ster3：

下面是我写的合并函数，具体说明见其中注释：

void CDemoDlg::MergeExcel(CString DestFile, CString SourceFile)

{

::CoInitialize(NULL);

_Application app; //加载Excel服务器进程

if (!app.CreateDispatch("Excel.Application",NULL))

AfxMessageBox("创建Excel服务失败!");

app.SetVisible(TRUE);

Workbooks wbSet;

wbSet.AttachDispatch(app.GetWorkbooks());

//打开目标文件

_Workbook wbDest;

wbDest.AttachDispatch(wbSet.Add(_variant_t((LPCTSTR)DestFile)));

//打开源文件

_Workbook wbSource;

wbSource.AttachDispatch(wbSet.Add(_variant_t((LPCTSTR)SourceFile)));

Worksheets destWsSet;

destWsSet.AttachDispatch(wbDest.GetWorksheets());

Worksheets sourceWsSet;

sourceWsSet.AttachDispatch(wbSource.GetWorksheets());

// 获取目标文件和源文件中的Worksheet数量

long destSheetCount = destWsSet.GetCount();

long sourceSheetCount = sourceWsSet.GetCount();

//得到目标文件中最后一个Worksheet，源文件中的Worksheet将插入在她后面

_Worksheet lastWsInDest;

lastWsInDest.AttachDispatch(

destWsSet.GetItem(_variant_t((long)destSheetCount)));

_Worksheet sourceWS;

_Worksheet insertWS;

Range rgSource, rgDest;

//遍历源文件中Worksheet集合，逐一选择、复制内容，然后

//粘贴到目标文件最后一个Worksheet后面

for(int i=1; i<=sourceSheetCount; i++)

{

//复制源文件中Worksheet内容

sourceWS.AttachDispatch(sourceWsSet.GetItem(_variant_t((long)i)));

rgSource.AttachDispatch(sourceWS.GetCells());

rgSource.Copy(vtMissing);

//在目标文件最后一个Worksheet后插入一新Worksheet，同时粘贴前面复制内容

insertWS.AttachDispatch(destWsSet.Add(vtMissing,

_variant_t(lastWsInDest),

vtMissing, vtMissing));

insertWS.Paste(vtMissing, vtMissing);

insertWS.SetName(sourceWS.GetName());

insertWS.Activate();

rgDest.AttachDispatch(insertWS.GetRange(_variant_t("A1"),

_variant_t("A1")));

rgDest.Select();

}

app.SetCutCopyMode(0);

wbSource.Close(vtMissing, vtMissing, vtMissing);

}

只回答业务咨询

学习日记，兼职软件设计，软件修改，毕业设计。

本文出自学习日记，转载时请注明出处及相应链接。

本文永久链接: https://www.softwareace.cn/?p=74

0excel

« 一些开源项目

程序隐藏，关闭计算机时，等待程序后台处理 »

一条评论

admin 2013 年 1 月 17 日上午 9:58 回复

java http://ttsiangogole.iteye.com/blog/1340947

c++ 合并多个Excel

一条评论

发表评论取消回复

分类目录

业务咨询站长

c++ 合并 多个Excel

一条评论

发表评论 取消回复

分类目录

业务咨询站长

c++ 合并多个Excel

发表评论取消回复