在AutoCAD中动态读取Excel数据

秋之收

在实际的工作中，我们经常要对一些表格数据进行处理，如果先把这些表格数据通过Excel处理，再导入到AutoCAD，
　　那绝对会起到事半功倍的效果。随着Automation编程技术的出现，我们可以很方便地实现这一点了，下面是个
　　ObjectARX的例子，其功能是动态关联Excel，然后读取其数据，并将这些数据打印在文本域中。
　　//动态从Excel读取数据
　　int DynamicReadFromExcel()
　　{
　　//常用变量定义
) K4 O& C6 j- g; Y  b　　_Application app;
　　Workbooks books;
　　_Workbook book;
, B$ ~% d; q* K. I: J+ Z9 |　　Worksheets sheets;
　　_Worksheet sheet;
　　Range range;
- ], r/ Q. T2 P$ k+ f　　Range iCell;
. \; D3 X; C; P' l* _　　LPDISPATCH lpDisp;
　　COleVariant
　　covTrue((short)TRUE),
　　covFalse((short)FALSE),
( `0 h4 B3 H$ T2 [' j. ~7 M/ N　　covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
  C/ K6 Q2 O: Z. y  ?　　COleVariant vResult;
　　//采用MFC方式初始化COM库，程序结束时COM库会自动释放
　　if(!AfxOleInit())
　　{
. o- T! y' H' k　　MessageBox(NULL,"初始化COM支持库失败!\n无法控制Excel!", \
- s. q+ B5 ~- C* t( m" A0 ~& L　　"TrueTable",MB_IConERROR | MB_OK);
　　return RTERROR;
　　}
　　//关联已经运行的Excel实例
　　CLSID clsid;
# X5 p, T* o1 w) V　　CLSIDFromProgID(L"Excel.Application", &clsid);
　　IUnknown *pUnk = NULL;
　　IDispatch *pRunDisp = NULL;
; \9 {3 A. T7 S4 s  l" {　　for(long i=1;i<=5;i++) //做5次尝试
　　{
6 K  R; W! a, A( o　　HRESULT hr = GetActiveObject(clsid, NULL, (IUnknown**)&pUnk);
7 O' a' Z: ?. K7 C　　if(SUCCEEDED(hr))
　　{
　　hr = pUnk->QueryInterface(IID_IDispatch, (void **)&pRunDisp);
! r3 |# C3 V6 s3 H　　break;
) t- Q1 t5 N/ U　　}
　　::Sleep(10);
* g+ B- L; T8 B( q: Z　　}
0 R9 H0 u' ~, e7 D, y" b　　if (!pRunDisp)
　　{
$ y) N0 Y; _& d" A3 ~# p3 X　　::MessageBox(NULL, "没有发现Excel!", "TrueTable", MB_ICONHAND);
　　return RTERROR;
　　}
: Z8 q& s1 \2 M6 u　　if (pUnk) pUnk->Release();
　　//关联Excel
　　app.AttachDispatch (pRunDisp);
　　//得到当前活跃sheet
0 u$ [- C2 f1 ?2 i3 Z9 L　　//如果有单元格正处于编辑状态中，此操作不能返回，会一直等待
　　lpDisp=app.GetActiveSheet();
3 W# k1 n# y3 x0 d2 ?9 U1 |　　if(lpDisp==NULL)
8 _% D* y$ r! Y+ O* l% U$ G　　{
　　MessageBox(NULL, "没有发现有效的表格!", \
9 i" l: g- g' H5 n& y0 [　　"TrueTable",MB_IConERROR | MB_OK);
& q- y* O, x" `) m/ w/ k　　app.ReleaseDispatch ();
　　return RTERROR;
　　}
　　sheet.AttachDispatch(lpDisp);
　　//已经使用的行数:
　　long row_num;
' \/ R; U, h+ Z# `　　range.AttachDispatch(sheet.GetUsedRange());
8 ~6 l3 k) A& ~3 m! _7 r3 W　　range.AttachDispatch(range.GetRows());
　　row_num=range.GetCount();
; J* m1 \; v" @* S8 Y/ v　　//已经使用的列数:
& L/ V+ |% l/ o# g/ p　　long col_num;
. i; y! W1 d6 m9 b" X: P6 ?　　range.AttachDispatch(sheet.GetUsedRange());
+ I  x. C' E- |& ^/ x0 S- F　　range.AttachDispatch(range.GetColumns());
　　col_num=range.GetCount();
# h+ }+ J* e& V9 _- t　　//已经使用区域的起始行、列：
$ o* |: q0 n& x& [& O4 e　　range.AttachDispatch(sheet.GetUsedRange());
' N/ J! t& k* z5 ?9 O& [1 p　　long StartRow=range.GetRow(); //起始行
, [$ U' Y. P# _) M( S　　long StartCol=range.GetColumn(); //起始列
　　//读取sheet名
5 u# T: T) s+ ]　　CString SheetName=sheet.GetName();
　　//ads_printf("\n%s",SheetName);
8 z* M$ F* x8 y: G. L) w$ x　　if(col_num<2 && row_num<2) //此sheet为空
% k; `- x, q! d" N/ x　　{
　　MessageBox(NULL,"\n当前表格没有数据!", \
　　"TrueTable",MB_IConERROR | MB_OK);
　　app.ReleaseDispatch ();
( v. C( u* O& z! }1 C+ l　　return RTERROR;
　　}
　　else
　　{
　　ads_printf("\n表格%s共%d行,%d列",SheetName,row_num,col_num);
: p  ~/ K, x2 L- A5 m+ ~9 h, T　　}
* D% l' g7 u4 s2 q0 u　　//得到全部Cells，此时,range是cells的集合
　　range.AttachDispatch(sheet.GetCells());
　　//读写数据了
　　CString cstr;
$ S4 u5 e* Y' y6 [" O　　ads_printf("\n");
+ Z& W/ W! x5 ^: A7 f　　for(long i=StartRow;i<STARTROW+ROW_NUM;I++) 　　{
　　for(long j=StartCol;j<STARTCOL+COL_NUM;J++) 　　{
　　//读取单元格文本
4 P4 x  S6 M7 O　　iCell.AttachDispatch(range.GetItem (COleVariant(i),COleVariant(j)).pdispVal );
! o, O  J1 u/ N; X$ }' z+ A( ]8 R　　vResult =iCell.GetText();
- z4 |* H1 t8 Z# l7 R& A5 n　　cstr=vResult.bstrVal;
　　//写单元格文本
" ]5 O9 |( h- h0 l$ ^# ^2 R( O' k3 K　　ads_printf("%s ",(LPTSTR)cstr);
5 a' j/ [9 J; d% ?  f　　}
/ z2 i+ f2 H3 I8 v$ e. Q8 E2 Y　　ads_printf("\n");
1 X. t5 D% j/ r  [! _' w　　}
　　//释放Dispatch
7 f3 R4 @% t8 E9 R! s$ p　　iCell.ReleaseDispatch ();
　　range.ReleaseDispatch ();
7 W* Q$ \3 O) {- n　　sheet.ReleaseDispatch ();
# e6 Y7 s+ q  }, n　　sheets.ReleaseDispatch ();
　　book.ReleaseDispatch ();
　　books.ReleaseDispatch ();
　　app.ReleaseDispatch ();
: O# [. y9 Z# @  H9 a2 c　　return RTNORM;
6 }  N; }2 W- d. E3 d4 H　　}
　　如果要输出到Excel的话，关键函数就是：
2 h, R: a$ j2 j0 }' g　　iCell.SetItem(COleVariant(i),COleVariant(j),COleVariant(cstr));

tgdoing

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