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

韩冰

<>c++builder如何和excel交换数据?</P>
, J. p+ o! U* l& c0 b<>  </P>
<>这是从网上下载的： </P>
<>Microsoft Excel作为一个功能强大的电子表格处理软件，已经得到了广泛的应用。在数 </P>
<>  </P>
3 R  @( Y/ c2 O9 [3 H' G0 q<>据库应用软件开发过程中，如果能实现数据库与Excel文件的数据交换，那么一方面能增 </P>
; n8 }: b0 `' `4 a3 x<>  </P>
# Q% ?8 ^. v; n<>加数据库数据的来源，另一方面也能方便用户对数据库数据的进一步处理。 </P>
<>　　C＋＋ Builder是一个可视化快速应用程序开发工具，它提供的OLE Automation机制 </P>
; ]. ^( y7 ~- E; u( A<>  </P>
- Y0 P7 ]  g- S<>使得开发人员在应用程序中就能调用Excel，实现数据交换。 </P>
$ A6 f* ]8 j- ]1 e: ~& {9 P, B<>　　在C＋＋ Builder中调用Excel，首先要为Excel建立一个OLE对象，然后通过设定该 </P>
- g0 d( b3 r$ y  b% h" O<>  </P>
+ o3 G" x0 H; J; `7 i. g<>对象的属性和调用该对象的方法来操纵Excel。C＋＋ Builder通过CreateOleObject()来 </P>
<>  </P>
<>建立OLE对象；用OlePropertySet(propname，value)来设置OLE对象的属性；用 </P>
; W/ {& X  N" G  Y/ \! S- |1 s1 e<>OlePropertyGet(propname)获得OLE对象的属性；通过OleFunction(oleFuncName， </P>
<>[val,...])和OleProcedure(oleProcName,[val,...])来调用OLE对象的方法。 </P>
9 H" |/ u' d, z, |+ N' d<>　　C＋＋ Builder中使用OLE自动化操纵Excel，必须掌握Excel的自动化对象及VBA关于 </P>
<>  </P>
* W; u* B6 f; e9 ?3 _<>Excel的对象方法和属性，这些都在Microsoft Office(完全安装)的VBAXL8.HLP帮助文件 </P>
5 C2 i5 e" |! L5 J- U1 Z' ^) Q) N# X3 Y<>  </P>
3 u. f* E% p; w/ x! d% X8 V$ A. t<>中可以找到，在此就不再赘述。下面以将数据库中的数据转到Excel工作薄中为例，说明 </P>
<>  </P>
<>C＋＋ Builder操纵Excel的具体方法。 </P>
<>　　首先新建一个表单Form1，保存单元文件Unit1.cpp，保存工程文件Project1.bpr。 </P>
<>  </P>
1 m4 L% Q6 _2 u; B, p<>然后在表单中加入数据访问控件TTable，将Name属性设为Table1，DatabaseName属性设 </P>
2 [7 e; O* A/ t- a$ A<>  </P>
<>为BCDEMOS，TableName属性设为Country.db。在表单中加入一个按钮控件TButton，将其 </P>
<P>  </P>
( t1 v2 _. ^) }<P>Name属性设为Button1，Caption属性设为 “转换为Excel文件”。双击Button1，在 </P>
<P>Button1Click()函数中加入如下代码： </P>
<P>　　 Variant ex,newxls; </P>
<P>　　 int i,j=1; </P>
/ z  Y* r& h# P<P>try </P>
<P>{ </P>
<P>ex=CreateOleObject(″Excel.Application″); //启动Excel </P>
6 d- d, Q$ ^: R. O, I% v; R<P>} </P>
4 h4 o4 g# t; ?+ L# L8 Y+ W+ b  C<P>catch(...) </P>
<P>{ </P>
# ~. e/ M8 B8 U' h+ K: a# e/ r<P>ShowMessage(″无法启动Excel″); </P>
+ y9 l7 P3 C5 ^7 ~<P>} </P>
<P>　　 ex.OlePropertySet(″Visible″,(Variant)true); //使Excel启动后可见 </P>
<P>newxls=(ex.OleFunction(″Workbooks″)).OleFunction(″Add″);//新建一个工作薄 </P>
<P>  </P>
/ I0 t$ N# B. e& \<P>Table1－〉Active=true;　　 </P>
<P>　　//打开数据库 </P>
<P>Table1－〉First(); </P>
<P>for(i=0;i〈Table1－〉FieldCount;i＋＋) </P>
" p( o9 B8 l+ d<P>　　//将字段名写到工作薄的第一行 </P>
! O2 d  m2 {3 M  X<P>{ </P>
<P>(ex.OleFunction(″Cells″)).OlePropertySet(″Item″,(Variant)1,(Variant)(i＋ </P>
<P>  </P>
$ r% }" M6 q# d' g2 z  u( ^  R<P>1),(Variant)Table1－〉Fields－〉FieldName); </P>
5 r# K! z) w8 n! q+ f- D: m6 a<P>} </P>
<P>while(!Table1－〉Eof) </P>
<P>　　//将数据库中的记录依次写到工作薄中 </P>
" b9 U# j' o% w/ K* A/ H1 r8 L0 p% m<P>{ </P>
. p( g/ I6 U$ K* v* b4 O<P>j=j＋1; </P>
<P>for(i=0;i〈Table1－〉FieldCount;i＋＋) </P>
<P>{ </P>
0 Q' c# q$ Z+ f<P>　　(ex.OleFunction(″Cells″)).OlePropertySet(″Item″,(Variant)j,(Variant) </P>
<P>(i＋1), </P>
<P>　　(Variant)Table1－〉Fields－〉AsString); </P>
<P>} </P>
<P>Table1－〉Next(); </P>
6 F8 F( o3 x1 U& {/ t: T7 ~) P<P>} </P>
<P>newxls.OleFunction(″SaveAs″,(Variant)filename); </P>
<P>　　//保存工作薄，filename是工作薄的全文件名 </P>
<P>ex.OleFunction(″Quit″); </P>
<P>　　//退出Excel，释放OLE对象 </P>
<P>　　注意，要使用OLE自动化对象，在编译之前还必须在Unit1.cpp文件前面加上＃ </P>
<P>include ″ComObj.hpp″。 </P>
/ X7 f8 t9 ~; X% x$ _. z; {<P>　　运行程序就可以实现将数据库中的数据转换到Excel工作薄中。同样的道理，使用 </P>
<P>OlePropertyGet()函数，也可以将Excel工作薄中的数据读到数据库中去。 </P>
<P>　　以上代码在Windows 98操作系统、C＋＋ Builder 3.0下调试运行通过。 </P>

liunengwu

体力 已经不充沛啦!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!