- 在线时间
- 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>
6 E' T$ d+ M. Q1 e f( h< > </P>
" y& n4 j+ P0 Q! V* y< >这是从网上下载的: </P>
t7 g- C9 ], n# I1 r( k/ O6 E" n< >Microsoft Excel作为一个功能强大的电子表格处理软件,已经得到了广泛的应用。在数 </P>1 d) n: n( T9 b# h7 E+ z0 f4 G
< > </P>- T: B; T. Q+ G+ P6 P6 H
< >据库应用软件开发过程中,如果能实现数据库与Excel文件的数据交换,那么一方面能增 </P>0 A0 k9 e. b3 z9 g; a
< > </P>
! `9 Z$ M3 ~/ D: e& }6 _* f< >加数据库数据的来源,另一方面也能方便用户对数据库数据的进一步处理。 </P>( B! m0 G8 ]" V2 K6 W4 F2 d+ q
< > C++ Builder是一个可视化快速应用程序开发工具,它提供的OLE Automation机制 </P>
2 `) H6 y3 T( A* U; F. F< > </P>+ @2 ~8 x* s) A: P9 F8 p
< >使得开发人员在应用程序中就能调用Excel,实现数据交换。 </P>
1 j8 j# j3 v* ^< > 在C++ Builder中调用Excel,首先要为Excel建立一个OLE对象,然后通过设定该 </P>
2 g# K! Y2 O3 n8 n7 @< > </P>
0 w: ^+ ~& @5 E2 O9 M( O' }# z$ O< >对象的属性和调用该对象的方法来操纵Excel。C++ Builder通过CreateOleObject()来 </P>6 T: X% l7 ^! \, H
< > </P>
, ?! V- ?% b( b; c< >建立OLE对象;用OlePropertySet(propname,value)来设置OLE对象的属性;用 </P>
' m% {+ U- l, a/ i B< >OlePropertyGet(propname)获得OLE对象的属性;通过OleFunction(oleFuncName, </P>8 p8 B9 X. D$ a+ l; a
< >[val,...])和OleProcedure(oleProcName,[val,...])来调用OLE对象的方法。 </P>
# e( \6 k2 L/ j! q6 ^. o; ^< > C++ Builder中使用OLE自动化操纵Excel,必须掌握Excel的自动化对象及VBA关于 </P>( O' Z8 Q8 @2 b6 J8 ~% _
< > </P>3 J* ^" f4 X) m/ {; N# |, \
< >Excel的对象方法和属性,这些都在Microsoft Office(完全安装)的VBAXL8.HLP帮助文件 </P>
8 Z. |2 I4 S/ z% E- t8 `. l+ {# ?< > </P>( A( q+ x! P5 e) u
< >中可以找到,在此就不再赘述。下面以将数据库中的数据转到Excel工作薄中为例,说明 </P>1 n! S$ g7 u: z: @+ O7 m# L
< > </P>8 F, g9 K3 x- i+ v# b
< >C++ Builder操纵Excel的具体方法。 </P>
5 [ y8 U: j9 L6 N% ? X9 X0 F h! `< > 首先新建一个表单Form1,保存单元文件Unit1.cpp,保存工程文件Project1.bpr。 </P>
& J! ]' P8 ^$ u# x$ a9 v Q< > </P>5 v& g g2 r: c ?2 O+ ]! k
< >然后在表单中加入数据访问控件TTable,将Name属性设为Table1,DatabaseName属性设 </P>0 V& x9 Z% @: i" O# M* _
< > </P>6 Z' h! R t3 J2 _: Z# E6 n- |
< >为BCDEMOS,TableName属性设为Country.db。在表单中加入一个按钮控件TButton,将其 </P>
; \. O% v6 o. g$ Q$ Q* v<P> </P>
5 V$ L! t/ Q) T( @& O2 [( d, P3 p<P>Name属性设为Button1,Caption属性设为 “转换为Excel文件”。双击Button1,在 </P>
+ o S9 n/ ~4 d; x7 R8 w' ]5 h<P>Button1Click()函数中加入如下代码: </P>/ H/ `+ p3 j o$ |' h
<P> Variant ex,newxls; </P>+ i. x1 U' N+ I
<P> int i,j=1; </P>
) `: L. A: o! t' F! Z<P>try </P>0 ^# e. `! V! p) g5 g
<P>{ </P>
' X& s- [7 M& k6 e<P>ex=CreateOleObject(″Excel.Application″); //启动Excel </P>$ n" Z; t" A& e- x
<P>} </P>- ]( n- ?% W6 q
<P>catch(...) </P>
% A# c/ f( N, F0 ?<P>{ </P>3 D$ h9 T: K! n" i$ R8 u' A6 [
<P>ShowMessage(″无法启动Excel″); </P>
6 y8 O$ y6 m4 p) d! T<P>} </P>. P7 ?, K; V. q1 s
<P> ex.OlePropertySet(″Visible″,(Variant)true); //使Excel启动后可见 </P>/ v/ W+ D) @- b* z" `# H
<P>newxls=(ex.OleFunction(″Workbooks″)).OleFunction(″Add″);//新建一个工作薄 </P>- G! F! z& n D* w! {) Z
<P> </P>, p: W: S% D! }+ w2 V K3 ~4 u
<P>Table1-〉Active=true; </P>- [/ _+ g, j( \$ b, ^$ m* S
<P> //打开数据库 </P>
) }; M% `9 p% x# K8 `, ?: Z; y<P>Table1-〉First(); </P>
& Z" s5 T+ O, A( z<P>for(i=0;i〈Table1-〉FieldCount;i++) </P>4 g$ M$ x9 b- ]
<P> //将字段名写到工作薄的第一行 </P>
* |+ B1 k. s) a<P>{ </P>
( u& _! B# f0 _# ^ I<P>(ex.OleFunction(″Cells″)).OlePropertySet(″Item″,(Variant)1,(Variant)(i+ </P>7 N& L2 o Y4 y# q4 e2 g- x$ K1 ^
<P> </P>
# A& W) ^% \. w5 n<P>1),(Variant)Table1-〉Fields-〉FieldName); </P>
' ~% m" W# \! b' x0 {<P>} </P>( `" @ t4 S9 H
<P>while(!Table1-〉Eof) </P>0 x7 L' F' v7 E8 p5 {: D6 Z9 \& b
<P> //将数据库中的记录依次写到工作薄中 </P>
- x( A" Q5 b$ [<P>{ </P>3 W% |9 f0 z0 E" U4 H. f0 V
<P>j=j+1; </P>
! h( S1 G9 t" M" p, _<P>for(i=0;i〈Table1-〉FieldCount;i++) </P>
, p' x/ n9 r% X<P>{ </P>" D [8 [) c8 n; [5 g
<P> (ex.OleFunction(″Cells″)).OlePropertySet(″Item″,(Variant)j,(Variant) </P>1 f+ g2 P! G, s' V
<P>(i+1), </P>
) \. o* ]' j! J% ?- D t<P> (Variant)Table1-〉Fields-〉AsString); </P># p9 w' E3 o4 C+ x; ^
<P>} </P>
z3 B: C2 V& H1 C' J1 B7 ?<P>Table1-〉Next(); </P>' A5 w/ x* U& H m q
<P>} </P>! E1 E3 U$ t0 d2 |4 u/ t+ p
<P>newxls.OleFunction(″SaveAs″,(Variant)filename); </P>- t" y% f: C* b; n
<P> //保存工作薄,filename是工作薄的全文件名 </P>3 ?+ r' k6 E: O6 F6 Z& G
<P>ex.OleFunction(″Quit″); </P>
9 p+ g8 O; Q4 t. ?8 O( X! e+ P<P> //退出Excel,释放OLE对象 </P>
, ]) Z6 V+ X' Y8 ^7 W# D9 c9 l<P> 注意,要使用OLE自动化对象,在编译之前还必须在Unit1.cpp文件前面加上# </P>( f, I r. o% z. X% L) `/ g
<P>include ″ComObj.hpp″。 </P>
% U0 T8 G# Z I<P> 运行程序就可以实现将数据库中的数据转换到Excel工作薄中。同样的道理,使用 </P>
: f6 Y. N2 z: [<P>OlePropertyGet()函数,也可以将Excel工作薄中的数据读到数据库中去。 </P>
$ F( {9 j; a2 B- p! y! t: a& g6 r6 ]<P> 以上代码在Windows 98操作系统、C++ Builder 3.0下调试运行通过。 </P> |
zan
|