PLM之家精品课程培训

PLM之家精品课程培训

联系电话:18301858168   |   QQ咨询:939801026
NX二次开发培训

NX二次开发培训

UFUN/NXOpen C++和实战案例

适合初级入门或想深入了解二次开发的工程师,本培训结合ufun,NXOpen C++,大量的实例及官方内部的开发技术。
公众号二维码

关注公众号

点击扫描二维码免费在线高清教程

课程详情
Catia二次开发培训

Catia二次开发培训

市场需求大,掌握核心技术前景广阔

Catia二次开发的市场需求大,人才稀缺。掌握开发技能潜力巨大,随着经验积累将在汽车、航空等领域有所作为。
B站二维码

在线原创B站视频

点击关注工业软件传道士主页

课程详情
Teamcenter培训

Teamcenter培训

全方位培训,从基础应用到高级开发全覆盖

涵盖用户应用基础培训、管理员基础培训、管理员高级培训及二次开发培训等全方位内容,由多年经验讲师打造。
QQ群二维码

加入同行交流

点击扫描二维码加入QQ群

课程详情
×

PLM之家plmhome公众号

课程涵盖: PLM之家所有原创视频

×

关注B站视频

所有高清视频一览无余,全部在线播放学习

×

加入PLM之家QQ群

同行交流,疑问解答,更多互助

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

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

[复制链接]

2014-11-8 08:13:41 6515 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表格的操作。5 T' e4 Q! V8 G+ [$ n, l  K
  
3 t6 K8 S" k3 t9 a# ~" G本文源码的应用环境说明:/ f$ ~2 a7 F; u- r5 h, O9 J+ T
Windows XP SP3
& {' \, s2 J6 Z% Z' T3 ?Microsoft Visual Studio 2010
4 B: A7 B2 ?7 z# L/ S' B, d+ BMicrosoft Office Excel 20073 P& P  e# Q  \3 R
  / {, J- m: O& H! V9 u$ B2 R  B7 S
1、添加OLE/COM支持。$ S$ n% M: t  l2 a# h8 O8 u: ?
首先,应用程序必须添加对OLE/COM的支持,才能导入OLE/COM组件。
0 X! |, P2 U( v本文使用的是MFC对话框程序,在创建工程的向导中选中Automation选项即可为程序自动添加相应的头文件和OLE库初始化代码。; X# c: W, F" L% m- l+ D* ?
通过查看源代码,可以知道在stdafx.h的头文件中,添加了OLE/COM很多类所需添加的头文件。
$ x; ~7 v2 J, b#include <afxdisp.h>        // MFC 自动化类8 c, [5 I  b) M) d* l! X
同时,在应用程序类的InitInstance函数中,添加了OLE/COM的初始化代码,如下所示:* y8 v  s& g- P& p: z
// 初始化 OLE 库
- I1 \. l4 {$ L' X8 j' Y& ]9 h  ~( K3 [if (!AfxOleInit()), Y2 [7 V5 G, b  ^( V
{' ]' |7 ]- ]( ?( L! {! v! ~" {7 h7 V
AfxMessageBox(IDP_OLE_INIT_FAILED);7 B, `- G, ]& O) }+ g
return FALSE;
1 E7 Y' p) c' n5 A- U# ?7 G4 f" n}
3 I3 R+ x( h) }% H9 b$ s3 x  % a8 f3 m7 p3 I' d0 S- P% w- z
2、导入并封装Excel中的接口
- F0 v  X+ {# a; d( Z# |3 b+ {Excel作为OLE/COM库插件,定义好了各类交互的接口,这些接口是跨语言的接口。VC可以通过导入这些接口,并通过接口来对Excel的操作。5 n* b# E% ?2 v
由于本文只关心对Excel表格中的数据的读取,主要关注几个_Application、Workbooks、_Workbook、Worksheets、_Worksheet、Range等几个接口。Excel的各类接口的属性、方法可以通过MSDN的Office Development进行查询。
: R% o4 H5 N. Q5 D+ Z! JVS2010导入OLE/COM组件的接口的步骤为:Project->Class Wizard->Add Class->MFC Class From TypeLib,先选择要导入的组件所在的路径,即Excel.exe所在的路径,然后再选择
( r" p( h: C/ B3 w- \2 B要导入的Excel类型库中的接口。
: I' g2 E3 }$ p在完成接口导入后,VS2010将自动为导入的接口创建相应的实现类,用于对接口属性和方法的实现。由于标准的C++没有属性访问器,只能添加一个两个存取函数来实现对属性的访问,通过在属性名称前加上get_和put_前缀分别实现对属性的读写操作。即,由VC自动完成C++类对接口的封装。
; R) @4 D0 S# A" c7 j  
+ s& m# P! a: v! I, p本文所导入的接口对应的类和头文件的说明如下所示:: B& z( M8 b% ]7 u3 {; J8 X! z
  
# Z! C5 l0 X! `' x: S: `Excel接口
, _* M2 T: W1 z$ d6 s导入类( \4 f8 {9 S" m; J9 M
头文件
( \4 n4 f# e1 C& r! {1 t. A' i- C说明+ r0 t1 f, [8 C7 W" \3 c
_Application3 k/ c2 ]% K- C
CApplicaton
) {+ T+ ?. c5 y+ ^2 E# qApplication.h
2 ?* _- n" E$ _! SExcel应用程序。( H! G! Q  _% [8 N) [6 d# K6 _
Workbooks8 A; l5 _$ I- [+ U1 l2 q' ]2 f+ y
CWorkbooks: Z" D+ r, z$ r7 i' I7 ]
Workbooks.h
% ]# P* O7 G9 g% }. j- K- S4 ?工作簿的容器,里面包括了Excel应用程序打开的所有工作簿。6 m4 y/ o+ N$ L
_Workbook
# S- g* D5 D" {! C1 Y' o+ H* DCWorkbook
2 b+ y+ m% Z6 KWorkbook.h8 }2 g; m( ^" d" f& C3 H+ W/ ^
单个工作簿。
1 W8 j( G0 C7 W. p* [Worksheets+ u+ w5 @* f2 ]. S
CWorksheets
/ R/ u: a) t* f/ ?% I  b. u; bWorksheets.h
6 K9 ?' o# H$ u3 D& ^单个工作簿中的Sheet表格的容器,包括该工作簿中的所有Sheet。
" V/ y/ D0 |$ s: F3 b& y_Worksheet/ v$ q( U- J$ I) l5 g" {8 O
CWorksheet
9 O, V4 f+ ]! d7 ?Worksheet.h# Q! W: H7 g) u
单个Sheet表格。
+ K" P) @3 Q9 I# ]. a& Y8 E7 m$ CRange5 f* {4 W( ^5 g: M" L* z4 ^1 [
CRange
: W7 P+ s" z0 k7 o# L! SRange.h
4 f3 E7 W* i8 k一定数量的单元格,可对单元格进行单个或多个单元格进行操作。6 s+ f; `, F( |
  
- D/ x& O" E6 ~! b3 U3、导入Excel的整个类型库
8 {, a1 k2 g3 @- R. d% h接口对应类只是对接口的属性和方法进行了封装,而Excel中的数据类型,如枚举类型却并为并不能使用,因此,为了更方便的操作Excel,还需要导入Excel的数据类型。/ y6 q& j& L4 h' }
通过查看导入接口对应的头文件可以发现,在所有导入接口的头文件中,都会有这么行:! u  e/ }/ j% Z5 z$ u( s
#import "D:\\Program Files\\Microsoft Office\\Office12\\EXCEL.EXE" no_namespace: c; u6 r9 \6 Z/ b0 Y% k' K: D2 ]4 W
这行代码的作用是导入Excel整个类型库到工程中。
" T& f6 u7 t5 m4 c1 Z由VS2010自动产生的导入代码存在以下几个问题:
/ L' y. Q' x2 ~* H8 v(1)如果导入了多个接口,每个头文件都会把类型库导入一次,如果引用多个头文件,会导致类型库重复导入。% u1 E" h1 Z( C- }. w
(2)Excel类型库中有些类型会跟MFC类库的某些类型冲突。
+ S0 a' j* B8 h. V/ d* H(3)Excel类型库的某些类型跟其他Office和VB的某些库相关,如果不导入相关库,将导致这些类型无法使用。。5 Y* |8 C& b/ P5 e
以上三点问题的解决方法如下:. @2 f- m* w! k4 V! c2 m" u
(1)仅在_Application接口对应头文件中导入Excel类型库。
' m3 f) b: l! h5 i$ l' {2 ^(2)对冲突的类型进行重命名。
5 t. c! H+ [+ x5 t% j7 m  L(3)在导入Excel类型库之前,先导入Office和VB的相关库。
* Q- h( v" e5 s- p# d6 {4 J) i% t更改后的导入类型库的代码如下:7 O5 c' t# P7 i! Z$ F
  / @+ S1 w- ?  `" Z- j
/*导入Office的类型库*/
* x- J, ]  {+ N, \+ }4 A#import "C:\\Program Files\\Common Files\\Microsoft Shared\\OFFICE12\\MSO.DLL" \
  U- \# E; i1 B4 f. `" Drename("RGB", "MSORGB") \
: W; M: n* i" W7 k* A+ x- ~rename("DocumentProperties", "MSODocumentProperties")9 D* z# O& C' D7 Y, S! T: o5 ^+ _
using namespace Office;: ]; o  S6 \$ v9 U
  
* r; n) u: X/ m# ]/*导入VB的类型库*/
+ z( j/ u9 T  p$ W2 R) C/ N#import "C:\\Program Files\\Common Files\\Microsoft Shared\\VBA\\VBA6\\VBE6EXT.OLB"
; E1 g$ r3 ~! w* q7 ~+ ausing namespace VBIDE;: ^/ [) s! T+ A& ~% G2 b6 I
  0 Z! t$ T- n  C
/*导入Excel的类型库*/* g* J; O4 I$ w
#import "D:\\Program Files\\Microsoft Office\\Office12\\EXCEL.EXE" \
6 j6 E4 R- M* q% Jrename("DialogBox", "ExcelDialogBox") \! F* h! q4 Y( m: I
rename("RGB", "ExcelRGB") \% p. d/ X3 q8 V& ]# I" ~1 {( o
rename("CopyFile", "ExcelCopyFile") \/ `9 v( f0 A) ?/ q: _0 Z" f
rename("ReplaceText", "ExcelReplaceText") \0 M# \% H4 b1 d9 k& _4 I+ l: p
no_auto_exclude
/ k$ N1 s, C4 f& w. }4 _Using namespace Excel;1 B2 U+ A2 P, a4 ?. d+ K$ I% ~7 e# Q
  
3 J1 i$ f" s- C* n编译程序后,会在DebUG或Release目录下生成三个文件mso.tlh、vbe6ext.tlh和excel.tlh。通过打开文件可知,该三个文件的命名空间分别是Office、VBIDE和Excel。导入了Excel的整个类型库后,就可以使用Excel中的所有类型了。1 w# p3 O& B0 b' o6 J9 \; H+ b8 V6 I
  1 j0 \9 [+ R& C0 h6 A
4、操作Excel步骤1 T+ B1 w& K" c6 u, G1 Z
操作Excel的主要步骤如下:" a- I& w5 q7 ~& ^1 ?
(1)创建一个Excel应用程序。
! d+ z: M$ D  I/ g" C8 A0 z(2)得到Workbook的容器。, t7 F, V' d/ i4 J, @# ^
(3)打开一个Workbook或者创建一个Workbook。+ v) D1 R8 ?- }3 z  D
(4)得到Workbook中的Worksheet的容器。5 g& I' |$ |# H; d' ]) g0 s: R
(5)打开一个Worksheet或者创建一个WorkSheet。1 R. B- t& c: ?" Y# A4 @& v5 P) {
(6)通过Range对WorkSheet中的单元格进行读写操作。
" L9 N% S1 z" b. i4 M(7)保存Excel。
$ t' }+ \7 D9 `: ]+ B(8)释放资源。; R) b- A9 p, V$ [. V
  
# l6 l4 O9 I% B- [* x# O5、批量处理Excel表格. \' R) |- [- d5 Z, Z1 W7 x( j# g
VC通过OLE/COM操作Excel,是通过进程间的组件技术。因此,每次读写Excel中的单元格时,都要进行进程间的切换。当数据量大,如果一个单元格一个单元格的读取,主要的时间都花费在进程切换中。因此读取多个单元格,将可有效的提高程序的运行效率。
* S# F+ c5 E. V对多个单元格的读写操作可以通过CRange中以下两个成员函数来完成。
  Z# z# f# r1 B+ t  P, o. QVARIANT get_Value2();
6 N( |5 P" J9 `" n5 W8 h2 U! Jvoid put_Value2(VARIANT& newValue);' O/ m0 g& T' B  l( `
其中,输入参数newValue只要输入一个二维数组,即可实现向Excel中一次写入多个单元格的值。# f# X/ D( }6 L' }* X+ L2 \& h# O
其中,VARIANT中实现二维数据的方法可参考$ A# H: [9 F& p9 Q
http://www.cnblogs.com/xianyunhe/archive/2011/09/13/2174703.html; C6 t! t: |) K# R  @- L
当然,在对CRange类进行操作之前,要设置CRange类对应的单元格。
7 p) ]) r' u5 j, ~2 j8 ?  0 f- {- S, C" O4 A# U
6、Excel表格的保存
! |: b& h6 m6 e0 L6 R0 s. R(1)如果要保存打开的工作簿,使用CWorkbook类的Save函数就可以保存工作簿,原文件将被覆盖。
4 E6 Q3 ~' [- K, H1 I(2)如果是新创建的工作簿,或者是要另存为,可使用CWorkbook类的SaveAs函数。
- ^% V) e# A) C# u. DSaveAs的参数比较多。其中,第1个参数是设置要保存文件的路径;第2个参数是设置文件的格式,可在MSDN中查看枚举类型XlFileFormat来了解Excel的文件格式。经过测试,在本文所用的测试环境中,Excel2003的文件格式是xlExcel8,Excel2007的文件格式是xlExcel4。  h7 X8 v6 E* F4 f$ s
  2 c, l5 Q0 D5 {$ T
7、获取当前Excel的版本
0 n* K  d3 O4 e! k, Q* y可以通过CApplication的get_Version函数来获得Excel的版本,其中,Excel2007的主版本号是12,Excel2003的主版本号是11。
; c6 \2 k" ~  O1 i! h0 p  
( ^) i# f' s# v8 o8、示例源代码. p8 i  s: C9 u" |$ ^- h4 {( z; T3 F8 i) I
主要代码如下:( ]* ]1 Z% Q3 L1 F, s  s+ K
  ' h" ?7 |, H: k" c2 a

7 ]$ ]+ _3 T# d4 Q3 z
+ ^; Y4 `, E* Q1 {    m_LisTCtrl.SetExtendedStyle(LVS_REPORT | LVS_EX_FULLROWSELECT);/ _  V  f  @6 g

4 V- W/ W; C: F; x5 F( ]5 }( g    CApplication ExcelApp;
- ?7 m" e0 E! X0 }0 G    CWorkbooks books;
+ P/ m. T; {: _5 B* V0 ~    CWorkbook book;
% l* @" m. F8 B0 ]" P7 @; k    CWorksheets sheets;5 y" y; o, @- @$ b
    CWorksheet sheet;
  A! T5 z" ]+ b; o' A4 E+ J    CRange range;
" s2 P# h0 U% u/ [* R# o! |    LPDISPATCH lpDisp = NULL;( E8 I9 }. g- R9 }  l" H
# e. m$ P* a/ a# H
    //创建Excel 服务器(启动Excel)# y' l6 {. \% ]; G9 z8 M
    if(!ExcelApp.CreateDispatch(_T("Excel.Application"),NULL))! t3 W9 z$ K: o# q9 u
    {
. P/ @+ `9 Z" ], q" x6 h        AfxMessageBox(_T("启动Excel服务器失败!"));! u2 E6 ^1 W2 \7 l7 a. y
        return -1;
3 z2 U% N* ]9 N& X    }' h6 J3 g  Z5 Y3 }" x  l8 h9 S
, ]  ]$ ~; L0 L' _9 t/ |4 y. d
    /*判断当前Excel的版本*/& b9 d) ], r8 ?6 }
    CString strExcelVersion = ExcelApp.get_Version();
% Z% K8 T" L3 s. w, ^) `& A0 U    int iStart = 0;
; G+ z- I* f# D! e9 ]    strExcelVersion = strExcelVersion.Tokenize(_T("."), iStart);
4 G4 _6 H, x' A1 P    if (_T("11") == strExcelVersion)
! ?" R/ M, W3 L6 ~1 ?$ }    {
8 G2 o  ?+ f3 }  \: \        AfxMessageBox(_T("当前Excel的版本是2003。"));
+ ^" \% I  k7 e% P/ b    }
, p! u7 @! w- E1 X* f+ W4 e# z    else if (_T("12") == strExcelVersion)
9 C* H  U! I+ d9 B    {
! c) _$ o. m2 L4 F- L6 m        AfxMessageBox(_T("当前Excel的版本是2007。"));
; s0 x! g% J& }$ D: q) v. \9 K8 [3 E9 \    }7 _$ j/ K, ?! n0 t; c" [7 @4 [
    else
1 Z9 N& E9 R9 n; _; ~    {
9 w- i: |8 c2 T' K) ^        AfxMessageBox(_T("当前Excel的版本是其他版本。"));1 }( p) M. w* q; X* q8 S
    }
0 S4 G' e0 t% V  K/ [" F0 j5 f& w. u/ P' @% C" x! r
    ExcelApp.put_Visible(TRUE);
" Q$ z7 T0 ?4 |3 j    ExcelApp.put_UserControl(FALSE);! `' D9 r; v( e/ o5 |1 F) c
# k/ S& p7 p' o' T" z/ w
    /*得到工作簿容器*/
" S2 ^# }. M' Z    books.AttachDispatch(ExcelApp.get_Workbooks());
% u+ J4 ?/ }; R6 ]
+ j, V& n& k4 w3 u0 i    /*打开一个工作簿,如不存在,则新增一个工作簿*/
" I/ l4 f: ~3 e- E6 F& C  n/ Y8 b    CString strBookPath = _T("C:\\tmp.xls");: b- U; M( m; d& M
    try7 A0 B2 q" L8 c" A1 A) t) C- m% c
    {6 Y2 }$ v) F7 W. o9 J
        /*打开一个工作簿*/! m/ S; u: t+ S% f1 v8 i8 y# Z8 l4 [2 l
        lpDisp = books.Open(strBookPath,
9 C* t# X+ ]" g6 ?% K            vtMissing, vtMissing, vtMissing, vtMissing, vtMissing,6 V! D1 J2 H4 s2 {0 e$ R% u6 }
            vtMissing, vtMissing, vtMissing, vtMissing, vtMissing, 6 z2 F4 ?: n3 Q. N
            vtMissing, vtMissing, vtMissing, vtMissing);
7 g8 m8 e* \- |; h  H  J        book.AttachDispatch(lpDisp);. i6 }9 \+ ~- }% z& W  b* b; f% N
    }1 Z. W! f0 i2 @6 A
    catch(...), I  H) O- j3 p- t& C
    {( e% {" Q! A+ \' x4 U# z, U
        /*增加一个新的工作簿*/: X; \1 v7 y  J- l; _+ j% ]+ [, n2 }# m
        lpDisp = books.Add(vtMissing);
% u3 v3 S& X: I6 `* c        book.AttachDispatch(lpDisp);
- {& F" T9 [! x7 _1 N    }
5 v9 O; G2 z& U( h' Q6 _# x     7 I$ |& }6 X- X. g
7 ~4 B6 I- M4 B
    /*得到工作簿中的Sheet的容器*/- g* }: w# r: s: F7 y
    sheets.AttachDispatch(book.get_Sheets());1 a- s; q1 K! y  l0 d
3 S( W9 B; Y3 p1 |; @3 S6 u
    /*打开一个Sheet,如不存在,就新增一个Sheet*/
; T) |2 s$ @2 J5 q$ [: B/ g    CString strSheetName = _T("NewSheet");
+ Q8 w: y8 `5 s) M8 w: E2 H/ U    try4 g0 m7 d' O: k' }7 Y: d
    {  S- y9 w$ |9 ~' f: ^0 A
        /*打开一个已有的Sheet*/
# N. }/ v$ y8 N0 m  t        lpDisp = sheets.get_Item(_variant_t(strSheetName));% L3 `/ {8 Y' r, e# T$ X& F5 }
        sheet.AttachDispatch(lpDisp);# _) \( B6 a: r; L6 E9 ^
    }6 E- V1 @( j3 t. D/ t1 `
    catch(...)1 Z) M3 O5 v& G; ?+ R. N+ d. R; ]
    {
) E) p# E- y+ g! e4 l9 o& N( Y        /*创建一个新的Sheet*/4 a( g, E  e' F) N* ?
        lpDisp = sheets.Add(vtMissing, vtMissing, _variant_t((long)1), vtMissing);
8 b% @; l, _/ S$ _; I        sheet.AttachDispatch(lpDisp);5 n, }7 F/ r  K8 p& K
        sheet.put_Name(strSheetName);7 I; R1 K, S# u7 _4 ~
    }' b" u0 F- z3 R
) E% [5 F6 m0 Q5 T
    system("pause");
4 @) `8 o4 P5 S2 N- X/ P
) h8 C- r6 y8 t. i5 k    /*向Sheet中写入多个单元格,规模为10*10 */
5 t' _& b! t1 {- ?- g    lpDisp = sheet.get_Range(_variant_t("A1"), _variant_t("J10"));
' M3 r; j0 w( w9 P% n5 M' w    range.AttachDispatch(lpDisp);
7 n# ~- A$ u9 l+ j; m8 v% h9 [/ j/ b. _+ T$ ^" q0 q) {0 |1 C
    VARTYPE vt = VT_I4; /*数组元素的类型,long*/0 B, H: ^- P) \3 K! L
    SAFEARRAYBOUND sabWrite[2]; /*用于定义数组的维数和下标的起始值*/) \8 O2 T* x# w+ L  D6 Y; k
    sabWrite[0].cElements = 10;3 w; I2 p: P, s3 g* b" i; z2 {3 w
    sabWrite[0].lLbound = 0;
0 K! \; h4 j/ M. K3 I    sabWrite[1].cElements = 10;! U/ W4 O- C( V$ F. z$ F3 t6 K
    sabWrite[1].lLbound = 0;( t( O" L% j3 {& K8 h
" c8 f6 x, Y8 `0 D5 N1 o  @
    COleSafeArray olesaWrite;
0 V$ J) ~. H* g; F; T6 F/ l& I    olesaWrite.Create(vt, sizeof(sabWrite)/sizeof(SAFEARRAYBOUND), sabWrite);0 a5 {: T0 f8 U6 M5 T0 r
9 b9 f2 P' g$ D2 z
    /*通过指向数组的指针来对二维数组的元素进行间接赋值*/7 t* X+ y' |; S8 [8 E6 n
    long (*pArray)[2] = NULL;
  N1 \  ^9 a, g& g9 u: V    olesaWrite.AccessData((void **)&pArray);7 A1 M# l7 T# @
    memset(pArray, 0, sabWrite[0].cElements * sabWrite[1].cElements * sizeof(long));
9 X( U: \" `+ p: Z- [" p4 B1 m' L# J$ E) R. m
    /*释放指向数组的指针*/8 f4 k3 y' Z  B! T
    olesaWrite.UnaccessData();0 {5 w) e7 o; y) t1 L$ S
    pArray = NULL;
: S7 z# g& N5 i# G9 P1 D( l& f7 K4 M4 ~) P. p' I
    /*对二维数组的元素进行逐个赋值*/
9 I1 l1 ?' R. Q+ q/ o1 u- D$ y9 H    long index[2] = {0, 0};
* S5 V2 O6 `  H; I6 l    long lFirstLBound = 0;
  ~  s) E* M9 X7 Z    long lFirstUBound = 0;/ M& n' N' ~, N" R. U
    long lSecondLBound = 0;5 s, p7 V% J4 f8 O6 J
    long lSecondUBound = 0;  M% a: _4 P- L% r- D
    olesaWrite.GetLBound(1, &lFirstLBound);0 q. l( r, A8 V) Y; S
    olesaWrite.GetUBound(1, &lFirstUBound);
' x% A7 x4 @. D5 @% X    olesaWrite.GetLBound(2, &lSecondLBound);
8 k9 J: G% O1 t/ O    olesaWrite.GetUBound(2, &lSecondUBound);
+ P# r8 U6 ]; m1 H; R    for (long i = lFirstLBound; i <= lFirstUBound; i++)1 T! G- p2 Q, X9 C
    {- u& S1 l. U6 C# y  F2 T) R8 b
        index[0] = i;, j8 t$ F4 U6 I4 f  g
        for (long j = lSecondLBound; j <= lSecondUBound; j++)
( O6 F- V7 i$ x: j$ L7 m        {
9 O  a. r5 \0 T6 j& X            index[1] = j;
  y1 [$ [  M, \  S8 N/ D# g            long lElement = i * sabWrite[1].cElements + j;
  T; w% I. ]# J1 ?6 x            olesaWrite.PutElement(index, &lElement);+ o1 N9 y  y" H1 d/ N
        }) L; L9 i5 J2 E- F1 X9 I0 @
    }: K. K/ |9 J) X5 {

+ O8 w1 h$ f) Y1 f# P  |, V    /*把ColesaWritefeArray变量转换为VARIANT,并写入到Excel表格中*/
. A9 M1 g; ?% u. v/ L" S8 ?    VARIANT varWrite = (VARIANT)olesaWrite;; u& W7 y; p8 i3 X: Q, e
    range.put_Value2(varWrite);
9 z( }& H' T/ p, k1 M  `: X! S' n6 ^% a& S+ v
    system("pause");
! F" [8 O7 {5 U/ x, L7 G4 N+ l9 Y; E( ?. H( A: G8 T  t/ k1 c
    /*根据文件的后缀名选择保存文件的格式*/3 n$ R: l) _0 X6 M9 V
     CString strSaveAsName = _T("C:\\new.xlsx");
0 `: T( M; B5 y3 F- g    CString strSuffix = strSaveAsName.Mid(strSaveAsName.ReverseFind(_T('.')));
9 X$ A& x: |+ Y. l! |8 f3 q/ ?    XlFileFormat NewFileFormat = xlOpeNXMLWorkbook;5 X; Q( o* I( f  }  c
    if (0 == strSuffix.CompareNoCase(_T(".xls"))); d- K  {+ Y' {3 r2 o/ K' z9 O
    {
; Q* G3 L7 r- L; i( E        NewFileFormat = xlExcel8;) D% H& v, D8 C
    }8 o1 K" D/ d, t
    book.SaveAs(_variant_t(strSaveAsName), _variant_t((long)NewFileFormat), vtMissing, vtMissing, vtMissing,
/ k% F3 R; T+ A0 m( i2 w        vtMissing, 0, vtMissing, vtMissing, vtMissing,
$ Q1 D1 o; e( w5 i9 u        vtMissing, vtMissing);
/ [$ X9 E( s& Z4 ^3 t% E6 ]2 H  V( r8 h$ d- b% ?- O" N
    system("pause");( q: {2 y/ m2 Q9 Y$ c% Q7 @
$ a! r6 ?% w" W- T' o
    /*读取Excel表中的多个单元格的值,在listctrl中显示*/9 Q0 o6 C( r4 C4 G7 c- G
    VARIANT varRead = range.get_Value2();) ~% F% k( B9 _4 t. J. ~
    COleSafeArray olesaRead(varRead);
+ |# n) q! G9 c5 b6 {7 U* A$ k3 W  y! e% {, [. f1 w  r
    VARIANT varItem;
5 f; h& }. z' O    CString strItem;
( o* J9 M7 `+ S. P& ]9 S6 r    lFirstLBound = 0;
* N# G' G3 ^9 H; Q$ H# X; R    lFirstUBound = 0;$ Z& r" Z7 N/ P6 f& c
    lSecondLBound = 0;
0 v+ U( ^" o- ^3 \- _  Y    lSecondUBound = 0;( U1 f- k0 {6 R, Q- ^
    olesaRead.GetLBound(1, &lFirstLBound);
' P/ V  L2 Z( |7 B) @1 k    olesaRead.GetUBound(1, &lFirstUBound);0 k) q1 p( d$ y+ J# R0 a  L5 M. E8 e0 w
    olesaRead.GetLBound(2, &lSecondLBound);
# D8 e; q- \) m6 t) j    olesaRead.GetUBound(2, &lSecondUBound);- f7 A- y1 O; Y$ K4 d3 j% s
    memset(index, 0, 2 * sizeof(long));1 K: D4 q3 m. T% F8 h$ @9 D
    m_ListCtrl.InsertColumn(0, _T(""), 0, 100);
1 F5 }1 C+ u2 y' t9 i* u1 t3 j    for (long j = lSecondLBound; j<= lSecondUBound; j++)# [! o& k' Z( N! w
    {- ]8 ?2 R& O5 x% n# N+ r
        CString strColName = _T("");9 u8 M8 u0 h7 q
        strColName.Format(_T("%d"), j);+ d4 L2 ~% h, W2 ?0 P
        m_ListCtrl.InsertColumn(j, strColName, 0, 100);
7 h( c6 T# P) z2 P: U, |. j    }: D/ |( O# _+ V6 J/ Z/ }
    for (long i = lFirstLBound; i <= lFirstUBound; i++)
5 K* ~  t- P! Z. D/ M, l% n/ w: y    {: y% {1 Q  v% H
        CString strRowName = _T("");1 s) r; c8 C2 e/ ~) Z( E9 F0 r
        strRowName.Format(_T("%d"), i);9 m# ~: y+ m: w- r
        m_ListCtrl.InsertItem(i-1, strRowName);8 ^5 h& m: x, X; n5 Z6 E

. \2 i7 Y0 \- d        index[0] = i;1 r1 T- `  o! V
        for (long j = lSecondLBound; j <= lSecondUBound; j++)
$ E4 r: y  ^) D  k: g        {
) z, B7 M1 g( w  w- S            index[1] = j;
/ j/ a; c4 W# c$ H' j' l. m            olesaRead.GetElement(index, &varItem);! R8 G  O7 u- Z1 W* q2 S

' K+ u# @9 f4 R+ L# v3 G, p            switch (varItem.vt)
4 X8 ^; T; z: Z1 T" j            {
' c' z( O9 P  N6 B! z$ Z            case VT_R8:# i+ Q. @9 i. b! \
                {
$ O9 o( l0 }; ]7 r0 R                    strItem.Format(_T("%d"), (int)varItem.dblVal);$ ^/ {# L$ y/ G9 ^+ m1 q% p- {( ^
                }0 i7 i/ p( G5 Q9 J+ j9 z
9 e6 z5 ^' ?( V, w+ ?0 a
            case VT_BSTR:/ u/ f" m- a: \% m, {' O8 F! q: |0 J
                {% A* `  O) I' C  c
                    strItem = varItem.bstrVal;
( R. j0 W/ F: E; g                }
$ e+ }( s2 F' z( w$ m- C2 L
+ W9 V# t- h' y+ \- H1 U. e            case VT_I4:
% y# W' u' z+ F) \: S                {4 X, g" ]9 i2 w. v. |/ n
                    strItem.Format(_T("%ld"), (int)varItem.lVal);
+ q3 `$ ?/ Z7 v- _                }# D1 P& y7 s3 b+ Q

2 Q; s- r, ^. i5 J            default:
% G# @7 Q& y) u3 ^- i5 d0 j                {- e+ }7 Q3 u7 c$ j- r7 G- i8 j
; @6 P% ^% d2 }) B- ~
                }
. r. G2 G) \$ c1 `8 D            }% b' Y4 U4 t* d& v
8 s6 a; F3 g9 L5 L" e. V
            m_ListCtrl.SetItemText(i-1, j, strItem);
5 K& j) z- z$ M& u3 t; M        }8 R" g; X& L4 x; T6 E
    }5 Y% k. H6 g+ N) S+ u9 r( t( L

3 R4 {' s' C; r+ W* @$ }  N, b! l7 X$ k5 f$ \. X2 [# k' @$ i+ P

+ l. W. d" A) I, C+ S% L& c    /*释放资源*/
$ M; Z  `* k* o8 f! |  A1 P    sheet.ReleaseDispatch();$ ^  K; j. v* r: \" C+ H
    sheets.ReleaseDispatch();
& w! X- [4 J* {8 u  \, I1 t( H    book.ReleaseDispatch();
8 A% l" L1 g; E2 i! y7 Z    books.ReleaseDispatch();! b9 E: H8 @9 t4 q; {" R
    ExcelApp.Quit();
+ G4 V8 S$ |8 V" T    ExcelApp.ReleaseDispatch();
( j4 B% s, X( v; W1 B  I4 X: E+ I- E5 H! T' l/ R
上海点团信息科技有限公司,承接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二次开发专题模块培训报名开始啦

    我知道了