在AutoCAD中动态读取Excel数据

秋之收

在实际的工作中，我们经常要对一些表格数据进行处理，如果先把这些表格数据通过Excel处理，再导入到AutoCAD，
' y0 h2 z5 a. q' G　　那绝对会起到事半功倍的效果。随着Automation编程技术的出现，我们可以很方便地实现这一点了，下面是个
　　ObjectARX的例子，其功能是动态关联Excel，然后读取其数据，并将这些数据打印在文本域中。
　　//动态从Excel读取数据
　　int DynamicReadFromExcel()
　　{
　　//常用变量定义
　　_Application app;
3 a. w1 i+ ?4 N　　Workbooks books;
　　_Workbook book;
, z) n5 p. m4 ?5 Y! D3 t　　Worksheets sheets;
# r# u- e6 u' B" F8 h　　_Worksheet sheet;
　　Range range;
- h' w7 p  g; w7 t3 k　　Range iCell;
　　LPDISPATCH lpDisp;
　　COleVariant
" ?( O' S, [/ O- o) K　　covTrue((short)TRUE),
　　covFalse((short)FALSE),
　　covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
8 S% l8 t# p# R& ~+ g6 x　　COleVariant vResult;
　　//采用MFC方式初始化COM库，程序结束时COM库会自动释放
1 G6 ~& \* o( `! V5 B' W( `　　if(!AfxOleInit())
　　{
( c, Z6 g5 Z+ b: R　　MessageBox(NULL,"初始化COM支持库失败!\n无法控制Excel!", \
　　"TrueTable",MB_IConERROR | MB_OK);
0 ?: I, p' \5 p1 _) {　　return RTERROR;
　　}
　　//关联已经运行的Excel实例
& I* z! J) A3 W. h' V　　CLSID clsid;
, N2 U+ p8 k( }; O! v3 y　　CLSIDFromProgID(L"Excel.Application", &clsid);
$ f  ^: F* M5 v- N; V　　IUnknown *pUnk = NULL;
　　IDispatch *pRunDisp = NULL;
& T2 g2 v/ K# c　　for(long i=1;i<=5;i++) //做5次尝试
* }, {9 n; V8 ^1 I　　{
: T7 l( s' e9 N5 @% D5 Z　　HRESULT hr = GetActiveObject(clsid, NULL, (IUnknown**)&pUnk);
　　if(SUCCEEDED(hr))
　　{
　　hr = pUnk->QueryInterface(IID_IDispatch, (void **)&pRunDisp);
' \% O% h2 p; f9 |" E/ a( F* \6 e, C　　break;
& C  s! x7 W0 r5 B$ F　　}
- z; T& g8 h% Y4 W　　::Sleep(10);
  H& d7 \& W! |8 B　　}
　　if (!pRunDisp)
　　{
　　::MessageBox(NULL, "没有发现Excel!", "TrueTable", MB_ICONHAND);
　　return RTERROR;
0 p4 [8 T: r& M! \# t5 x: a　　}
2 y' N' ?, P# H! j) I* e- L. a　　if (pUnk) pUnk->Release();
　　//关联Excel
　　app.AttachDispatch (pRunDisp);
+ f+ F* S0 E8 r2 _7 O% O6 O　　//得到当前活跃sheet
　　//如果有单元格正处于编辑状态中，此操作不能返回，会一直等待
　　lpDisp=app.GetActiveSheet();
3 v2 }4 @' f& P" f' A$ v1 N　　if(lpDisp==NULL)
　　{
# K% h2 l4 c2 f5 r* F0 z/ K　　MessageBox(NULL, "没有发现有效的表格!", \
　　"TrueTable",MB_IConERROR | MB_OK);
3 o9 s& R' A: p" J% P4 f　　app.ReleaseDispatch ();
　　return RTERROR;
9 w# v5 i+ O; v- X, ?　　}
% M" T& D  s1 \, l/ @9 Q　　sheet.AttachDispatch(lpDisp);
　　//已经使用的行数:
7 s$ k7 o, A6 H7 B8 _0 O5 {: ]　　long row_num;
4 \- s/ d8 C. O( J( Z2 G　　range.AttachDispatch(sheet.GetUsedRange());
7 e2 `) |8 C3 g/ I　　range.AttachDispatch(range.GetRows());
　　row_num=range.GetCount();
( q, Z$ I8 f. U4 y' f6 l. x; c2 M　　//已经使用的列数:
　　long col_num;
7 c* G* T/ ~. S" |( B. f- _  z　　range.AttachDispatch(sheet.GetUsedRange());
: X  D1 w1 E3 w8 X　　range.AttachDispatch(range.GetColumns());
% W& U' Z: Q# Z& ]/ _( r9 k　　col_num=range.GetCount();
　　//已经使用区域的起始行、列：
　　range.AttachDispatch(sheet.GetUsedRange());
　　long StartRow=range.GetRow(); //起始行
　　long StartCol=range.GetColumn(); //起始列
% z2 J& n; q$ ^; d- K4 ~　　//读取sheet名
　　CString SheetName=sheet.GetName();
　　//ads_printf("\n%s",SheetName);
7 @, r5 D% a/ x1 t  E' l　　if(col_num<2 && row_num<2) //此sheet为空
　　{
; h9 Y( C9 H4 a3 A+ m) O- f　　MessageBox(NULL,"\n当前表格没有数据!", \
+ K6 b# B0 z2 h: D* C+ T/ F, l  V　　"TrueTable",MB_IConERROR | MB_OK);
　　app.ReleaseDispatch ();
　　return RTERROR;
" y9 V' P! v% B: ?6 |4 ^　　}
　　else
* c4 A$ g4 r6 K; K　　{
2 A& f; T- L5 @　　ads_printf("\n表格%s共%d行,%d列",SheetName,row_num,col_num);
$ V: p7 ?3 G+ {4 z　　}
8 \9 q! r, g$ i" q1 h( ]　　//得到全部Cells，此时,range是cells的集合
3 j9 n$ N  n7 t7 A% m: t8 d* M　　range.AttachDispatch(sheet.GetCells());
　　//读写数据了
　　CString cstr;
! V' ^# l4 D& V6 Z; v8 ?2 X　　ads_printf("\n");
　　for(long i=StartRow;i<STARTROW+ROW_NUM;I++) 　　{
/ ?: }; W9 x% K' ]" e" V　　for(long j=StartCol;j<STARTCOL+COL_NUM;J++) 　　{
$ J( ?% F5 W3 H+ |　　//读取单元格文本
7 i+ n3 U/ o; D" r8 z4 c　　iCell.AttachDispatch(range.GetItem (COleVariant(i),COleVariant(j)).pdispVal );
: }5 a" E. }9 j　　vResult =iCell.GetText();
. y4 V* E1 r, c- ?0 E9 B- L9 ?　　cstr=vResult.bstrVal;
　　//写单元格文本
0 P$ R* L2 R& ?# i5 P　　ads_printf("%s ",(LPTSTR)cstr);
　　}
　　ads_printf("\n");
　　}
　　//释放Dispatch
　　iCell.ReleaseDispatch ();
' v" E  k" ]3 w! {2 R　　range.ReleaseDispatch ();
　　sheet.ReleaseDispatch ();
　　sheets.ReleaseDispatch ();
　　book.ReleaseDispatch ();
　　books.ReleaseDispatch ();
+ |; S" _: T+ e0 s$ x, n1 J0 b　　app.ReleaseDispatch ();
! j; D! f: t/ B/ d0 `　　return RTNORM;
　　}
　　如果要输出到Excel的话，关键函数就是：
　　iCell.SetItem(COleVariant(i),COleVariant(j),COleVariant(cstr));

tgdoing

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