请选择 进入手机版 | 继续访问电脑版

QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 56282|回复: 1

c++builder如何和excel交换数据?

[复制链接]
字体大小: 正常 放大
韩冰        

823

主题

3

听众

4048

积分

我的地盘我做主

该用户从未签到

发帖功臣 元老勋章

发表于 2005-1-26 01:22 |显示全部楼层
|招呼Ta 关注Ta
<>c++builder如何和excel交换数据?</P>
$ S/ c0 w5 z* x: c7 y" W& `* t0 }: x6 x9 S: L<>  </P>6 E: @2 j+ b" Z+ |
<>这是从网上下载的: </P>: x6 `, D# K' e* x- B+ w) s0 E
<>Microsoft Excel作为一个功能强大的电子表格处理软件,已经得到了广泛的应用。在数 </P>
! r- y( w, k8 b8 b9 A<>  </P>
9 w* P& V% H4 P" V: ^<>据库应用软件开发过程中,如果能实现数据库与Excel文件的数据交换,那么一方面能增 </P>
3 p0 l" {$ ]# V$ C" I$ X5 A<>  </P>
$ ~; J7 c+ D0 o. c$ p<>加数据库数据的来源,另一方面也能方便用户对数据库数据的进一步处理。 </P>
. b7 u" z; i: _) Q$ F% A1 R<>  C++ Builder是一个可视化快速应用程序开发工具,它提供的OLE Automation机制 </P>
4 R% |% p0 S( I+ H1 {5 }<>  </P>
. r9 z+ g5 E: a2 t! W<>使得开发人员在应用程序中就能调用Excel,实现数据交换。 </P>
) h2 f# {* D( D( [, i<>  在C++ Builder中调用Excel,首先要为Excel建立一个OLE对象,然后通过设定该 </P>& P6 W! Y" G4 `* I  K% H
<>  </P>+ S7 B8 u' r* x5 t
<>对象的属性和调用该对象的方法来操纵Excel。C++ Builder通过CreateOleObject()来 </P>
) k& L7 e0 t/ T9 M* q6 h<>  </P>  Z; C7 _8 C+ h4 j
<>建立OLE对象;用OlePropertySet(propname,value)来设置OLE对象的属性;用 </P>
2 E, Z% `. V8 D6 l+ ~9 a<>OlePropertyGet(propname)获得OLE对象的属性;通过OleFunction(oleFuncName, </P>
4 b: |# G2 _4 r8 F4 _( h' v<>[val,...])和OleProcedure(oleProcName,[val,...])来调用OLE对象的方法。 </P>
' d2 b) R& Y: f1 a# Z<>  C++ Builder中使用OLE自动化操纵Excel,必须掌握Excel的自动化对象及VBA关于 </P>
. ]6 v8 t( ]9 C0 L2 O& S$ d<>  </P>* j2 P. }* M8 e) \/ k/ W% w
<>Excel的对象方法和属性,这些都在Microsoft Office(完全安装)的VBAXL8.HLP帮助文件 </P>$ m; Y3 V7 }4 m0 J3 o- l$ V
<>  </P>' a7 T! a. Y& g3 r/ Z8 X
<>中可以找到,在此就不再赘述。下面以将数据库中的数据转到Excel工作薄中为例,说明 </P>' }  I; V8 c# p1 c+ H
<>  </P>' a) z; ~" Y, w
<>C++ Builder操纵Excel的具体方法。 </P>
2 P7 c) F  c. W# j8 L<>  首先新建一个表单Form1,保存单元文件Unit1.cpp,保存工程文件Project1.bpr。 </P>
* X5 [1 ?0 `) O" X1 C<>  </P>
3 s( @& B! Q6 @8 o6 |) c) l1 X<>然后在表单中加入数据访问控件TTable,将Name属性设为Table1,DatabaseName属性设 </P>- F7 b( Z( r. ]: H+ y
<>  </P>
2 @# C+ T4 K' P& P; e0 m<>为BCDEMOS,TableName属性设为Country.db。在表单中加入一个按钮控件TButton,将其 </P>7 c5 z+ g6 V! f4 _/ E8 y, f
<P>  </P>6 w0 H1 O7 w9 m- d- w, z' S  m+ l
<P>Name属性设为Button1,Caption属性设为 “转换为Excel文件”。双击Button1,在 </P>* |# I/ v( ^% F  w' V, F0 h
<P>Button1Click()函数中加入如下代码: </P>) O- C9 t5 `6 {/ o- h, G
<P>   Variant ex,newxls; </P>
! F* e9 X1 p4 D# h4 W' c<P>   int i,j=1; </P>" i# {# q+ ^2 P: K5 x+ K* `
<P>try </P>* C. N- L& N: d( b
<P>{ </P>
# S0 S- a/ g, e: q( w<P>ex=CreateOleObject(″Excel.Application″); //启动Excel </P>
$ L- g" j7 U$ D3 x5 c9 ?1 c/ m<P>} </P>
0 B& S) b' @8 p& Z! R/ Y: A6 M<P>catch(...) </P>% j9 ^" J( K, J9 F
<P>{ </P>" ]  K2 F6 N8 C9 h
<P>ShowMessage(″无法启动Excel″); </P>0 e" @5 [3 c' b$ T9 V5 Y
<P>} </P>
1 d, m* Y% z% O4 L<P>   ex.OlePropertySet(″Visible″,(Variant)true); //使Excel启动后可见 </P>
# ~7 l& d& j7 z8 y5 K  P' R<P>newxls=(ex.OleFunction(″Workbooks″)).OleFunction(″Add″);//新建一个工作薄 </P>
& v$ U% t# r8 _. T0 u5 L$ L<P>  </P>8 r+ ?5 H# `9 g/ Q
<P>Table1-〉Active=true;   </P>
; u, S7 ?1 _; R3 x0 u+ V' \6 v<P>  //打开数据库 </P>4 l" G" T& Z, ]4 z; I
<P>Table1-〉First(); </P>  v1 x+ p5 h5 c/ |$ g
<P>for(i=0;i〈Table1-〉FieldCount;i++) </P>
) n1 K3 @4 w3 [<P>  //将字段名写到工作薄的第一行 </P>8 |. c1 [" K( ^9 W: P8 p$ j
<P>{ </P># K) j; v9 a/ u
<P>(ex.OleFunction(″Cells″)).OlePropertySet(″Item″,(Variant)1,(Variant)(i+ </P>2 ~0 S, A6 u- I8 j* h3 O+ N
<P>  </P># m/ h2 W0 [9 U
<P>1),(Variant)Table1-〉Fields-〉FieldName); </P>
- p3 d- Z  Z- s. S<P>} </P>
4 G. z, x; o  D$ f' s7 Z% O<P>while(!Table1-〉Eof) </P>
- \& N& V3 d4 S) q: \% r<P>  //将数据库中的记录依次写到工作薄中 </P>) R+ O( k# p% @$ }
<P>{ </P>
6 g+ [% K* X7 Z( K2 A<P>j=j+1; </P># F" l1 s* K6 `5 y9 t! v' i
<P>for(i=0;i〈Table1-〉FieldCount;i++) </P>
# `/ x- a6 p; e& r" X<P>{ </P>
  h& Z) s8 R% m# [& ^<P>  (ex.OleFunction(″Cells″)).OlePropertySet(″Item″,(Variant)j,(Variant) </P>
* ]3 v. \* }& c7 P" m3 u$ K<P>(i+1), </P>! Q2 `& ~5 @+ E& j( i0 f0 q- [0 ]' ]
<P>  (Variant)Table1-〉Fields-〉AsString); </P>. o, |0 T) f. h
<P>} </P>
! t% S- x+ x1 d  |! H# b* v6 ~<P>Table1-〉Next(); </P>. M( W$ f$ E. C' t. t6 x5 d9 Q( b$ H
<P>} </P>
# C! d; H4 g2 ?<P>newxls.OleFunction(″SaveAs″,(Variant)filename); </P>7 u; x# d4 ^, H* V6 j% z
<P>  //保存工作薄,filename是工作薄的全文件名 </P>, V# w  l- V  ]8 X/ B
<P>ex.OleFunction(″Quit″); </P>5 Y4 c5 {# S( L) j
<P>  //退出Excel,释放OLE对象 </P>
9 h- x. A. h3 b<P>  注意,要使用OLE自动化对象,在编译之前还必须在Unit1.cpp文件前面加上# </P>+ z0 Z7 [! [8 N" M' D
<P>include ″ComObj.hpp″。 </P>
$ c8 D2 O; y" |4 d* l/ m<P>  运行程序就可以实现将数据库中的数据转换到Excel工作薄中。同样的道理,使用 </P>
3 G) ~2 b$ Y+ D- I3 w<P>OlePropertyGet()函数,也可以将Excel工作薄中的数据读到数据库中去。 </P>
5 \* {9 ~- l' F% |8 K1 i<P>  以上代码在Windows 98操作系统、C++ Builder 3.0下调试运行通过。 </P>
zan
liunengwu 实名认证       

0

主题

3

听众

147

积分

升级  23.5%

该用户从未签到

自我介绍
我是一个数模爱好者,希望在数模中获奖!
回复

使用道具 举报

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

qq
收缩
  • 电话咨询

  • 04714969085
fastpost

关于我们| 联系我们| 诚征英才| 对外合作| 产品服务| QQ

手机版|Archiver| |繁體中文 手机客户端  

蒙公网安备 15010502000194号

Powered by Discuz! X2.5   © 2001-2013 数学建模网-数学中国 ( 蒙ICP备14002410号-3 蒙BBS备-0002号 )     论坛法律顾问:王兆丰

GMT+8, 2024-3-29 18:23 , Processed in 0.405691 second(s), 56 queries .

回顶部