在AutoCAD中动态读取Excel数据

秋之收

在实际的工作中，我们经常要对一些表格数据进行处理，如果先把这些表格数据通过Excel处理，再导入到AutoCAD，
　　那绝对会起到事半功倍的效果。随着Automation编程技术的出现，我们可以很方便地实现这一点了，下面是个
　　ObjectARX的例子，其功能是动态关联Excel，然后读取其数据，并将这些数据打印在文本域中。
　　//动态从Excel读取数据
　　int DynamicReadFromExcel()
1 X% \. V. e( v" T" S　　{
　　//常用变量定义
& ^" u" Q, m* r3 r& \　　_Application app;
% Z6 i8 r4 R7 ]$ ~& T. T　　Workbooks books;
　　_Workbook book;
% L/ A5 n4 C4 J% D　　Worksheets sheets;
9 a7 Z6 ]" m# g2 R　　_Worksheet sheet;
# l' ?8 I. \$ C- O　　Range range;
　　Range iCell;
　　LPDISPATCH lpDisp;
　　COleVariant
　　covTrue((short)TRUE),
　　covFalse((short)FALSE),
. f( z( @; v3 P; w3 _2 `　　covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
　　COleVariant vResult;
　　//采用MFC方式初始化COM库，程序结束时COM库会自动释放
　　if(!AfxOleInit())
$ G$ i# z: g, Z, m　　{
　　MessageBox(NULL,"初始化COM支持库失败!\n无法控制Excel!", \
　　"TrueTable",MB_IConERROR | MB_OK);
　　return RTERROR;
　　}
　　//关联已经运行的Excel实例
* u: |# c3 I4 m　　CLSID clsid;
. N; u+ ^) y" f* o$ h8 @　　CLSIDFromProgID(L"Excel.Application", &clsid);
　　IUnknown *pUnk = NULL;
8 D: H, |3 U% E) V5 r　　IDispatch *pRunDisp = NULL;
　　for(long i=1;i<=5;i++) //做5次尝试
) g$ d& E* ]% ~+ m3 o　　{
3 |, I) n$ g1 ]2 T8 _　　HRESULT hr = GetActiveObject(clsid, NULL, (IUnknown**)&pUnk);
. I* b/ X* s; Z$ \2 d+ Z　　if(SUCCEEDED(hr))
: l* _4 d/ Y  d' t- A　　{
" C  d! {" ~1 W) w# C% I  w　　hr = pUnk->QueryInterface(IID_IDispatch, (void **)&pRunDisp);
　　break;
　　}
6 c5 y% _( C1 K! l& ]$ p: W/ L3 s　　::Sleep(10);
% _& p! J) d7 B" h" L( i, A" [% |! Z　　}
　　if (!pRunDisp)
$ R7 N: U% \: L5 h　　{
5 J, a3 L# V! y. b9 u0 v　　::MessageBox(NULL, "没有发现Excel!", "TrueTable", MB_ICONHAND);
　　return RTERROR;
# ?# S  Z: V3 D/ l  Z$ {& u　　}
+ m8 p$ @" |/ Q( J# t4 m- |　　if (pUnk) pUnk->Release();
　　//关联Excel
　　app.AttachDispatch (pRunDisp);
　　//得到当前活跃sheet
/ u) [5 \5 {* t, c# W9 e5 O. g- G　　//如果有单元格正处于编辑状态中，此操作不能返回，会一直等待
' V9 L6 u+ i3 W6 w: n% r& E　　lpDisp=app.GetActiveSheet();
9 z  ], [/ f0 a% u0 O　　if(lpDisp==NULL)
　　{
7 I2 n2 Y  z6 e- W. a; I) X　　MessageBox(NULL, "没有发现有效的表格!", \
$ k) I) v) Z& k2 u0 V5 i: t) k　　"TrueTable",MB_IConERROR | MB_OK);
# g+ w/ d! S* x9 X* s' Q　　app.ReleaseDispatch ();
/ a$ l% e, D" \* d' }　　return RTERROR;
; c( M8 q! l5 r1 D+ k　　}
; T2 A) M9 M! x3 `. T2 U: F　　sheet.AttachDispatch(lpDisp);
　　//已经使用的行数:
　　long row_num;
9 j* f) e# B  k% Z　　range.AttachDispatch(sheet.GetUsedRange());
/ C% N! L" e0 V" _　　range.AttachDispatch(range.GetRows());
. i& m, u5 T/ C% _: m　　row_num=range.GetCount();
. ~: M- R6 l2 `& [) k/ y　　//已经使用的列数:
0 y/ ~$ u* U/ a, x% q) S) o0 z　　long col_num;
　　range.AttachDispatch(sheet.GetUsedRange());
　　range.AttachDispatch(range.GetColumns());
1 p% N) Y$ M8 f& `4 E9 }. h　　col_num=range.GetCount();
6 I% a3 l/ G! f; W, q% ~　　//已经使用区域的起始行、列：
; E& d. y; u8 S1 x　　range.AttachDispatch(sheet.GetUsedRange());
　　long StartRow=range.GetRow(); //起始行
. o% m& e  G: q$ N8 M( Q4 v8 q　　long StartCol=range.GetColumn(); //起始列
7 ~) b8 i! S5 m+ e3 X* J/ l! L! g- d　　//读取sheet名
  b7 E$ p* j( ^9 l$ \　　CString SheetName=sheet.GetName();
　　//ads_printf("\n%s",SheetName);
　　if(col_num<2 && row_num<2) //此sheet为空
　　{
　　MessageBox(NULL,"\n当前表格没有数据!", \
5 E: ~- i: I! C! g) R8 p+ l　　"TrueTable",MB_IConERROR | MB_OK);
　　app.ReleaseDispatch ();
2 b& A# p( z% P$ S8 c/ W* U9 j　　return RTERROR;
, U/ |/ R: V8 O$ ]9 l6 U　　}
9 f% _8 h! L6 U; p1 Z0 X　　else
　　{
　　ads_printf("\n表格%s共%d行,%d列",SheetName,row_num,col_num);
　　}
　　//得到全部Cells，此时,range是cells的集合
　　range.AttachDispatch(sheet.GetCells());
　　//读写数据了
　　CString cstr;
　　ads_printf("\n");
　　for(long i=StartRow;i<STARTROW+ROW_NUM;I++) 　　{
/ w8 f8 z. j2 b3 Q* ~　　for(long j=StartCol;j<STARTCOL+COL_NUM;J++) 　　{
　　//读取单元格文本
) ?! L3 v, |5 f& C0 |　　iCell.AttachDispatch(range.GetItem (COleVariant(i),COleVariant(j)).pdispVal );
. b' k5 W  K5 F0 J　　vResult =iCell.GetText();
+ l$ W0 n2 K4 `　　cstr=vResult.bstrVal;
　　//写单元格文本
　　ads_printf("%s ",(LPTSTR)cstr);
  O" i7 E0 E: V/ z- S& Z　　}
8 T4 ]/ M9 g2 g9 Y　　ads_printf("\n");
　　}
　　//释放Dispatch
　　iCell.ReleaseDispatch ();
　　range.ReleaseDispatch ();
　　sheet.ReleaseDispatch ();
　　sheets.ReleaseDispatch ();
　　book.ReleaseDispatch ();
" w" z/ P1 A, F- u/ q: h6 U　　books.ReleaseDispatch ();
2 B! X. _% j) A) }" G1 _' G& X. y　　app.ReleaseDispatch ();
　　return RTNORM;
; x& q. {5 z% L7 [7 Y8 D, S　　}
　　如果要输出到Excel的话，关键函数就是：
- H. O2 [4 z: O1 E% p9 y% [　　iCell.SetItem(COleVariant(i),COleVariant(j),COleVariant(cstr));

tgdoing

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