在AutoCAD中动态读取Excel数据

秋之收

在实际的工作中，我们经常要对一些表格数据进行处理，如果先把这些表格数据通过Excel处理，再导入到AutoCAD，
　　那绝对会起到事半功倍的效果。随着Automation编程技术的出现，我们可以很方便地实现这一点了，下面是个
　　ObjectARX的例子，其功能是动态关联Excel，然后读取其数据，并将这些数据打印在文本域中。
) G& t  E9 _1 _( e5 j7 s　　//动态从Excel读取数据
: ?) [" _) K/ }. b　　int DynamicReadFromExcel()
　　{
% h# A' v; N7 u5 `6 g5 N　　//常用变量定义
　　_Application app;
　　Workbooks books;
　　_Workbook book;
0 S3 M9 N1 _/ [! O" ?7 Z% ?　　Worksheets sheets;
　　_Worksheet sheet;
1 H" `+ S8 k% v; }8 o: D　　Range range;
& m( Q: I" e' g0 D' B* R　　Range iCell;
　　LPDISPATCH lpDisp;
　　COleVariant
$ O, X4 k3 v- n% \. j+ a　　covTrue((short)TRUE),
　　covFalse((short)FALSE),
5 v4 F6 o/ x5 ]5 h* B　　covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
# _, k1 _9 j4 p2 C2 K7 s, u# o　　COleVariant vResult;
. U$ {" E4 c% |9 X　　//采用MFC方式初始化COM库，程序结束时COM库会自动释放
　　if(!AfxOleInit())
　　{
　　MessageBox(NULL,"初始化COM支持库失败!\n无法控制Excel!", \
　　"TrueTable",MB_IConERROR | MB_OK);
( X  w, A3 y7 h( O　　return RTERROR;
　　}
　　//关联已经运行的Excel实例
$ M0 K; b3 A2 v6 M. w　　CLSID clsid;
& C; V; @, O# t　　CLSIDFromProgID(L"Excel.Application", &clsid);
4 v% k- V. _% E( i2 u# o8 V) v　　IUnknown *pUnk = NULL;
　　IDispatch *pRunDisp = NULL;
　　for(long i=1;i<=5;i++) //做5次尝试
　　{
" d1 H1 X; Z1 Z2 _: Q) p　　HRESULT hr = GetActiveObject(clsid, NULL, (IUnknown**)&pUnk);
　　if(SUCCEEDED(hr))
　　{
/ {9 f! E* i* ], s! E. d2 n4 Q2 ?0 `% d6 j　　hr = pUnk->QueryInterface(IID_IDispatch, (void **)&pRunDisp);
# g% [% N+ W$ `, H' X/ c　　break;
　　}
　　::Sleep(10);
: e) ?& J# a- A% X7 ]. A　　}
1 o/ @! b5 i, b) K　　if (!pRunDisp)
　　{
　　::MessageBox(NULL, "没有发现Excel!", "TrueTable", MB_ICONHAND);
　　return RTERROR;
+ ^$ ^, x) i/ e4 W　　}
　　if (pUnk) pUnk->Release();
　　//关联Excel
6 e/ }& q( B& A9 v( i& \/ U　　app.AttachDispatch (pRunDisp);
) U! e) w8 ?. ]; v: L5 C　　//得到当前活跃sheet
　　//如果有单元格正处于编辑状态中，此操作不能返回，会一直等待
: G6 J# h6 Z! U+ ], K9 K* D) x- ?　　lpDisp=app.GetActiveSheet();
　　if(lpDisp==NULL)
& u" {1 T) ]  f* D& B" _% `　　{
' j# ^/ s) f8 A; K　　MessageBox(NULL, "没有发现有效的表格!", \
　　"TrueTable",MB_IConERROR | MB_OK);
( O2 \' {% r) T& t% r! M　　app.ReleaseDispatch ();
2 t- H# Y) |* O" |+ x  x# n　　return RTERROR;
　　}
; M4 @2 c4 {2 ]1 f7 T　　sheet.AttachDispatch(lpDisp);
　　//已经使用的行数:
　　long row_num;
　　range.AttachDispatch(sheet.GetUsedRange());
　　range.AttachDispatch(range.GetRows());
$ y' m; H) |& \　　row_num=range.GetCount();
4 _6 i, k6 U% W5 T4 T4 N, p　　//已经使用的列数:
, t6 B6 O* A% G　　long col_num;
4 Z/ W& s9 T6 m+ V7 j) s, a　　range.AttachDispatch(sheet.GetUsedRange());
  G) K/ _6 l6 ^　　range.AttachDispatch(range.GetColumns());
　　col_num=range.GetCount();
　　//已经使用区域的起始行、列：
　　range.AttachDispatch(sheet.GetUsedRange());
2 r5 Y3 |& d1 d$ P　　long StartRow=range.GetRow(); //起始行
　　long StartCol=range.GetColumn(); //起始列
" K) i4 j( C9 z1 ]$ N; t　　//读取sheet名
3 V( i# E& e0 X1 _% P6 p　　CString SheetName=sheet.GetName();
　　//ads_printf("\n%s",SheetName);
! ^& S6 c4 ?* Y6 p　　if(col_num<2 && row_num<2) //此sheet为空
　　{
　　MessageBox(NULL,"\n当前表格没有数据!", \
1 x9 z' J+ q2 o7 U+ W/ T　　"TrueTable",MB_IConERROR | MB_OK);
　　app.ReleaseDispatch ();
　　return RTERROR;
: C* `# |! q+ |7 V! t& R+ T0 r/ y2 e　　}
$ F, I, p; U' k, O4 m+ z' r　　else
　　{
4 E  H2 `7 r$ q+ ^5 _　　ads_printf("\n表格%s共%d行,%d列",SheetName,row_num,col_num);
" K$ `0 x2 @* `　　}
  b# W+ G( [9 e2 V3 Z　　//得到全部Cells，此时,range是cells的集合
　　range.AttachDispatch(sheet.GetCells());
　　//读写数据了
　　CString cstr;
　　ads_printf("\n");
　　for(long i=StartRow;i<STARTROW+ROW_NUM;I++) 　　{
　　for(long j=StartCol;j<STARTCOL+COL_NUM;J++) 　　{
　　//读取单元格文本
$ D' C# o# O3 N% n; E9 y- u  g　　iCell.AttachDispatch(range.GetItem (COleVariant(i),COleVariant(j)).pdispVal );
. v0 ]2 v& h) @　　vResult =iCell.GetText();
. g* y2 O& `6 [8 b+ q　　cstr=vResult.bstrVal;
% I: }/ d1 L! z1 Q　　//写单元格文本
" q0 i7 ]! J% w9 G3 ~! h9 r* J　　ads_printf("%s ",(LPTSTR)cstr);
( T$ z2 t( S( o) o: y- z$ j' A　　}
　　ads_printf("\n");
　　}
2 Z+ h% t, y! e. _: I　　//释放Dispatch
& q9 K- I% M; N9 }: a　　iCell.ReleaseDispatch ();
　　range.ReleaseDispatch ();
　　sheet.ReleaseDispatch ();
5 D2 o, S* Z; T/ i0 D0 H　　sheets.ReleaseDispatch ();
: o  w' V8 L6 \5 `/ m; F/ R% d　　book.ReleaseDispatch ();
% x' e0 @: T2 R, |1 H4 |　　books.ReleaseDispatch ();
7 ], d0 E+ S; t9 E1 C6 _　　app.ReleaseDispatch ();
　　return RTNORM;
4 i% D+ B' g1 y$ }8 \" Z　　}
　　如果要输出到Excel的话，关键函数就是：
　　iCell.SetItem(COleVariant(i),COleVariant(j),COleVariant(cstr));

tgdoing

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