VS2010 C++ 操作Excel表格的编程实现

admin

通过VC实现对Excel表格的操作的方法有多种，如：通过ODBC数据库实现，通过解析Excel表格文件，通过OLE/COM的实现。本文主要研究通过OLE/COM实现对Excel表格的操作。


/ \3 n% [( c9 P0 o+ ^( q

1、添加OLE/COM支持。

首先，应用程序必须添加对OLE/COM的支持，才能导入OLE/COM组件。

本文使用的是MFC对话框程序，在创建工程的向导中选中Automation选项即可为程序自动添加相应的头文件和OLE库初始化代码。

通过查看源代码，可以知道在stdafx.h的头文件中，添加了OLE/COM很多类所需添加的头文件。

#include <afxdisp.h>        // MFC 自动化类

同时，在应用程序类的InitInstance函数中，添加了OLE/COM的初始化代码，如下所示：

// 初始化 OLE 库

if (!AfxOleInit())

{

AfxMessageBox(IDP_OLE_INIT_FAILED);

return FALSE;

}

2、导入并封装Excel中的接口

Excel作为OLE/COM库插件，定义好了各类交互的接口，这些接口是跨语言的接口。VC可以通过导入这些接口，并通过接口来对Excel的操作。

由于本文只关心对Excel表格中的数据的读取，主要关注几个_Application、Workbooks、_Workbook、Worksheets、_Worksheet、Range等几个接口。Excel的各类接口的属性、方法可以通过MSDN的Office Development进行查询。

VS2010导入OLE/COM组件的接口的步骤为：Project->Class Wizard->Add Class->MFC Class From TypeLib，先选择要导入的组件所在的路径，即Excel.exe所在的路径，然后再选择

要导入的Excel类型库中的接口。

在完成接口导入后，VS2010将自动为导入的接口创建相应的实现类，用于对接口属性和方法的实现。由于标准的C++没有属性访问器，只能添加一个两个存取函数来实现对属性的访问，通过在属性名称前加上get_和put_前缀分别实现对属性的读写操作。即，由VC自动完成C++类对接口的封装。

0 C6 V/ d- t7 M4 J/ ~3 f  ^

本文所导入的接口对应的类和头文件的说明如下所示：

Excel接口	导入类	头文件	说明
_Application	CApplicaton	Application.h	Excel应用程序。
Workbooks	CWorkbooks	Workbooks.h	工作簿的容器，里面包括了Excel应用程序打开的所有工作簿。
_Workbook	CWorkbook	Workbook.h	单个工作簿。
Worksheets	CWorksheets	Worksheets.h	单个工作簿中的Sheet表格的容器，包括该工作簿中的所有Sheet。
_Worksheet	CWorksheet	Worksheet.h	单个Sheet表格。
Range	CRange	Range.h	一定数量的单元格，可对单元格进行单个或多个单元格进行操作。

3、导入Excel的整个类型库

接口对应类只是对接口的属性和方法进行了封装，而Excel中的数据类型，如枚举类型却并为并不能使用，因此，为了更方便的操作Excel，还需要导入Excel的数据类型。

通过查看导入接口对应的头文件可以发现，在所有导入接口的头文件中，都会有这么行：

#import "D:\\Program Files\\Microsoft Office\\Office12\\EXCEL.EXE" no_namespace

这行代码的作用是导入Excel整个类型库到工程中。

由VS2010自动产生的导入代码存在以下几个问题：

（1）如果导入了多个接口，每个头文件都会把类型库导入一次，如果引用多个头文件，会导致类型库重复导入。

（2）Excel类型库中有些类型会跟MFC类库的某些类型冲突。

（3）Excel类型库的某些类型跟其他Office和VB的某些库相关，如果不导入相关库，将导致这些类型无法使用。。

以上三点问题的解决方法如下：

（1）仅在_Application接口对应头文件中导入Excel类型库。

（2）对冲突的类型进行重命名。

（3）在导入Excel类型库之前，先导入Office和VB的相关库。

更改后的导入类型库的代码如下：

/*导入Office的类型库*/

#import "C:\\Program Files\\Common Files\\Microsoft Shared\\OFFICE12\\MSO.DLL" \

rename("RGB", "MSORGB") \

rename("DocumentProperties", "MSODocumentProperties")

using namespace Office;

/*导入VB的类型库*/

#import "C:\\Program Files\\Common Files\\Microsoft Shared\\VBA\\VBA6\\VBE6EXT.OLB"

using namespace VBIDE;

" T2 p$ q5 ?$ ]6 v) I# I

/*导入Excel的类型库*/

#import "D:\\Program Files\\Microsoft Office\\Office12\\EXCEL.EXE" \

rename("DialogBox", "ExcelDialogBox") \

rename("RGB", "ExcelRGB") \

rename("CopyFile", "ExcelCopyFile") \

rename("ReplaceText", "ExcelReplaceText") \

no_auto_exclude

Using namespace Excel;

9 o. |3 _% j. A( |( _; ?! w

编译程序后，会在DebUG或Release目录下生成三个文件mso.tlh、vbe6ext.tlh和excel.tlh。通过打开文件可知，该三个文件的命名空间分别是Office、VBIDE和Excel。导入了Excel的整个类型库后，就可以使用Excel中的所有类型了。

& L7 K) _5 X. v) r* t( q/ F

4、操作Excel步骤

操作Excel的主要步骤如下：

（1）创建一个Excel应用程序。

（2）得到Workbook的容器。

（3）打开一个Workbook或者创建一个Workbook。

（4）得到Workbook中的Worksheet的容器。

（5）打开一个Worksheet或者创建一个WorkSheet。

（6）通过Range对WorkSheet中的单元格进行读写操作。

（7）保存Excel。

（8）释放资源。

2 j# A2 u$ N6 l% ?

5、批量处理Excel表格

VC通过OLE/COM操作Excel，是通过进程间的组件技术。因此，每次读写Excel中的单元格时，都要进行进程间的切换。当数据量大，如果一个单元格一个单元格的读取，主要的时间都花费在进程切换中。因此读取多个单元格，将可有效的提高程序的运行效率。

对多个单元格的读写操作可以通过CRange中以下两个成员函数来完成。

VARIANT get_Value2();

void put_Value2(VARIANT& newValue);

其中，输入参数newValue只要输入一个二维数组，即可实现向Excel中一次写入多个单元格的值。

其中，VARIANT中实现二维数据的方法可参考

http://www.cnblogs.com/xianyunhe/archive/2011/09/13/2174703.html

当然，在对CRange类进行操作之前，要设置CRange类对应的单元格。

6、Excel表格的保存

（1）如果要保存打开的工作簿，使用CWorkbook类的Save函数就可以保存工作簿，原文件将被覆盖。

（2）如果是新创建的工作簿，或者是要另存为，可使用CWorkbook类的SaveAs函数。

SaveAs的参数比较多。其中，第1个参数是设置要保存文件的路径；第2个参数是设置文件的格式，可在MSDN中查看枚举类型XlFileFormat来了解Excel的文件格式。经过测试，在本文所用的测试环境中，Excel2003的文件格式是xlExcel8，Excel2007的文件格式是xlExcel4。

7、获取当前Excel的版本

可以通过CApplication的get_Version函数来获得Excel的版本，其中，Excel2007的主版本号是12，Excel2003的主版本号是11。

+ n6 G) G6 `% f; c+ U1 I+ c% e# h

m_LisTCtrl.SetExtendedStyle(LVS_REPORT | LVS_EX_FULLROWSELECT);
  W* V8 y4 @& m
    CApplication ExcelApp;
1 Y& E& j$ P0 M( ^& c/ }2 F    CWorkbooks books;
    CWorkbook book;
    CWorksheets sheets;
# O" d1 k" l7 G    CWorksheet sheet;
    CRange range;
    LPDISPATCH lpDisp = NULL;

    //创建Excel 服务器(启动Excel)
    if(!ExcelApp.CreateDispatch(_T("Excel.Application"),NULL))
' I8 r( z6 I! l7 E+ O# |    {
" _; H: H8 x3 R5 S7 J/ R        AfxMessageBox(_T("启动Excel服务器失败!"));
        return -1;
, a# f. Y4 `4 e6 G: g    }

    /*判断当前Excel的版本*/
" B: [4 E* l3 e: I    CString strExcelVersion = ExcelApp.get_Version();
$ B2 ]5 H0 C9 J6 T* s3 Q+ \    int iStart = 0;
    strExcelVersion = strExcelVersion.Tokenize(_T("."), iStart);
5 t3 }0 c$ y  N8 Y    if (_T("11") == strExcelVersion)
; W2 o. M3 W0 K+ m! k4 Y    {
; _2 s1 A) e& [        AfxMessageBox(_T("当前Excel的版本是2003。"));
& W+ Y+ G  r8 Q) N2 {    }
    else if (_T("12") == strExcelVersion)
' O, s% G4 U! L% l2 p  B    {
  u4 u+ ], `! u1 [9 \        AfxMessageBox(_T("当前Excel的版本是2007。"));
    }
1 G4 }" a4 B* D/ Q) q* ?    else
; k5 S- a, e" l' ^, l5 v: R$ g    {
        AfxMessageBox(_T("当前Excel的版本是其他版本。"));
7 S5 v+ Q; Q$ t6 Z3 O    }

5 N( R) Y9 G# O- k8 @    ExcelApp.put_Visible(TRUE);
    ExcelApp.put_UserControl(FALSE);

1 C) S" B  r! q/ X3 I, R( U: ?3 }    /*得到工作簿容器*/
    books.AttachDispatch(ExcelApp.get_Workbooks());

    /*打开一个工作簿，如不存在，则新增一个工作簿*/
    CString strBookPath = _T("C:\\tmp.xls");
    try
    {
9 t7 G: R- V; w' S* `        /*打开一个工作簿*/
) G/ g! R& t9 }* S% `+ V        lpDisp = books.Open(strBookPath,
            vtMissing, vtMissing, vtMissing, vtMissing, vtMissing,
" W2 Z4 j8 V; L7 [            vtMissing, vtMissing, vtMissing, vtMissing, vtMissing,
; D' Q) H3 h0 s& W8 W" _9 m+ T            vtMissing, vtMissing, vtMissing, vtMissing);
; e2 k5 X( Y( U! I" F        book.AttachDispatch(lpDisp);
4 g/ {0 g8 H7 ~3 O: `8 }" ~    }
" B$ t& L$ S% k: V    catch(...)
2 x+ E* j7 V; P$ a    {
' H+ m- @& Z/ S' v        /*增加一个新的工作簿*/
! w7 k6 D0 I4 Z7 v  e/ H        lpDisp = books.Add(vtMissing);
# e, ]# x0 J/ u8 J" A7 h+ Q        book.AttachDispatch(lpDisp);
    }
   

    /*得到工作簿中的Sheet的容器*/
) ?; q& c  d* U" D1 _0 A) q    sheets.AttachDispatch(book.get_Sheets());

& A% @2 w4 p% |  l: l6 n. b    /*打开一个Sheet，如不存在，就新增一个Sheet*/
    CString strSheetName = _T("NewSheet");
; [6 G7 j) P7 T2 G  s7 e" b    try
    {
        /*打开一个已有的Sheet*/
  ~, z6 |& ?1 Z! v/ @8 F        lpDisp = sheets.get_Item(_variant_t(strSheetName));
5 x% U6 C! L+ n' z        sheet.AttachDispatch(lpDisp);
0 L. R& r0 l2 j) J    }
    catch(...)
. w. t0 i2 F' d$ J" t! c    {
        /*创建一个新的Sheet*/
        lpDisp = sheets.Add(vtMissing, vtMissing, _variant_t((long)1), vtMissing);
) N! o0 Q- A# ^6 c        sheet.AttachDispatch(lpDisp);
9 O6 o6 N, y. {. i/ D1 @6 B        sheet.put_Name(strSheetName);
8 v; k6 R# n) Q7 |/ r    }
" k, u- S0 y# j' {; w* y0 u
    system("pause");
% \! b9 d: z) B( x- p; s9 t8 U
0 }( v8 N' i1 {! M1 q    /*向Sheet中写入多个单元格,规模为10*10 */
    lpDisp = sheet.get_Range(_variant_t("A1"), _variant_t("J10"));
    range.AttachDispatch(lpDisp);

    VARTYPE vt = VT_I4; /*数组元素的类型，long*/
    SAFEARRAYBOUND sabWrite[2]; /*用于定义数组的维数和下标的起始值*/
    sabWrite[0].cElements = 10;
    sabWrite[0].lLbound = 0;
    sabWrite[1].cElements = 10;
    sabWrite[1].lLbound = 0;

    COleSafeArray olesaWrite;
    olesaWrite.Create(vt, sizeof(sabWrite)/sizeof(SAFEARRAYBOUND), sabWrite);

6 @5 T& s6 b" o) e/ W    /*通过指向数组的指针来对二维数组的元素进行间接赋值*/
    long (*pArray)[2] = NULL;
    olesaWrite.AccessData((void **)&pArray);
    memset(pArray, 0, sabWrite[0].cElements * sabWrite[1].cElements * sizeof(long));

    /*释放指向数组的指针*/
1 p8 {1 x) }1 Z2 k    olesaWrite.UnaccessData();
    pArray = NULL;
/ q. P9 ~% \; _7 R% Y
8 H- H; P* u' M5 z: Y4 [- K) l! s, p    /*对二维数组的元素进行逐个赋值*/
    long index[2] = {0, 0};
0 W' C- {2 V. S" Q( ]    long lFirstLBound = 0;
    long lFirstUBound = 0;
    long lSecondLBound = 0;
    long lSecondUBound = 0;
    olesaWrite.GetLBound(1, &lFirstLBound);
& ~/ v* q, ?% y3 D( w% r9 ]0 `    olesaWrite.GetUBound(1, &lFirstUBound);
    olesaWrite.GetLBound(2, &lSecondLBound);
    olesaWrite.GetUBound(2, &lSecondUBound);
6 P6 b# O0 p9 b    for (long i = lFirstLBound; i <= lFirstUBound; i++)
. B% D* F/ _6 q% p! o% H& c    {
        index[0] = i;
+ G! B$ V% D" u        for (long j = lSecondLBound; j <= lSecondUBound; j++)
# o6 m  |- b6 d9 F9 \        {
' z0 a) A) {: k7 |* w            index[1] = j;
            long lElement = i * sabWrite[1].cElements + j;
            olesaWrite.PutElement(index, &lElement);
0 F" z+ R# H. ?        }
    }
1 Y/ C  x8 {9 m; w8 ?
    /*把ColesaWritefeArray变量转换为VARIANT,并写入到Excel表格中*/
    VARIANT varWrite = (VARIANT)olesaWrite;
1 t+ c: K' z$ s% D# b  F( K    range.put_Value2(varWrite);

    system("pause");
- p# f2 `* ^. V0 B- t3 i
) i; ~& [' X" Y0 n. Z' x( h6 M    /*根据文件的后缀名选择保存文件的格式*/
     CString strSaveAsName = _T("C:\\new.xlsx");
1 L  T% _, X9 R9 \    CString strSuffix = strSaveAsName.Mid(strSaveAsName.ReverseFind(_T('.')));
    XlFileFormat NewFileFormat = xlOpeNXMLWorkbook;
    if (0 == strSuffix.CompareNoCase(_T(".xls")))
& a- }9 G( s, {' V/ o    {
( |* c. X7 k/ w/ E0 P        NewFileFormat = xlExcel8;
    }
    book.SaveAs(_variant_t(strSaveAsName), _variant_t((long)NewFileFormat), vtMissing, vtMissing, vtMissing,
        vtMissing, 0, vtMissing, vtMissing, vtMissing,
        vtMissing, vtMissing);

! @7 G+ b4 L" c, i) ~/ H    system("pause");
- w/ v  y! D+ B  R' A
    /*读取Excel表中的多个单元格的值，在listctrl中显示*/
" J4 I0 I, A3 q, [) L( G    VARIANT varRead = range.get_Value2();
+ t1 d# f0 p& q8 L8 U  O7 c0 m    COleSafeArray olesaRead(varRead);
, z' P# D* Y7 @: ~) c( e7 Z
    VARIANT varItem;
    CString strItem;
    lFirstLBound = 0;
    lFirstUBound = 0;
    lSecondLBound = 0;
    lSecondUBound = 0;
6 ?& H+ }# U% Q6 S" p. Y    olesaRead.GetLBound(1, &lFirstLBound);
/ z* C2 l9 q5 r3 x" z    olesaRead.GetUBound(1, &lFirstUBound);
    olesaRead.GetLBound(2, &lSecondLBound);
    olesaRead.GetUBound(2, &lSecondUBound);
# I# Q8 y* K4 p    memset(index, 0, 2 * sizeof(long));
    m_ListCtrl.InsertColumn(0, _T(""), 0, 100);
    for (long j = lSecondLBound; j<= lSecondUBound; j++)
    {
        CString strColName = _T("");
9 c0 w% t0 S7 {7 j$ V- y        strColName.Format(_T("%d"), j);
        m_ListCtrl.InsertColumn(j, strColName, 0, 100);
' i4 L. a. h2 E$ W    }
9 ~: V5 L$ Q: U# {% o$ W5 ]    for (long i = lFirstLBound; i <= lFirstUBound; i++)
* \' f" c* D- }- S/ f    {
        CString strRowName = _T("");
2 L2 K% ^4 ~" i0 G' ~; T/ h8 m        strRowName.Format(_T("%d"), i);
        m_ListCtrl.InsertItem(i-1, strRowName);

7 S8 J6 |) |6 r/ ^        index[0] = i;
        for (long j = lSecondLBound; j <= lSecondUBound; j++)
        {
            index[1] = j;
            olesaRead.GetElement(index, &varItem);

            switch (varItem.vt)
2 p) X, e9 B& R7 W9 d. s            {
            case VT_R8:
                {
                    strItem.Format(_T("%d"), (int)varItem.dblVal);
                }

            case VT_BSTR:
% i' e* w) k( F% s1 I                {
% j5 h7 q! o& Z( B1 R' g* p1 M                    strItem = varItem.bstrVal;
                }
! ]2 x, [& s" `3 C* n) x/ \1 I
$ I9 }% x2 k+ ]4 n            case VT_I4:
  x. E4 s% r) g! d7 |                {
                    strItem.Format(_T("%ld"), (int)varItem.lVal);
                }
" x* B  _% a% K) M2 d. R8 D
/ K# I$ h6 d, R+ l) R& U            default:
: F) \0 }. G6 }' R' f& g+ V                {
+ x7 w' l5 \  E' O" L9 e
* J- r5 E0 V6 E                }
            }

            m_ListCtrl.SetItemText(i-1, j, strItem);
' c. }) A% S! s8 `        }
, p4 q  J/ k7 X' S- Q" y' P5 _    }

! `& ?  _7 v% Y( _

( [# P9 O9 i, I2 p7 @: L    /*释放资源*/
    sheet.ReleaseDispatch();
9 P# ~$ q7 g% E. _+ p    sheets.ReleaseDispatch();
    book.ReleaseDispatch();
* g& ]) _* Y5 M5 [    books.ReleaseDispatch();
    ExcelApp.Quit();
    ExcelApp.ReleaseDispatch();[url=]

                               
登录/注册后可看大图

[/url]