在AutoCAD中动态读取Excel数据

秋之收

在实际的工作中，我们经常要对一些表格数据进行处理，如果先把这些表格数据通过Excel处理，再导入到AutoCAD，
6 b' t+ n# z6 h' u2 N　　那绝对会起到事半功倍的效果。随着Automation编程技术的出现，我们可以很方便地实现这一点了，下面是个
' U( y+ C8 f3 C7 S. [9 F! E　　ObjectARX的例子，其功能是动态关联Excel，然后读取其数据，并将这些数据打印在文本域中。
　　//动态从Excel读取数据
　　int DynamicReadFromExcel()
# W+ D% b* t) O/ {+ Q' B6 M% e　　{
　　//常用变量定义
7 ?$ v' J3 x5 ~" w　　_Application app;
8 U9 V/ k$ d! L) G2 E3 i3 c# p　　Workbooks books;
　　_Workbook book;
　　Worksheets sheets;
9 r" W/ Q( Z: `: }- o) U+ ?+ M　　_Worksheet sheet;
　　Range range;
　　Range iCell;
　　LPDISPATCH lpDisp;
+ B. K* K7 H( U0 l  j5 K　　COleVariant
　　covTrue((short)TRUE),
　　covFalse((short)FALSE),
　　covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
1 W6 L% K5 W- A$ i　　COleVariant vResult;
　　//采用MFC方式初始化COM库，程序结束时COM库会自动释放
　　if(!AfxOleInit())
　　{
　　MessageBox(NULL,"初始化COM支持库失败!\n无法控制Excel!", \
　　"TrueTable",MB_IConERROR | MB_OK);
4 Z5 Q- e1 B9 S$ e  C) G　　return RTERROR;
　　}
　　//关联已经运行的Excel实例
　　CLSID clsid;
　　CLSIDFromProgID(L"Excel.Application", &clsid);
　　IUnknown *pUnk = NULL;
　　IDispatch *pRunDisp = NULL;
! q$ p* N7 n3 l) r8 g* h　　for(long i=1;i<=5;i++) //做5次尝试
- D' w4 E% a0 P! B　　{
* S- v" Y8 s0 k& M　　HRESULT hr = GetActiveObject(clsid, NULL, (IUnknown**)&pUnk);
4 P& ?, m& |, U; G  i% C8 j9 D; a　　if(SUCCEEDED(hr))
. J: V# M1 ~) z5 H/ X　　{
  r3 O) x: ?- r; L　　hr = pUnk->QueryInterface(IID_IDispatch, (void **)&pRunDisp);
' |% \, R: v6 c0 ?! t　　break;
　　}
　　::Sleep(10);
( l( V  E+ w' T3 z$ @& U　　}
5 V9 r: N% i: P, [' K, _; _8 A　　if (!pRunDisp)
8 h) m& Z  f' z2 K: T$ a　　{
- x  _% c: f6 Y7 m( |: X　　::MessageBox(NULL, "没有发现Excel!", "TrueTable", MB_ICONHAND);
% R2 O: \' L) e/ u　　return RTERROR;
　　}
　　if (pUnk) pUnk->Release();
　　//关联Excel
　　app.AttachDispatch (pRunDisp);
; M( j0 y2 p+ v3 U　　//得到当前活跃sheet
　　//如果有单元格正处于编辑状态中，此操作不能返回，会一直等待
　　lpDisp=app.GetActiveSheet();
　　if(lpDisp==NULL)
　　{
# _1 M! |  K) X: b' W8 b. {. q　　MessageBox(NULL, "没有发现有效的表格!", \
( ]6 r( H5 o0 w: |# w9 n7 F　　"TrueTable",MB_IConERROR | MB_OK);
' v3 [+ `! _; R4 w: }; F7 @　　app.ReleaseDispatch ();
　　return RTERROR;
　　}
　　sheet.AttachDispatch(lpDisp);
% f$ @1 n5 K- P4 O( n1 ~　　//已经使用的行数:
- X2 B) h4 T; B* A4 U2 j; W( z　　long row_num;
　　range.AttachDispatch(sheet.GetUsedRange());
　　range.AttachDispatch(range.GetRows());
　　row_num=range.GetCount();
/ j1 s  A( l! V$ P7 }: e' x　　//已经使用的列数:
　　long col_num;
: e3 j* s5 o5 s+ n% o( S　　range.AttachDispatch(sheet.GetUsedRange());
　　range.AttachDispatch(range.GetColumns());
2 G2 i$ V; ^$ S+ C- s. u; x　　col_num=range.GetCount();
1 c- P# V2 G* l1 h/ Q3 S6 r　　//已经使用区域的起始行、列：
( G9 Y$ `8 M" M- L　　range.AttachDispatch(sheet.GetUsedRange());
4 u) M: ^& J9 U. _　　long StartRow=range.GetRow(); //起始行
; f7 R: }! y0 f- c% Y, i0 q1 {# s1 \　　long StartCol=range.GetColumn(); //起始列
$ H! ]& C  x' h: y' B+ A　　//读取sheet名
) V% l. l# x# k( L+ ]2 C7 [　　CString SheetName=sheet.GetName();
　　//ads_printf("\n%s",SheetName);
: |! y! e4 R- D, o, K　　if(col_num<2 && row_num<2) //此sheet为空
　　{
　　MessageBox(NULL,"\n当前表格没有数据!", \
　　"TrueTable",MB_IConERROR | MB_OK);
　　app.ReleaseDispatch ();
　　return RTERROR;
+ ^; a% X4 h0 G! K　　}
　　else
　　{
0 q4 ]; m" O# I/ U; Y! _　　ads_printf("\n表格%s共%d行,%d列",SheetName,row_num,col_num);
　　}
　　//得到全部Cells，此时,range是cells的集合
, y7 Z" f1 s9 d* R　　range.AttachDispatch(sheet.GetCells());
& R/ n+ r. U: ^  V( h3 `5 C& l　　//读写数据了
　　CString cstr;
　　ads_printf("\n");
  n2 p: T, V! X6 Q　　for(long i=StartRow;i<STARTROW+ROW_NUM;I++) 　　{
. f: x5 F& E* S; ^) i, ?　　for(long j=StartCol;j<STARTCOL+COL_NUM;J++) 　　{
　　//读取单元格文本
　　iCell.AttachDispatch(range.GetItem (COleVariant(i),COleVariant(j)).pdispVal );
+ u. @8 ^  y* M. y) L2 q- e　　vResult =iCell.GetText();
* h6 X! w" c" W; O9 F" _. f5 z/ i( ]　　cstr=vResult.bstrVal;
7 O/ Y! p) F# I) ], T　　//写单元格文本
　　ads_printf("%s ",(LPTSTR)cstr);
5 Q/ A7 l1 N: q4 u7 P8 T　　}
　　ads_printf("\n");
　　}
　　//释放Dispatch
　　iCell.ReleaseDispatch ();
　　range.ReleaseDispatch ();
% d+ s1 |8 Q, X; E: l+ o; j　　sheet.ReleaseDispatch ();
　　sheets.ReleaseDispatch ();
( j. O1 x' U8 v/ E. X3 n. W+ L! C　　book.ReleaseDispatch ();
1 N3 C# }; x+ t7 T( h　　books.ReleaseDispatch ();
　　app.ReleaseDispatch ();
1 D8 M# z# v* [　　return RTNORM;
+ L4 }& y1 \2 C, S5 ~) T' w　　}
! ^% R) d% v# Z% b　　如果要输出到Excel的话，关键函数就是：
　　iCell.SetItem(COleVariant(i),COleVariant(j),COleVariant(cstr));

tgdoing

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