现在的位置: 首页 > 自动控制 > 工业·编程 > 正文

VC中彻底玩转Excel

2012-07-09 07:44 ⁄ 工业·编程 ⁄ 共 10685字 ⁄ 字号 小 中 大 ⁄ 评论 1 条

    如今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.AttachDispatch(unionRange.GetResize(COleVariant((long)2),COleVariant((long)3)));
        unionRange.Merge(COleVariant((long)0));    //合并单元格
    }

    //将文件保存为*.xls
    m_ExcelApp.SetVisible(TRUE);
    CString strtmp = m_strPath.Left(m_strPath.ReverseFind('.')) + ".xls";

//这里应该确保strtmp为有效路径，否则的话该函数会自己处理异常，导致以后的语句没有执行，没有关闭打开的文档
    wbMyBook.SaveAs(COleVariant(strtmp),covOptional,covOptional,

        covOptional,covOptional,covOptional,0,
        covOptional,covOptional,covOptional,covOptional);

    //关闭所有的book，退出Excel
    wbMyBook.Close(covOptional, COleVariant(""), covOptional);
    wbsMyBooks.Close();
    //m_ExcelApp.Quit();

另外一篇是

      在开发软件时，经常要将数据输出到Excel 2000中，在Excel 2000中对该数据进行进一步地格式化处理或进行计算处理。在Visual Basic中处理起来较简单，Excel 2000的VB编程帮助中有较为详细的介绍。在Visual C++中如何进行处理了？利用Excel 2000的ActiveX Automate功能，处理起来同VB中类似。但要注意以下几点：    
对于对象的属性值的读取或赋值，需要用GetProperty()或SetProperty(NewValue)函数，不能象VB中直接通过属性名称取值或赋值。例如：Worksheet.GetCount(), Worksheet.SetName(“Sheet1”)。    
对集合对象中的成员对象的引用，必须使用集合对象的GetItem()函数。例如：Worksheets.GetItem(ColeVariant((long)1))或Worksheets.GetItem(ColeVariant(“Sheet1”))取得第一个工作表。    
在COM接口中，时常用到Variant，BSTR，SafeArray数据类型。Variant数据类型是一个联合，可表示几乎所有的类型的数据，具体用法见MSDN中的相关介绍，类_variant_t是对VARIANT数据类型的封装。在Excel 2000的VB编程帮助中，如果提到某函数或属性需要一个值，该值的数据类型通常是Variant，在封装Excel 2000对象的类定义中，说明了具体需要的数据类型。BSTR是一个包括了字符串和字符串长度的数据结构，类_bstr_t是对BSTR数据类型的封装。在Excel 2000的VB编程帮助中提到的字符串通常指BSTR。具体函数参数或属性的数据类型，见封装该对象的类的定义。SafeArray是一个包括数组和数组边界的结构，数组边界外的内容不允许访问。在Excel 2000的VB编程帮助中提到的数组是指SafeArray。关于SafeArray的处理，请见MSDN的相关帮助。    
对于缺省参数和缺省值。在VB中，函数的参数可以空缺，在VC++中不允许，必须将所有的参数填写完全。如果你希望指定某个参数为缺省值，根据参数数据类型的不同，可指定不同的缺省值。当参数数据类型为字符串时，可以用长度为0的字符串。如果参数是Variant类型，可用常量vtMissing，该常量在comdef.h中定义。也可用_variant_t(DISP_E_PARAMNOTFOUND, VT_ERROR)产生一个Variant对象。    
Excel对象中的集合对象有时包括的子对象是不一定的，例如：Range对象，可以表示Cell的集合，也可以表示Column的集合或Row的集合，Range.GetItem(1)可以返回Cell或Column或Row对象。    
对对象的引用或传递对象，使用IDispatch类对象，有时利用Variant对IDispatch进行包装。    
以下是一段源程序，演示如何启动Excel 2000，利用一个模板文件产生一个新文档，在该文档的”Sheet1”工作表的第一个单元中填写一段文字，设置第一列的列宽，然后调用一个模板中的宏，执行一段程序，最后打印预览该Excel文档。模板文件名称：MyTemplate.xlt。程序在Visual C++ 6.0 sp4，Windows 2000 Professional sp-1下调试通过。    
首先利用Visual C++ 6.0，建立一个MFC基于对话框的工程项目，共享DLL，Win32平台。工程名称ExcelTest。在主对话框中加入一个按钮，    
ID IDC_EXCELTEST    
Caption Test Excel    
双击该按钮，增加成员函数void CExcelTestDlg::OnExceltest()。    
在BOOL CExcelTestApp::InitInstance()中，dlg.DoModal();之前增加代码：    
if (CoInitialize(NULL)!=0)    
{    
AfxMessageBox("初始化COM支持库失败!");    
exit(1);    
}    
在return FALSE; 语句前，加入：    
CoUninitialize();    
选择Menu->View->ClassWizade，打开ClassWizade窗口，选择Add Class->From a type library，选择D:/Program Files/Microsoft Office/office/Excel9.OLB(D:/Program Files/Microsoft Office/是本机上Microsoft Office 2000的安装目录，可根据个人机器上的实际安装目录修改)。选择_Application、Workbooks、_Workbook、Worksheets、_Worksheet、Range，加入新类，分别为_Application、Workbooks、_Workbook、Worksheets、_Worksheet、Range，头文件Excel9.h，源文件Excel9.cpp。    
在ExcelTestDlg.cpp文件的头部，#include "ExcelTestDlg.h"语句之下，增加 ：    
#include "comdef.h"    
#include "Excel9.h"    
在void CExcelTestDlg::OnExceltest() 函数中增加如下代码：    
void CExcelTestDlg::OnExceltest()      
{    
_Application ExcelApp;    
Workbooks wbsMyBooks;    
_Workbook wbMyBook;    
Worksheets wssMysheets;    
_Worksheet wsMysheet;    
Range rgMyRge;    
//创建Excel 2000服务器(启动Excel)    
if (!ExcelApp.CreateDispatch("Excel.Application",NULL))    
{    
AfxMessageBox("创建Excel服务失败!");    
exit(1);    
}    
//利用模板文件建立新文档    
wbsMyBooks.AttachDispatch(ExcelApp.GetWorkbooks(),true);    
wbMyBook.AttachDispatch(wbsMyBooks.Add(_variant_t("g://exceltest//MyTemplate.xlt")));    
//得到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("This Is A Excel Test Program!"));    
//得到所有的列    
rgMyRge.AttachDispatch(wsMysheet.GetColumns(),true);    
//得到第一列    
rgMyRge.AttachDispatch(rgMyRge.GetItem(_variant_t((long)1),vtMissing).pdispVal,true);    
//设置列宽    
rgMyRge.SetColumnWidth(_variant_t((long)200));    
//调用模板中预先存放的宏    
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);    
//打印预览    
wbMyBook.SetSaved(true);    
ExcelApp.SetVisible(true);    
wbMyBook.PrintPreview(_variant_t(false));    
//释放对象

book.Close(covOptional,COleVariant(""),covOptional);
books.Close(); 
app.Quit();

} 
/////////////////////////////////////////////////

下面是我做的插入一行并且设置高度，写入字符串数据的例子，字符串需要=""来输出
void DataInsertRow(CString tmpStr[], CString valueStr[],int &I_insert)
{
Range range;
COleVariant m_value,m_height;
range=sheet.GetRange( COleVariant(tmpStr[0]),COleVariant(tmpStr[1])); 
range.AttachDispatch(range.GetEntireRow());
range.Activate();
range.Insert(COleVariant((short)2));
I_insert++;
m_value.vt=VT_BSTR;
m_height.vt=VT_INT;
m_height.intVal = 30;
// 填写数据
CString tmp;
for(int i=0;i<10;i++)
{
   range = sheet.GetRange(COleVariant(tmpStr[i]), COleVariant(tmpStr[i]));
   range.SetRowHeight(m_height);
   tmp.Format("=/"%s/"",valueStr[i]);
   m_value.bstrVal=(_bstr_t)tmp;
   range.SetValue(m_value);
}
range.ReleaseDispatch();
}
// 删除某列
void deleteColume(int iCol)
{
Range m_range;
typedef enum 
{
   xlShiftToLeft = -4159,
   xlShiftUp = -4162
} XlDeleteShiftDirection;
m_range.AttachDispatch( sheet.GetCells() );   
m_range.AttachDispatch(m_range.GetItem( covOptional ,COleVariant((long)iCol)).pdispVal); 
m_range.AttachDispatch(m_range.GetEntireColumn());
m_range.Delete(COleVariant((short)xlShiftToLeft));

// 让 1,1单元格获得焦点
m_range.AttachDispatch( sheet.GetCells() );   
m_range.AttachDispatch(m_range.GetItem(COleVariant((long)1),COleVariant((long)1)).pdispVal); 
m_range.Activate();

m_range.ReleaseDispatch();
}
另外，这里的 covOptional 和vtMissing是一样的

关于excel range的拷贝的问题

问题我已经解决了: 
oRange = m_objSheet.GetRange(COleVariant(sStartbuf), COleVariant(sEndbuf)); 
//下面函数加上GetItem(计算偏移量)才能得到正确位置 
oRangex = m_objSheet.GetRange(COleVariant("a1"), COleVariant("a1")); 
oRange.Copy(oRangex.GetItem(COleVariant(lDstartRow), COleVariant(nDstartCol)));

返回
【上篇】
【下篇】

您可能还会对这些文章感兴趣！

人际交往的适度性
爱情心理学·第十六课·爱人也是敌人
python适合开发桌面软件吗
爱情心理学·第三十课·爱情整理术

求索阁

目前有 1 条留言    访客：0 条， 博主：0 条 ，引用： 1 条

    外部的引用： 1 条

    • Vc++读写Excel文件 « 求索阁

    给我留言

    留言无头像?


    插入图片

    返回首页

    Copyright © 2002-2024 求索阁  保留所有权利.  浙ICP备14007796号  Theme by Robin.  页面载入信息: 71 queries. 0.861 seconds