PLM之家精品课程培训,联系电话:18301858168 QQ: 939801026

  • NX二次开培训

    NX二次开培训

    适合初级入门或想深入了解二次开发的工程师,本培训结合ufun,NXOpen C++,大量的实例及官方内部的开发技术对于老鸟也值得借鉴!.

    NX CAM二次开发培训报名 NX二次开发基础培训报名
  • PLM之家Catia CAA二次开发培训

    Catia二次开发培训

    Catia二次开发的市场大,这方面开发人才少,难度大。所以只要你掌握了开发,那么潜力巨大,随着时间的积累,你必将有所用武之地!

  • PLM之Teamcenter最佳学习方案

    Teamcenter培训

    用户应用基础培训,管理员基础培训,管理员高级培训,二次开发培训应有尽有,只要你感兴趣肯学习,专业多年经验大师级打造!

  • PLM之Tecnomatix制造领域培训

    Tecnomatix培训

    想了解制造领域数字化吗?想了解工厂,生产线设计吗?数字化双胞胎,工业4.0吗?我们的课程虚位以待!

PLM之家PLMHome-国产软件践行者

[转载电子书] VS C++操作Excel详细教程

[复制链接]

2014-11-8 08:13:41 6430 0

admin 发表于 2014-11-8 08:13:41 |阅读模式

admin 楼主

2014-11-8 08:13:41

请使用QQ关联注册PLM之家,学习更多关于内容,更多精彩原创视频供你学习!

您需要 登录 才可以下载或查看,没有账号?注册

x
通过VC实现对Excel表格的操作的方法有多种,如:通过ODBC数据库实现,通过解析Excel表格文件,通过OLE/COM的实现。本文主要研究通过OLE/COM实现对Excel表格的操作。
" U1 M% }6 @7 |; T  
9 F; ?4 n1 {' s! j# B/ k本文源码的应用环境说明:, [# s, K2 n9 c' K; Y! f8 t
Windows XP SP3
* |8 p- e& k( h+ e( H& S" pMicrosoft Visual Studio 2010
, [2 l/ A7 T" G3 HMicrosoft Office Excel 2007
/ A3 ^$ R- a6 ]  , l/ T3 b2 m; g2 j- m! j
1、添加OLE/COM支持。
: E+ y; V. }8 l- g3 U' t首先,应用程序必须添加对OLE/COM的支持,才能导入OLE/COM组件。. I9 i- j) |. M2 S
本文使用的是MFC对话框程序,在创建工程的向导中选中Automation选项即可为程序自动添加相应的头文件和OLE库初始化代码。3 c# B' E" p, c8 C0 |3 W& h
通过查看源代码,可以知道在stdafx.h的头文件中,添加了OLE/COM很多类所需添加的头文件。
; x" f( f( l/ g8 u$ r6 {#include <afxdisp.h>        // MFC 自动化类1 Z. H0 @3 w, s' j2 f
同时,在应用程序类的InitInstance函数中,添加了OLE/COM的初始化代码,如下所示:
# I; C6 \. M! E$ i1 m// 初始化 OLE 库
( V. c* j" u" M0 q& Cif (!AfxOleInit()), {1 G( C+ x& L
{  h* j- O- r# W. a* x% `
AfxMessageBox(IDP_OLE_INIT_FAILED);3 V) @  N/ O0 K- F' P# l
return FALSE;
! R7 A( @0 v# l9 T& u}
* z( c' `* i- v4 d  2 n+ C: J! m2 d; s' T8 P
2、导入并封装Excel中的接口
+ k1 `+ E1 ^& `9 V5 W1 k6 \# uExcel作为OLE/COM库插件,定义好了各类交互的接口,这些接口是跨语言的接口。VC可以通过导入这些接口,并通过接口来对Excel的操作。  M  w: w! d5 m2 `" f
由于本文只关心对Excel表格中的数据的读取,主要关注几个_Application、Workbooks、_Workbook、Worksheets、_Worksheet、Range等几个接口。Excel的各类接口的属性、方法可以通过MSDN的Office Development进行查询。
0 w1 Y. |1 r  z7 G* dVS2010导入OLE/COM组件的接口的步骤为:Project->Class Wizard->Add Class->MFC Class From TypeLib,先选择要导入的组件所在的路径,即Excel.exe所在的路径,然后再选择
# D" m4 Q; u9 |, |要导入的Excel类型库中的接口。
! I- A9 g% \; V/ o* p5 @在完成接口导入后,VS2010将自动为导入的接口创建相应的实现类,用于对接口属性和方法的实现。由于标准的C++没有属性访问器,只能添加一个两个存取函数来实现对属性的访问,通过在属性名称前加上get_和put_前缀分别实现对属性的读写操作。即,由VC自动完成C++类对接口的封装。
/ g1 ~% ^2 X; X* p! D' ?9 g  ) o$ }4 A0 P0 U; \2 H
本文所导入的接口对应的类和头文件的说明如下所示:
. X3 l! R" K; ?  [5 a  : s5 L, r% ~6 ~( ^' D+ Y( C
Excel接口' I  Z4 R3 ^% B+ W. J+ b! N
导入类
) ~7 z$ A9 X3 i3 j( W  N- b5 ~头文件
8 Q: c& \/ b  h' D9 n3 K7 \3 {% o& @7 k说明
) K7 t3 ?1 q  t$ J) Z_Application
4 A% O7 T) J9 `# aCApplicaton
/ `8 I9 y! c8 n, j; f' ZApplication.h7 {( L7 o6 u0 j) |' t, g! \
Excel应用程序。5 B' _; T) ^4 Z/ P+ E4 Q
Workbooks+ ^$ Q  v5 Z1 ]1 G. f# u
CWorkbooks
+ s0 K, Z: v: |" Y! b8 |) TWorkbooks.h
0 a: L4 \$ C. i" Z工作簿的容器,里面包括了Excel应用程序打开的所有工作簿。
2 o% s; K5 s: ]6 }' @% r_Workbook
6 {0 \7 J  Z$ g1 `& E' pCWorkbook
- q4 J2 z5 U% g# DWorkbook.h
# u* e; N- x! |- w1 ^8 x单个工作簿。$ K' P& k, {" v" x
Worksheets
9 ^- P3 ?% H6 q+ [CWorksheets  e2 `& P% u$ y) f! T2 t
Worksheets.h7 U0 d8 H$ @* ~- u; c; l! R% ]2 P
单个工作簿中的Sheet表格的容器,包括该工作簿中的所有Sheet。
6 I* ^+ m. F1 Z! R6 k7 x_Worksheet) m9 }1 T5 l5 G1 Z( F
CWorksheet
& s3 s$ Q+ G0 YWorksheet.h
/ p4 }7 C, g/ z, U+ C; S5 r: D1 a! E单个Sheet表格。
5 _$ W; Y% v& [" a/ u4 qRange
/ S( I% X$ {1 e* q3 e# lCRange, m% m; c  H. e' d2 Y* l
Range.h
2 {& G& f( F- r. S4 R6 F; [) d一定数量的单元格,可对单元格进行单个或多个单元格进行操作。' h3 a$ s- B. Z( [4 K2 t0 i! y
  ! P, O2 ^8 V1 d0 J$ N& m- x
3、导入Excel的整个类型库' }# s: d; X" e; O4 S" D8 ^
接口对应类只是对接口的属性和方法进行了封装,而Excel中的数据类型,如枚举类型却并为并不能使用,因此,为了更方便的操作Excel,还需要导入Excel的数据类型。% u' e& e$ s0 r; b" W, o
通过查看导入接口对应的头文件可以发现,在所有导入接口的头文件中,都会有这么行:+ T! |) m) [, L+ w9 z
#import "D:\\Program Files\\Microsoft Office\\Office12\\EXCEL.EXE" no_namespace
, Z8 G' b  o/ v- U+ ]. w这行代码的作用是导入Excel整个类型库到工程中。
, b2 P! z& I* w" p  j由VS2010自动产生的导入代码存在以下几个问题:( G- C( b9 ?/ F, a  V& I( Y
(1)如果导入了多个接口,每个头文件都会把类型库导入一次,如果引用多个头文件,会导致类型库重复导入。
2 l' p# j; j1 t7 Q" ?* m& V, J(2)Excel类型库中有些类型会跟MFC类库的某些类型冲突。
2 S' j9 r7 Y/ I% m- d, D(3)Excel类型库的某些类型跟其他Office和VB的某些库相关,如果不导入相关库,将导致这些类型无法使用。。. ^0 V9 O- C* }, P* \
以上三点问题的解决方法如下:
5 n- p9 {& X6 t(1)仅在_Application接口对应头文件中导入Excel类型库。/ N4 b% n; ~* w& i: p+ d6 G
(2)对冲突的类型进行重命名。
0 O( M. x% h2 x: t6 ^(3)在导入Excel类型库之前,先导入Office和VB的相关库。* A3 G+ L% V4 A! T
更改后的导入类型库的代码如下:. D7 W1 P9 {, L& K9 N1 l1 m
  
% N& r8 b' J% ^/*导入Office的类型库*/
# z: O$ ~7 Q* U7 ~+ Q7 ?#import "C:\\Program Files\\Common Files\\Microsoft Shared\\OFFICE12\\MSO.DLL" \
% C9 L% E4 ?5 b9 @rename("RGB", "MSORGB") \; B; A: |) U' ?( N& P2 v
rename("DocumentProperties", "MSODocumentProperties")  I$ B0 e+ s" q& B
using namespace Office;; u6 ~( D, v& m1 S& ?6 y# t1 V  b
  - O, M/ u1 E3 `8 ^
/*导入VB的类型库*/- v" d$ q2 _: a. ~4 K! y! i
#import "C:\\Program Files\\Common Files\\Microsoft Shared\\VBA\\VBA6\\VBE6EXT.OLB"; g- D7 r2 I1 L3 ^
using namespace VBIDE;
- s" v! R4 V+ M3 S! B/ u2 f) v  
2 O5 a/ A& ^+ h3 m2 D3 @* Z7 V. R/*导入Excel的类型库*/
1 m0 V( R$ ?# ?$ X  S- y#import "D:\\Program Files\\Microsoft Office\\Office12\\EXCEL.EXE" \& Y& Q0 H9 ]$ `6 B- |
rename("DialogBox", "ExcelDialogBox") \' W3 `$ O, S, D, t8 M+ z# n# v
rename("RGB", "ExcelRGB") \1 @0 l) G; i/ S4 [- B
rename("CopyFile", "ExcelCopyFile") \
& [( J3 K8 }3 A/ n* Grename("ReplaceText", "ExcelReplaceText") \
; K) K4 S& C; C3 K4 D$ \" nno_auto_exclude
: }" t" t# W1 F0 G7 PUsing namespace Excel;
8 p7 m8 W: D0 d  x, P) k1 h    u/ _" i4 C1 W
编译程序后,会在DebUG或Release目录下生成三个文件mso.tlh、vbe6ext.tlh和excel.tlh。通过打开文件可知,该三个文件的命名空间分别是Office、VBIDE和Excel。导入了Excel的整个类型库后,就可以使用Excel中的所有类型了。8 u- d1 }6 e* E) G; f4 Y
  
. j6 o" {* @& ~( g! G4、操作Excel步骤. K- b4 L+ a7 i4 E
操作Excel的主要步骤如下:
) C8 x* K& ?, |(1)创建一个Excel应用程序。# b1 U4 i  y8 `1 Q- f( F- ~
(2)得到Workbook的容器。, o$ o  I+ T. l
(3)打开一个Workbook或者创建一个Workbook。! R3 P, X8 j% z
(4)得到Workbook中的Worksheet的容器。& G6 J2 J* w' h) Q$ t, M+ [
(5)打开一个Worksheet或者创建一个WorkSheet。
0 q9 |1 w7 k0 y! o9 Q. C(6)通过Range对WorkSheet中的单元格进行读写操作。
4 e8 M  d  @2 o" D(7)保存Excel。
" b% p/ O& |% I! F& r(8)释放资源。
8 u# X% y, J; V3 `3 h$ r9 i  
. T0 |: I' Y6 i6 u5 |8 y- @5、批量处理Excel表格  c' c; K3 w5 C; |% w" U
VC通过OLE/COM操作Excel,是通过进程间的组件技术。因此,每次读写Excel中的单元格时,都要进行进程间的切换。当数据量大,如果一个单元格一个单元格的读取,主要的时间都花费在进程切换中。因此读取多个单元格,将可有效的提高程序的运行效率。! M) o9 d8 I+ z3 F
对多个单元格的读写操作可以通过CRange中以下两个成员函数来完成。
. K1 F( q6 K0 `7 x+ \7 R7 LVARIANT get_Value2();5 e6 N8 @) n1 {
void put_Value2(VARIANT& newValue);
5 |) P1 s& n& |其中,输入参数newValue只要输入一个二维数组,即可实现向Excel中一次写入多个单元格的值。' N& V' D- o$ N; a6 f
其中,VARIANT中实现二维数据的方法可参考) }3 l  N7 u' t- ~, l
http://www.cnblogs.com/xianyunhe/archive/2011/09/13/2174703.html+ d* _: v! o4 x
当然,在对CRange类进行操作之前,要设置CRange类对应的单元格。+ O- q( O" G- }% v
  + e9 _# Z# O; W+ N7 H  a( t2 c; A
6、Excel表格的保存
+ b( z1 P+ D' o7 p(1)如果要保存打开的工作簿,使用CWorkbook类的Save函数就可以保存工作簿,原文件将被覆盖。
# N/ g! N/ g" `9 Y, h* c5 J(2)如果是新创建的工作簿,或者是要另存为,可使用CWorkbook类的SaveAs函数。5 a. ^/ t- ^/ D- t- D( @- x
SaveAs的参数比较多。其中,第1个参数是设置要保存文件的路径;第2个参数是设置文件的格式,可在MSDN中查看枚举类型XlFileFormat来了解Excel的文件格式。经过测试,在本文所用的测试环境中,Excel2003的文件格式是xlExcel8,Excel2007的文件格式是xlExcel4。
7 Q( E2 o2 |: B. i: S  D9 Y9 i3 m  
  ?+ v# m/ Z* K+ b1 h+ g7、获取当前Excel的版本
7 f3 X2 [/ v5 w3 d可以通过CApplication的get_Version函数来获得Excel的版本,其中,Excel2007的主版本号是12,Excel2003的主版本号是11。
/ S) E( Y+ v5 N+ v6 N( u* e  ' H. X7 ]3 j" H5 P% Q  h; Q2 b$ n2 A
8、示例源代码8 ^% l4 n& E- z- K* x5 M
主要代码如下:
) C2 Y8 l' H- J5 a1 \- V1 W& B  
3 l2 [8 H/ L0 A/ B
' V  m  H6 @5 [6 E) m0 t# ?
! L' |! P5 [  C! w    m_LisTCtrl.SetExtendedStyle(LVS_REPORT | LVS_EX_FULLROWSELECT);- m: D: z, }7 y8 @

: [5 o1 s+ n3 d1 l+ ~! l3 a    CApplication ExcelApp;
+ X# E& |0 ~4 q) J/ t- p    CWorkbooks books;$ G$ {1 y+ K: n$ F/ Z- Z% v
    CWorkbook book;+ T7 ^. f" ], R+ w5 ]( x, p- P) ]
    CWorksheets sheets;8 L4 V3 l  N# G  N/ S
    CWorksheet sheet;6 }4 V/ W. k& I/ p' K- O- n
    CRange range;
+ D- `$ g- [  _6 g: z1 y    LPDISPATCH lpDisp = NULL;1 S6 G1 S3 i5 U9 C/ r& ]
- x. R3 D  b6 y! f3 X1 N( ?
    //创建Excel 服务器(启动Excel)$ ?2 v5 @2 [# k9 b1 Y- e
    if(!ExcelApp.CreateDispatch(_T("Excel.Application"),NULL))- Q$ H/ C# j4 b- f' a# U6 e
    {
5 q& G# ^( K) s  ]% I        AfxMessageBox(_T("启动Excel服务器失败!"));+ _- P/ H( Z! O" s
        return -1;$ P5 m1 J+ F& D7 u2 S0 z
    }. ]1 p6 H2 H" N

5 w- u4 I  i, z/ b5 r/ a    /*判断当前Excel的版本*/: W4 U% u  W( @7 ^3 L# l
    CString strExcelVersion = ExcelApp.get_Version();+ H7 y( N* J7 j: \
    int iStart = 0;
# O; B+ W, P, w) u: o/ \$ D; |( J2 P    strExcelVersion = strExcelVersion.Tokenize(_T("."), iStart);) ~8 _: b1 T* w" G' f" y3 s
    if (_T("11") == strExcelVersion)
; `6 b5 O% V8 _/ e    {
3 m; e9 h, w" M: [& L& G/ U        AfxMessageBox(_T("当前Excel的版本是2003。"));
2 I* X2 O- M2 w5 o    }
* d* E* w3 }/ w, j% @    else if (_T("12") == strExcelVersion)( J4 y1 L* V2 j: b$ \$ a
    {: v: r$ i, ~6 v- P  c- B
        AfxMessageBox(_T("当前Excel的版本是2007。"));( q. Z! d: W9 f7 }1 s* ~7 |0 _
    }
1 A- N$ y) Y1 g" ^$ Q2 w0 a    else
# A: Y+ t( ]" R2 [# @9 _$ t# i    {
  f' r6 I0 p8 I9 Q) K: K# |, w8 M0 \" l        AfxMessageBox(_T("当前Excel的版本是其他版本。"));! Y( T+ i, n4 R
    }- w- x% o- d3 p% I' W$ g
- W4 e' F2 R' S% H3 Q, n5 j% R
    ExcelApp.put_Visible(TRUE);
* ?. G) ?( b0 u! A8 E4 b$ C4 k7 @8 n9 U    ExcelApp.put_UserControl(FALSE);
! j* i7 H' H! ~' N! n# v0 O5 ^" o1 T+ V" x7 U$ |0 J
    /*得到工作簿容器*/
9 z- r% Q6 o7 ~0 m3 K( V4 L9 q  q    books.AttachDispatch(ExcelApp.get_Workbooks());
9 F! I2 v4 r) t, V2 d$ z& E1 y: @, j! G$ ^; ^* }  Q
    /*打开一个工作簿,如不存在,则新增一个工作簿*/1 H" E; a. G) v4 }0 r1 u" _4 G
    CString strBookPath = _T("C:\\tmp.xls");1 y: d) F1 G% [8 P. {& f" T: b
    try# B1 G9 V9 d% n, l( R+ W8 t4 N* y
    {
$ l+ @' y9 T; C) L+ U        /*打开一个工作簿*/9 r' _1 \/ ^" u) _( H) G; l
        lpDisp = books.Open(strBookPath,
, ]3 [3 i% ~) \7 d% ?! T: ?0 i            vtMissing, vtMissing, vtMissing, vtMissing, vtMissing,
, r2 K/ _8 B) C2 s0 v            vtMissing, vtMissing, vtMissing, vtMissing, vtMissing, 3 P; r, _! _3 d& G8 Q& O8 E
            vtMissing, vtMissing, vtMissing, vtMissing);
8 t6 F7 B; U2 ~0 T        book.AttachDispatch(lpDisp);
- B; u# G. t# d+ z% `7 c! T    }
# j5 C6 R1 g+ g; s) b: I    catch(...)6 o  S; b8 T9 b: s. k) d2 S
    {
& E2 o# M5 _6 p  M& M- a4 c6 U        /*增加一个新的工作簿*/
4 y( g0 V2 h6 M, V9 g# c! Y1 g% n3 U# h1 p        lpDisp = books.Add(vtMissing);0 S. L# A/ R2 D+ i' Z4 C0 R' h
        book.AttachDispatch(lpDisp);
5 U0 z0 m  {6 _    }
! E& @+ t7 {( o3 j$ _5 }     
& G0 o  G- Y6 K" h; J! M
7 H9 Z: w1 S( v) F6 Z) l    /*得到工作簿中的Sheet的容器*/
* j: v& r, D2 |' F8 g    sheets.AttachDispatch(book.get_Sheets());
, C! S( ]- e( I4 f4 D" h& N# I; c% J9 t' \! g1 v; J3 c
    /*打开一个Sheet,如不存在,就新增一个Sheet*/
. f* q5 g, m- H2 v% {  F) {/ _5 I+ v    CString strSheetName = _T("NewSheet");
' J* l$ }0 S' `, G7 t- p& r7 R" W; Y    try+ ^8 r. j+ K9 B! D3 e
    {" c0 a: H3 G( c5 I
        /*打开一个已有的Sheet*/
  C5 s. p. i: _5 O. h$ S3 |        lpDisp = sheets.get_Item(_variant_t(strSheetName));' ]1 [' |0 M2 ]
        sheet.AttachDispatch(lpDisp);9 k- J) e: i! @2 k  K3 Y
    }( f2 O7 e5 c' Q  u; e9 D! F
    catch(...)
5 C! y  s8 ]1 x% ^' X6 p    {
  K' x6 \) ]; [. U- R        /*创建一个新的Sheet*/8 P) e- C; q4 @1 C$ H
        lpDisp = sheets.Add(vtMissing, vtMissing, _variant_t((long)1), vtMissing);
3 P* W( a9 t8 S3 a8 {1 `: A        sheet.AttachDispatch(lpDisp);  r. d  x0 i+ E/ X  k& Z
        sheet.put_Name(strSheetName);: @; A0 A9 T/ [% g3 t$ ]7 Q
    }7 p6 }3 R# ?: O( Y4 ?

3 S6 t+ t( ~' Z6 _8 m4 l- S    system("pause");
) G% Q  s: Q2 R/ m' F% Q' G, O) h& ?2 j. \% z5 z
    /*向Sheet中写入多个单元格,规模为10*10 */, _4 e- r, q  @6 F
    lpDisp = sheet.get_Range(_variant_t("A1"), _variant_t("J10"));
( h; C$ Q: a3 z  m) y; l; t; k    range.AttachDispatch(lpDisp);# U" L5 P  G8 H  o$ w5 o. c
/ q* H8 W: @2 O. t5 V) e
    VARTYPE vt = VT_I4; /*数组元素的类型,long*/- ]) x6 ~; _% E% l
    SAFEARRAYBOUND sabWrite[2]; /*用于定义数组的维数和下标的起始值*/8 v' B. T# Y( v& Z6 M1 R
    sabWrite[0].cElements = 10;  ~& X1 `; ^7 x$ L  B. T
    sabWrite[0].lLbound = 0;
  y1 a3 P" z, w7 L    sabWrite[1].cElements = 10;' \. \$ W5 n- }" Q- o1 C
    sabWrite[1].lLbound = 0;
7 Y8 t+ V- U8 k3 |! U
& G( A: ]/ e7 |. b: q    COleSafeArray olesaWrite;: U+ ^  P5 ]1 }6 m# [
    olesaWrite.Create(vt, sizeof(sabWrite)/sizeof(SAFEARRAYBOUND), sabWrite);6 O1 H9 N3 m+ n) L4 e( v
; W) W  C; W& K8 f3 Z
    /*通过指向数组的指针来对二维数组的元素进行间接赋值*/
; |- j/ l* U. r* L- @6 p    long (*pArray)[2] = NULL;% w6 w* L+ d) T5 u) r
    olesaWrite.AccessData((void **)&pArray);
0 L2 v+ L2 c% c* R) m* s    memset(pArray, 0, sabWrite[0].cElements * sabWrite[1].cElements * sizeof(long));
' }5 [' T8 ^( L+ k% V; C" T7 v! l% z3 r$ N
    /*释放指向数组的指针*/+ R2 w3 P! @6 q% {7 v
    olesaWrite.UnaccessData();% M. S% n5 m$ _- M2 j- @
    pArray = NULL;
/ _) S- e) W! x% B, ?! Q# Z+ C/ i4 i; \" c4 B! a3 s( h
    /*对二维数组的元素进行逐个赋值*/
" S) @" @  D6 B* G! J# b: A9 E    long index[2] = {0, 0};
* T) S* z7 _( \9 E    long lFirstLBound = 0;0 b( G* n' I0 v5 n* ^9 r
    long lFirstUBound = 0;
# [$ M& ]! ~( w$ z    long lSecondLBound = 0;
! y3 C- m$ {1 f    long lSecondUBound = 0;
) M: n! A0 S0 H    olesaWrite.GetLBound(1, &lFirstLBound);9 ?9 g$ p7 B$ k3 |+ q
    olesaWrite.GetUBound(1, &lFirstUBound);
& `; {, P6 O* A8 J$ |7 u& H* j/ ?    olesaWrite.GetLBound(2, &lSecondLBound);; I* c, a% ]  I7 s
    olesaWrite.GetUBound(2, &lSecondUBound);
0 f3 o; J. {$ f  Z    for (long i = lFirstLBound; i <= lFirstUBound; i++)/ S* v: R0 ~$ t1 I4 C  u
    {& }$ S* R! e  J: Y
        index[0] = i;  m, ^4 b9 I# @4 ~& u
        for (long j = lSecondLBound; j <= lSecondUBound; j++)$ X6 l' n: b* l0 l& O# r" L
        {
/ C0 M, A- ^. o! G+ @            index[1] = j;, A4 Y5 v9 ?; V1 K2 \
            long lElement = i * sabWrite[1].cElements + j;
0 L+ B6 h5 g- ]            olesaWrite.PutElement(index, &lElement);! k8 X. g  T. M  {
        }
3 L- n" b3 o8 ?! _# F6 N7 M    }' l1 }8 C) X1 _# [- n( e9 _9 \
, J$ h$ J7 K9 j/ r9 {" T
    /*把ColesaWritefeArray变量转换为VARIANT,并写入到Excel表格中*/
% c+ v' ^0 }; Q    VARIANT varWrite = (VARIANT)olesaWrite;+ \! Q. {' U3 b7 Y) d$ E
    range.put_Value2(varWrite);
& x: O; F( f! A% g2 b. I2 f; U% ~
    system("pause");
- [+ V& w* W" y* X1 ]5 _; I3 z1 U1 G# o* u- j9 Y% n) o
    /*根据文件的后缀名选择保存文件的格式*/2 a* E2 {) X3 _3 }5 @7 d7 M$ [
     CString strSaveAsName = _T("C:\\new.xlsx");( P; }8 C6 R# @( u6 `
    CString strSuffix = strSaveAsName.Mid(strSaveAsName.ReverseFind(_T('.')));% K+ m6 t0 m1 L! @4 r
    XlFileFormat NewFileFormat = xlOpeNXMLWorkbook;* f5 k# Y: f$ s' K* o/ g* ~; _$ F
    if (0 == strSuffix.CompareNoCase(_T(".xls")))
. Q7 A: n* A8 H- T. s( I: f/ Y    {6 s9 s  S5 I. ?6 ?$ i8 I- a
        NewFileFormat = xlExcel8;
1 ^. @+ }7 {" q  Q4 i6 Z; n3 |    }
0 V$ W/ h( j2 t) R    book.SaveAs(_variant_t(strSaveAsName), _variant_t((long)NewFileFormat), vtMissing, vtMissing, vtMissing,
0 Z" c' t4 F( f* ]: o% V% P* R) _        vtMissing, 0, vtMissing, vtMissing, vtMissing,
3 E5 N$ f" W+ k: J% A3 `& [" w2 f. P        vtMissing, vtMissing);
# L1 a$ [0 U: W4 w
1 X% v  H  n$ _( V    system("pause");
8 Z. R* ^. S) j) d9 x
  V% T- j8 a7 Y* X  R7 K    /*读取Excel表中的多个单元格的值,在listctrl中显示*/6 m) v; R; ?, O8 v' M* \
    VARIANT varRead = range.get_Value2();
- Y, V# T9 N, M1 c    COleSafeArray olesaRead(varRead);
, b& E- {5 @+ z! X
/ N: ^6 _5 y9 r" F    VARIANT varItem;
# |9 x3 ]& x+ Y: v    CString strItem;
; Y3 J+ [. T& N" o0 O  B    lFirstLBound = 0;
: q: w1 o9 I& Y$ F    lFirstUBound = 0;3 B4 w1 W! b# c1 ?' o
    lSecondLBound = 0;, A( t6 O1 y; |9 ~* D+ [
    lSecondUBound = 0;
' K& h! Q' I6 h    olesaRead.GetLBound(1, &lFirstLBound);
+ j) U! |7 u- L  U& G    olesaRead.GetUBound(1, &lFirstUBound);, w7 R. J3 ^9 R
    olesaRead.GetLBound(2, &lSecondLBound);. N7 l% A/ `) @7 s* U
    olesaRead.GetUBound(2, &lSecondUBound);
! g3 t! b) H+ p4 h" Z' [( v  w    memset(index, 0, 2 * sizeof(long));' C8 V3 P' Z6 j4 i2 b1 `3 }5 y* h
    m_ListCtrl.InsertColumn(0, _T(""), 0, 100);
' J9 t, t% `' u3 {+ e    for (long j = lSecondLBound; j<= lSecondUBound; j++)0 s0 I# P! E: V& m+ \; {; N2 e
    {
/ K5 ]9 i. Y. s5 i: }        CString strColName = _T("");0 F1 b# V: N. _% P/ K
        strColName.Format(_T("%d"), j);
0 n3 R* w5 c" g3 @        m_ListCtrl.InsertColumn(j, strColName, 0, 100);
4 K' C# y4 \0 N/ F- c    }9 P4 f  X+ U+ m1 i
    for (long i = lFirstLBound; i <= lFirstUBound; i++)4 |3 r% J5 C9 p; L4 n
    {
' q) G  d+ n$ x+ ?8 j$ u        CString strRowName = _T("");
6 q  h/ p5 H8 O  @8 {: J        strRowName.Format(_T("%d"), i);0 r/ f! B4 Y/ o/ G) o6 {5 u' y2 J
        m_ListCtrl.InsertItem(i-1, strRowName);6 m; @/ c! }" C$ O( m; n9 R% F0 p

' `% V/ V% c3 C' e        index[0] = i;( v$ I$ x7 T- z( j
        for (long j = lSecondLBound; j <= lSecondUBound; j++)0 |* o8 U- J# q. j3 f& f& j! O7 R
        {% c5 w: x& E7 o% L/ v2 I
            index[1] = j;
. f% P: ]# h! {9 \: n* w4 ?            olesaRead.GetElement(index, &varItem);
9 X7 Z' }) g# t  b. ]' d2 k& ~
, Y, q9 o( ?/ U& e1 y- C            switch (varItem.vt)
4 X2 A& L5 n" e4 a6 \            {
& E, r2 W0 K$ G3 z" A4 r' \) u            case VT_R8:
5 W- m# s5 y, d7 X' \                {
) H! [' B4 j' ^. D( _+ ]                    strItem.Format(_T("%d"), (int)varItem.dblVal);
; U* a; F$ r' ]( P( Q+ F! |3 a: ?: X                }3 b9 y' U. r8 M+ L# U% D5 s

- N- i0 w- J7 \, g5 P  o+ z            case VT_BSTR:
* y2 f; b. Q9 G; Z2 @                {; Y- [( ~0 w* v* b
                    strItem = varItem.bstrVal;
  R) J# `7 d, D$ E  _5 j& [  w                }4 ]: h5 J' G& n0 \- w

: b. Y5 z: J" M+ L$ Y8 J            case VT_I4:
5 U7 S6 `' l6 ~; n' `                {
+ \3 }# g) t3 }5 e                    strItem.Format(_T("%ld"), (int)varItem.lVal);
5 E+ J: r! `+ j4 F, a, {  H                }1 u. \4 J* H2 O& |1 g+ b

' T1 U9 I% f- B8 L# w            default:
6 S' r: X% l- T& z+ T( ]* O  l: V                {+ O4 d4 f+ `+ u, n  ~
+ y8 d$ e+ L" B9 Z- k2 y
                }
7 [( R0 }  v. {            }6 Z- u" R2 b+ J( e( h, U( y1 ]3 M
- C7 x# x* l, g/ R
            m_ListCtrl.SetItemText(i-1, j, strItem);
# f. m" d8 n) d' {! ?        }
( W& m6 P0 R  b- j% i# U2 }% g    }
3 _( C' n- a4 j- r" T) \1 a3 X; [& G# H+ F  g$ ^4 q
" I$ o+ p" [% v7 l

/ g' A0 `9 O& p! ]0 K    /*释放资源*/
# C- P# K; n, V    sheet.ReleaseDispatch();
1 ~6 y- {+ }5 f    sheets.ReleaseDispatch();1 [. w9 R5 K/ C* u6 c
    book.ReleaseDispatch();
1 s8 Z5 b- s0 X    books.ReleaseDispatch();
3 G2 h+ q" A. X$ P4 }    ExcelApp.Quit();' j' l. k0 L# z
    ExcelApp.ReleaseDispatch();
9 O0 Y: B3 ?$ ]1 y
% X3 q3 h( r, J9 N) S
上海点团信息科技有限公司,承接UG NX,CATIA,CREO,Solidworks 等CAx软件,Teamcenter,3D Experience等PLM软件,工业4.0数字化软件的实施\二次开发\培训相关业务,详情QQ 939801026 Tel 18301858168 网址 www.diantuankj.com/ doTeam.tech
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 注册

返回列表 本版积分规则

  • 发布新帖

  • 在线客服

  • 微信

  • 客户端

  • 返回顶部

  • x
    温馨提示

    本网站(plmhome.com)为PLM之家工业软件学习官网站

    展示的视频材料全部免费,需要高清和特殊技术支持请联系 QQ: 939801026

    PLM之家NX CAM二次开发专题模块培训报名开始啦

    我知道了