在AutoCAD中动态读取Excel数据

秋之收

在实际的工作中，我们经常要对一些表格数据进行处理，如果先把这些表格数据通过Excel处理，再导入到AutoCAD，
　　那绝对会起到事半功倍的效果。随着Automation编程技术的出现，我们可以很方便地实现这一点了，下面是个
　　ObjectARX的例子，其功能是动态关联Excel，然后读取其数据，并将这些数据打印在文本域中。
6 L4 X; v$ {, `; d; d　　//动态从Excel读取数据
! ^$ [% C, B4 m0 a5 r! S/ A' Q　　int DynamicReadFromExcel()
& h' Z% w4 \6 h3 Y% n. J! s* U9 c　　{
　　//常用变量定义
6 Q3 Y/ j5 n' K- W! ^* a　　_Application app;
　　Workbooks books;
　　_Workbook book;
　　Worksheets sheets;
　　_Worksheet sheet;
　　Range range;
1 O. }& L; c3 K2 i+ i1 m　　Range iCell;
　　LPDISPATCH lpDisp;
3 U+ Q$ M0 _, ]7 Z　　COleVariant
( U- u3 p# F4 o, [　　covTrue((short)TRUE),
　　covFalse((short)FALSE),
　　covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
　　COleVariant vResult;
　　//采用MFC方式初始化COM库，程序结束时COM库会自动释放
　　if(!AfxOleInit())
6 T% j; T+ T5 Y7 y: t6 T7 o* \+ u　　{
/ w! g  C9 I7 h: t　　MessageBox(NULL,"初始化COM支持库失败!\n无法控制Excel!", \
　　"TrueTable",MB_IConERROR | MB_OK);
　　return RTERROR;
　　}
& ]: l: z+ H8 ?& i　　//关联已经运行的Excel实例
3 H7 s0 O! g. K: W: i　　CLSID clsid;
　　CLSIDFromProgID(L"Excel.Application", &clsid);
　　IUnknown *pUnk = NULL;
+ i6 L9 S8 W# f, C3 w6 B　　IDispatch *pRunDisp = NULL;
　　for(long i=1;i<=5;i++) //做5次尝试
　　{
6 d; \* g& r( Z' @0 s　　HRESULT hr = GetActiveObject(clsid, NULL, (IUnknown**)&pUnk);
　　if(SUCCEEDED(hr))
　　{
　　hr = pUnk->QueryInterface(IID_IDispatch, (void **)&pRunDisp);
　　break;
　　}
　　::Sleep(10);
' o6 h4 P# i& I: |　　}
3 x6 `, V4 C) P# G　　if (!pRunDisp)
1 `2 F8 {% T6 L: w* }　　{
$ j" m0 P' `# b. m9 x% D+ P. P　　::MessageBox(NULL, "没有发现Excel!", "TrueTable", MB_ICONHAND);
& O) i+ E4 R, p3 h　　return RTERROR;
: l7 w/ F" `  n　　}
7 a# U* b* ~  n5 X6 _3 n! ?　　if (pUnk) pUnk->Release();
- l) i' r; V* D& b4 E0 J　　//关联Excel
　　app.AttachDispatch (pRunDisp);
　　//得到当前活跃sheet
　　//如果有单元格正处于编辑状态中，此操作不能返回，会一直等待
　　lpDisp=app.GetActiveSheet();
2 v) q6 N8 k" X; ]+ m  y* |# R　　if(lpDisp==NULL)
　　{
% {) W. _. y4 Y$ p; h　　MessageBox(NULL, "没有发现有效的表格!", \
　　"TrueTable",MB_IConERROR | MB_OK);
' s- P; s1 v. n+ w. W　　app.ReleaseDispatch ();
8 }9 L* Y' n* b) S, N　　return RTERROR;
　　}
　　sheet.AttachDispatch(lpDisp);
　　//已经使用的行数:
" p) \7 c2 D* [0 i& M' y　　long row_num;
　　range.AttachDispatch(sheet.GetUsedRange());
% [$ o& q! \$ M4 w0 {3 n　　range.AttachDispatch(range.GetRows());
　　row_num=range.GetCount();
4 i3 T* B2 u1 U( e/ X0 R  x　　//已经使用的列数:
4 Y; i: G+ y# f7 }9 F　　long col_num;
　　range.AttachDispatch(sheet.GetUsedRange());
" P8 c* _; G3 d% {5 e　　range.AttachDispatch(range.GetColumns());
& B% J8 W* |* Q% I　　col_num=range.GetCount();
* k; d6 B  I4 w. b- H　　//已经使用区域的起始行、列：
( l! G$ Z3 g. O1 l0 q$ P　　range.AttachDispatch(sheet.GetUsedRange());
, A( ]/ w7 ?# w% ]　　long StartRow=range.GetRow(); //起始行
　　long StartCol=range.GetColumn(); //起始列
% B9 B$ P  I0 O5 V9 [$ X　　//读取sheet名
% D( D( u: k0 \& ?: s　　CString SheetName=sheet.GetName();
; R" ?* x' C& ~1 N3 W$ W& |　　//ads_printf("\n%s",SheetName);
　　if(col_num<2 && row_num<2) //此sheet为空
　　{
3 F# @5 x( d8 R　　MessageBox(NULL,"\n当前表格没有数据!", \
6 v, t! c; b' r, V5 L7 s　　"TrueTable",MB_IConERROR | MB_OK);
4 r0 F( A  M2 o2 [. F　　app.ReleaseDispatch ();
　　return RTERROR;
3 a0 e* J& S: d: x% S/ v　　}
　　else
! m3 ]- W" h1 ^+ ]4 D2 I3 J; K3 l; y　　{
　　ads_printf("\n表格%s共%d行,%d列",SheetName,row_num,col_num);
　　}
　　//得到全部Cells，此时,range是cells的集合
　　range.AttachDispatch(sheet.GetCells());
　　//读写数据了
2 w1 D+ E5 _, t4 Q6 T6 t　　CString cstr;
5 }8 C/ q; m3 N6 l! L% O　　ads_printf("\n");
　　for(long i=StartRow;i<STARTROW+ROW_NUM;I++) 　　{
- ^9 Q3 i' a; s2 W2 {# B　　for(long j=StartCol;j<STARTCOL+COL_NUM;J++) 　　{
- g5 X+ }1 z. w& L) i　　//读取单元格文本
　　iCell.AttachDispatch(range.GetItem (COleVariant(i),COleVariant(j)).pdispVal );
" l( G! }% J: S　　vResult =iCell.GetText();
3 |7 ~8 B) l. t) e　　cstr=vResult.bstrVal;
　　//写单元格文本
　　ads_printf("%s ",(LPTSTR)cstr);
  o" k3 R' e2 l4 v　　}
- O; X. N7 r* e4 ]　　ads_printf("\n");
　　}
( S8 `( e3 ^) U　　//释放Dispatch
　　iCell.ReleaseDispatch ();
　　range.ReleaseDispatch ();
7 s: u7 l: N+ B; f6 c5 A( c1 Z　　sheet.ReleaseDispatch ();
: ?( m9 t" c* M: S　　sheets.ReleaseDispatch ();
　　book.ReleaseDispatch ();
　　books.ReleaseDispatch ();
　　app.ReleaseDispatch ();
　　return RTNORM;
　　}
5 |" t' d/ R# c1 d( \) V- ]3 _1 P　　如果要输出到Excel的话，关键函数就是：
5 Q1 I: _* G# _$ W2 N　　iCell.SetItem(COleVariant(i),COleVariant(j),COleVariant(cstr));

tgdoing

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