- 在线时间
- 0 小时
- 最后登录
- 2007-9-23
- 注册时间
- 2004-9-10
- 听众数
- 3
- 收听数
- 0
- 能力
- 0 分
- 体力
- 9975 点
- 威望
- 7 点
- 阅读权限
- 150
- 积分
- 4048
- 相册
- 0
- 日志
- 0
- 记录
- 0
- 帖子
- 1893
- 主题
- 823
- 精华
- 2
- 分享
- 0
- 好友
- 0

我的地盘我做主
该用户从未签到
 |
< >c++builder如何和excel交换数据?</P>
@0 \4 g2 x( u/ M3 w' T3 Y< > </P>
1 ~4 ]( a# p2 a, K }9 \( N* ]5 x: [< >这是从网上下载的: </P>+ N3 ?0 [1 X7 d: [! z0 T# j
< >Microsoft Excel作为一个功能强大的电子表格处理软件,已经得到了广泛的应用。在数 </P>" o1 L4 ]# U1 D( I$ t% ], z9 i
< > </P>; U' O9 \, b% `; }
< >据库应用软件开发过程中,如果能实现数据库与Excel文件的数据交换,那么一方面能增 </P>' E" a$ S, _$ @" j
< > </P>3 z4 i. R {3 u) Y& `
< >加数据库数据的来源,另一方面也能方便用户对数据库数据的进一步处理。 </P>. j+ F! b) a7 n* q
< > C++ Builder是一个可视化快速应用程序开发工具,它提供的OLE Automation机制 </P>
) m+ j6 L6 q% v/ s* [< > </P>( `" b5 a0 l- {. Z8 b1 k+ f& K
< >使得开发人员在应用程序中就能调用Excel,实现数据交换。 </P>
2 w6 v- `5 r9 U1 I5 h7 `< > 在C++ Builder中调用Excel,首先要为Excel建立一个OLE对象,然后通过设定该 </P>9 e; M x0 Y& C! C4 H
< > </P>3 K, C7 H* W; y: A( o
< >对象的属性和调用该对象的方法来操纵Excel。C++ Builder通过CreateOleObject()来 </P>
3 M$ D: U4 c, C! B< > </P>
5 R4 [$ a9 U. [6 N< >建立OLE对象;用OlePropertySet(propname,value)来设置OLE对象的属性;用 </P>; v7 j6 \3 \) P9 O/ ?
< >OlePropertyGet(propname)获得OLE对象的属性;通过OleFunction(oleFuncName, </P>
3 d2 P. S! U! K9 u4 C+ o1 {< >[val,...])和OleProcedure(oleProcName,[val,...])来调用OLE对象的方法。 </P>9 W( b. i2 O, r+ n& x4 L* p
< > C++ Builder中使用OLE自动化操纵Excel,必须掌握Excel的自动化对象及VBA关于 </P>$ D- O" }& A9 o3 s
< > </P>
* f1 {% v! u3 {< >Excel的对象方法和属性,这些都在Microsoft Office(完全安装)的VBAXL8.HLP帮助文件 </P>
1 U: M8 b5 Z1 ]" R9 Y( \< > </P>" Z2 h. G: c6 M8 y
< >中可以找到,在此就不再赘述。下面以将数据库中的数据转到Excel工作薄中为例,说明 </P>' u1 O N, n, |& z0 G1 t! T) y
< > </P>/ A4 K$ ]' F [
< >C++ Builder操纵Excel的具体方法。 </P>
/ e, s' B1 A6 f n8 Z% j' c# w< > 首先新建一个表单Form1,保存单元文件Unit1.cpp,保存工程文件Project1.bpr。 </P>
* g3 C2 y& M8 Z3 E. ?< > </P>6 M4 C% o, g2 A$ B
< >然后在表单中加入数据访问控件TTable,将Name属性设为Table1,DatabaseName属性设 </P> I6 e/ J o8 ?; v
< > </P>: c* q- ^" R( G/ H& S+ c
< >为BCDEMOS,TableName属性设为Country.db。在表单中加入一个按钮控件TButton,将其 </P>
( u$ }2 v4 \* d$ R! i$ J$ u# g3 L<P> </P>, @# i/ T2 L7 `6 G/ _, p0 t
<P>Name属性设为Button1,Caption属性设为 “转换为Excel文件”。双击Button1,在 </P>6 H [; H/ Y6 s1 D3 m, O+ \
<P>Button1Click()函数中加入如下代码: </P>
2 {+ x# M7 ^$ p! ?/ E. c3 w<P> Variant ex,newxls; </P># h7 G) l! o% i6 q* F1 r
<P> int i,j=1; </P>
& g; q z- C0 e<P>try </P>
6 C% |5 q* o, f: |<P>{ </P>
7 z, }* e9 s+ D. x! j" s, G4 H1 n0 }<P>ex=CreateOleObject(″Excel.Application″); //启动Excel </P>: W, Q! r6 K8 y; Y+ m* n
<P>} </P>
8 B; t8 b3 R, z9 `+ _( \ `<P>catch(...) </P>3 I8 N; z# S& S! S
<P>{ </P>. R. u: q9 |4 V! I2 y
<P>ShowMessage(″无法启动Excel″); </P>
6 ?; F2 |6 ]; d3 T! c( U4 ^<P>} </P>
7 D, y) a) C" b$ v' h: C<P> ex.OlePropertySet(″Visible″,(Variant)true); //使Excel启动后可见 </P>
1 m5 {8 ~$ c; U9 ]) s2 S7 n' J" J. Z<P>newxls=(ex.OleFunction(″Workbooks″)).OleFunction(″Add″);//新建一个工作薄 </P>
`- g/ I) |5 i2 b9 X; h1 D<P> </P>
; o# H- q9 _! L( M( N+ o5 V6 p8 H<P>Table1-〉Active=true; </P>
. r) z/ i6 K7 P0 ~<P> //打开数据库 </P>
( n* _- ]' c( }. J4 s7 N2 `6 ?5 c4 T<P>Table1-〉First(); </P>. [7 B) ]+ l. Y9 T4 N& x) |6 G1 T/ q
<P>for(i=0;i〈Table1-〉FieldCount;i++) </P>& F. E: F% J8 u4 O& T) `- ~
<P> //将字段名写到工作薄的第一行 </P>/ k; A2 y$ Q* o* m
<P>{ </P>
) X& h% P7 ?( p4 ]# a# o8 Q<P>(ex.OleFunction(″Cells″)).OlePropertySet(″Item″,(Variant)1,(Variant)(i+ </P>3 M* B* A" j$ s/ w
<P> </P>
8 W' u* w, M) `9 H$ W$ d3 q7 q<P>1),(Variant)Table1-〉Fields-〉FieldName); </P>0 E! Z0 z) A/ R/ O5 v; k8 J3 y
<P>} </P>. `5 W. O5 i' i" c
<P>while(!Table1-〉Eof) </P># C: R5 S# }5 m; A
<P> //将数据库中的记录依次写到工作薄中 </P>, {! h/ N& N# W# k
<P>{ </P>
) s% O3 V3 I9 j/ V; J* U! b<P>j=j+1; </P>
: W4 I- s( {; i% G<P>for(i=0;i〈Table1-〉FieldCount;i++) </P>
" v7 R- ?$ ~. m) R8 v* F* g- a<P>{ </P>
1 n& U4 H2 o/ e2 Z- }- t' S' _<P> (ex.OleFunction(″Cells″)).OlePropertySet(″Item″,(Variant)j,(Variant) </P>
, e+ Z% ~+ R1 H, g+ x<P>(i+1), </P>
2 R, y' T% K' H3 c( a; w<P> (Variant)Table1-〉Fields-〉AsString); </P>
# e2 R1 L6 k, q0 s7 D<P>} </P>/ K% ]; l% T% x' N5 Y5 l$ [
<P>Table1-〉Next(); </P>
# d/ t/ _/ m# |# h! b- h! I<P>} </P>
! y3 Y' U! ^+ F z$ E. ~8 k<P>newxls.OleFunction(″SaveAs″,(Variant)filename); </P>* v7 ]/ ?5 f1 ?; [' D
<P> //保存工作薄,filename是工作薄的全文件名 </P>
: O+ e7 t; _* z2 H6 V<P>ex.OleFunction(″Quit″); </P>- E, A G! F3 u' ^1 }9 E
<P> //退出Excel,释放OLE对象 </P>
9 G5 h: q! Y4 {. Q5 }3 K( }<P> 注意,要使用OLE自动化对象,在编译之前还必须在Unit1.cpp文件前面加上# </P>
1 D4 y( t, b) e. z) ]! T; C<P>include ″ComObj.hpp″。 </P>
$ o9 a& `+ B3 G' `. }<P> 运行程序就可以实现将数据库中的数据转换到Excel工作薄中。同样的道理,使用 </P>6 f! f. x: m* y/ R3 D3 Y# @, A
<P>OlePropertyGet()函数,也可以将Excel工作薄中的数据读到数据库中去。 </P>
% `* [- ^3 [% R1 S7 L$ P5 z2 [<P> 以上代码在Windows 98操作系统、C++ Builder 3.0下调试运行通过。 </P> |
zan
|