在AutoCAD中动态读取Excel数据

秋之收

在实际的工作中，我们经常要对一些表格数据进行处理，如果先把这些表格数据通过Excel处理，再导入到AutoCAD，
　　那绝对会起到事半功倍的效果。随着Automation编程技术的出现，我们可以很方便地实现这一点了，下面是个
3 I) t" S# m* ~2 ^　　ObjectARX的例子，其功能是动态关联Excel，然后读取其数据，并将这些数据打印在文本域中。
　　//动态从Excel读取数据
　　int DynamicReadFromExcel()
# Y2 a3 p2 D' M% X) Q　　{
1 I0 l2 o. J9 p$ f- I% q8 e1 p% t6 e　　//常用变量定义
( K1 i7 W' B; R, d0 F7 R) T1 v% A8 A　　_Application app;
0 d& w) p  O$ ]* _  F* m2 Z0 q$ d　　Workbooks books;
　　_Workbook book;
　　Worksheets sheets;
　　_Worksheet sheet;
2 q' r: P' C. ?+ g0 Y& ~3 b1 D　　Range range;
5 f& {% F$ h1 M' m. u　　Range iCell;
: Y" r5 B% B- ~+ W. w! |　　LPDISPATCH lpDisp;
/ y1 d* U, p, F; D1 P( }/ d0 ]* K　　COleVariant
! Q" {: ^0 M1 m& j' r7 G: s& N( ~　　covTrue((short)TRUE),
　　covFalse((short)FALSE),
/ M3 \  a1 _& K* s! w　　covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
　　COleVariant vResult;
　　//采用MFC方式初始化COM库，程序结束时COM库会自动释放
　　if(!AfxOleInit())
, E4 p, s( U* S% }3 U' p　　{
# C: }6 b2 h6 U6 D& @　　MessageBox(NULL,"初始化COM支持库失败!\n无法控制Excel!", \
6 B: @. A+ B4 T, O　　"TrueTable",MB_IConERROR | MB_OK);
　　return RTERROR;
　　}
, \  ^2 }" u7 \; }" r$ X　　//关联已经运行的Excel实例
- G0 J; S, h# }6 q, @2 T　　CLSID clsid;
　　CLSIDFromProgID(L"Excel.Application", &clsid);
　　IUnknown *pUnk = NULL;
/ t% g$ x( o4 R' t! `" Y- `1 D　　IDispatch *pRunDisp = NULL;
7 w& y9 k$ Q  q* I! }　　for(long i=1;i<=5;i++) //做5次尝试
' Z9 K2 S% z$ r2 p: q% T. l( w2 T　　{
　　HRESULT hr = GetActiveObject(clsid, NULL, (IUnknown**)&pUnk);
. G. ]( k! \+ w　　if(SUCCEEDED(hr))
　　{
　　hr = pUnk->QueryInterface(IID_IDispatch, (void **)&pRunDisp);
% |7 n# F) N: n' y& @! e% B　　break;
　　}
　　::Sleep(10);
　　}
　　if (!pRunDisp)
+ |$ P" r5 g! e  w　　{
　　::MessageBox(NULL, "没有发现Excel!", "TrueTable", MB_ICONHAND);
　　return RTERROR;
3 k; t# F. c* @& ]: ?) d: E+ C　　}
　　if (pUnk) pUnk->Release();
3 Z" M, z  y) Y/ y' B/ N5 j- l, {　　//关联Excel
　　app.AttachDispatch (pRunDisp);
5 T" o3 p' A: ]9 K/ V/ |7 T0 p$ ~　　//得到当前活跃sheet
　　//如果有单元格正处于编辑状态中，此操作不能返回，会一直等待
　　lpDisp=app.GetActiveSheet();
　　if(lpDisp==NULL)
& |% S6 [( x4 `! i* A3 S　　{
2 l4 m, X4 b: P6 k* S% `' C) y; |　　MessageBox(NULL, "没有发现有效的表格!", \
　　"TrueTable",MB_IConERROR | MB_OK);
　　app.ReleaseDispatch ();
　　return RTERROR;
　　}
　　sheet.AttachDispatch(lpDisp);
　　//已经使用的行数:
4 Y' R! Z* k! i9 y4 w9 b# `　　long row_num;
　　range.AttachDispatch(sheet.GetUsedRange());
: P. ]9 f) X2 l  z5 z% _　　range.AttachDispatch(range.GetRows());
0 h2 {+ k+ R, V/ R　　row_num=range.GetCount();
3 E3 a; z6 S, {! \0 @" r5 L& d/ i　　//已经使用的列数:
" {8 U* t. h. A/ p% w　　long col_num;
　　range.AttachDispatch(sheet.GetUsedRange());
' k; d: X0 [  x9 K　　range.AttachDispatch(range.GetColumns());
　　col_num=range.GetCount();
　　//已经使用区域的起始行、列：
7 ~5 y, z/ U$ P　　range.AttachDispatch(sheet.GetUsedRange());
1 s; p' n/ ~; A) a$ W　　long StartRow=range.GetRow(); //起始行
8 [. y4 V+ h! D- g8 e3 J6 |- i　　long StartCol=range.GetColumn(); //起始列
　　//读取sheet名
2 \6 L( E/ n7 r4 b. U: `; d/ E7 Y1 h　　CString SheetName=sheet.GetName();
5 x- r6 L) g5 b, K* N$ c9 V　　//ads_printf("\n%s",SheetName);
8 }) l$ Q' ^% c0 D! N　　if(col_num<2 && row_num<2) //此sheet为空
　　{
9 Q# Z3 _2 M, W4 }3 ~5 N+ {* r　　MessageBox(NULL,"\n当前表格没有数据!", \
6 e" ^9 G! P* j2 [4 D% |9 D　　"TrueTable",MB_IConERROR | MB_OK);
　　app.ReleaseDispatch ();
　　return RTERROR;
- i; _. g3 z* T: W　　}
7 f, n% b# G3 R" d　　else
　　{
+ K& _% Z* O) s* x% [$ ]0 A' G　　ads_printf("\n表格%s共%d行,%d列",SheetName,row_num,col_num);
' ^4 C; C3 ?  w2 Q; J　　}
　　//得到全部Cells，此时,range是cells的集合
　　range.AttachDispatch(sheet.GetCells());
6 v3 [7 y& D8 ]! Q* z　　//读写数据了
, g) s# @+ Y7 x0 a/ L) g　　CString cstr;
　　ads_printf("\n");
8 n8 a4 \2 z+ {　　for(long i=StartRow;i<STARTROW+ROW_NUM;I++) 　　{
3 G/ c: Z- W; O　　for(long j=StartCol;j<STARTCOL+COL_NUM;J++) 　　{
3 ]+ F. T* n2 f, `4 u9 ~　　//读取单元格文本
2 R) O2 z+ r* |; [* N; D( k8 t- s$ t1 @　　iCell.AttachDispatch(range.GetItem (COleVariant(i),COleVariant(j)).pdispVal );
　　vResult =iCell.GetText();
  c% }; c! C2 i7 ^/ e　　cstr=vResult.bstrVal;
2 e) \% M' u8 i3 X: ?9 h　　//写单元格文本
　　ads_printf("%s ",(LPTSTR)cstr);
　　}
　　ads_printf("\n");
　　}
　　//释放Dispatch
　　iCell.ReleaseDispatch ();
　　range.ReleaseDispatch ();
　　sheet.ReleaseDispatch ();
　　sheets.ReleaseDispatch ();
! _1 W. i# F( u0 A: ]　　book.ReleaseDispatch ();
# v1 i( J. F' O　　books.ReleaseDispatch ();
% j8 i% z9 L2 M; B2 J　　app.ReleaseDispatch ();
! X- N4 z* `  L) m5 r　　return RTNORM;
: }( t, |3 F* _' `( L　　}
/ m) O/ y1 L  J　　如果要输出到Excel的话，关键函数就是：
　　iCell.SetItem(COleVariant(i),COleVariant(j),COleVariant(cstr));

tgdoing

没看明白~~~~~~~~~