在AutoCAD中动态读取Excel数据

秋之收

在实际的工作中，我们经常要对一些表格数据进行处理，如果先把这些表格数据通过Excel处理，再导入到AutoCAD，
　　那绝对会起到事半功倍的效果。随着Automation编程技术的出现，我们可以很方便地实现这一点了，下面是个
　　ObjectARX的例子，其功能是动态关联Excel，然后读取其数据，并将这些数据打印在文本域中。
　　//动态从Excel读取数据
/ l+ U* ?( N- G* Z  l: ~: T　　int DynamicReadFromExcel()
3 h% ?( K, c' ^: I3 }) ^$ M　　{
　　//常用变量定义
　　_Application app;
1 ]) K" }% y; D7 z) ^　　Workbooks books;
" m. s- J$ Q! J9 }　　_Workbook book;
8 @' u* T1 u* e　　Worksheets sheets;
　　_Worksheet sheet;
　　Range range;
　　Range iCell;
　　LPDISPATCH lpDisp;
　　COleVariant
　　covTrue((short)TRUE),
　　covFalse((short)FALSE),
　　covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
0 H; E* x3 J2 z$ O. f　　COleVariant vResult;
2 N1 ]3 G. F4 A# A　　//采用MFC方式初始化COM库，程序结束时COM库会自动释放
' O$ |- _  w9 Q" g　　if(!AfxOleInit())
　　{
　　MessageBox(NULL,"初始化COM支持库失败!\n无法控制Excel!", \
　　"TrueTable",MB_IConERROR | MB_OK);
' c4 q9 m& u5 n$ N　　return RTERROR;
5 c2 D9 }  K$ D9 P) S1 p　　}
9 [: F6 u5 o3 \% _* C　　//关联已经运行的Excel实例
　　CLSID clsid;
/ O$ ]# D* U9 j  w' F　　CLSIDFromProgID(L"Excel.Application", &clsid);
$ l9 A( M* g0 t4 o# p; W$ n　　IUnknown *pUnk = NULL;
　　IDispatch *pRunDisp = NULL;
　　for(long i=1;i<=5;i++) //做5次尝试
　　{
　　HRESULT hr = GetActiveObject(clsid, NULL, (IUnknown**)&pUnk);
　　if(SUCCEEDED(hr))
5 M/ e$ ]5 y3 @. T& F" z2 j　　{
　　hr = pUnk->QueryInterface(IID_IDispatch, (void **)&pRunDisp);
　　break;
　　}
: L& Y7 ]( d4 b0 ?5 H　　::Sleep(10);
  k4 o5 B6 b5 y3 o. [1 s7 F　　}
1 C  C: \5 g( B4 E  J0 T# E　　if (!pRunDisp)
( P: _+ b) x" y7 \/ O1 U　　{
! F! y* ~, z# B8 K, `2 V% n9 W: n　　::MessageBox(NULL, "没有发现Excel!", "TrueTable", MB_ICONHAND);
* O! w) X) V$ }- S( Q1 M　　return RTERROR;
　　}
. m0 Z% U1 _) _5 J3 D' `% l2 I　　if (pUnk) pUnk->Release();
　　//关联Excel
　　app.AttachDispatch (pRunDisp);
　　//得到当前活跃sheet
. b% `4 a  \9 C8 H/ l　　//如果有单元格正处于编辑状态中，此操作不能返回，会一直等待
　　lpDisp=app.GetActiveSheet();
　　if(lpDisp==NULL)
# D, r! F/ S9 o1 F3 E　　{
; ^. E, ~' q4 v: C　　MessageBox(NULL, "没有发现有效的表格!", \
　　"TrueTable",MB_IConERROR | MB_OK);
) L* i1 w# Y2 I　　app.ReleaseDispatch ();
- `  _! Y" [, i8 ]　　return RTERROR;
　　}
　　sheet.AttachDispatch(lpDisp);
9 L$ k- |+ B8 a( o. p4 P/ m　　//已经使用的行数:
　　long row_num;
　　range.AttachDispatch(sheet.GetUsedRange());
) u: a; _4 I# s- S2 j　　range.AttachDispatch(range.GetRows());
$ C7 D& X' h  I9 w' b* h　　row_num=range.GetCount();
: c& C1 M2 C# e& V　　//已经使用的列数:
; e* c8 K; {8 Z　　long col_num;
　　range.AttachDispatch(sheet.GetUsedRange());
　　range.AttachDispatch(range.GetColumns());
　　col_num=range.GetCount();
, k. [3 D5 l1 |5 g　　//已经使用区域的起始行、列：
　　range.AttachDispatch(sheet.GetUsedRange());
' _( x7 Q4 h5 f- B# x4 b5 D; ]* n　　long StartRow=range.GetRow(); //起始行
　　long StartCol=range.GetColumn(); //起始列
　　//读取sheet名
& ], H* i8 F; ^& d, a4 Y! M　　CString SheetName=sheet.GetName();
　　//ads_printf("\n%s",SheetName);
　　if(col_num<2 && row_num<2) //此sheet为空
　　{
# ^; l# d8 x' P# D' {6 m) s$ L( R& W　　MessageBox(NULL,"\n当前表格没有数据!", \
1 |' }0 ~7 B) k! J　　"TrueTable",MB_IConERROR | MB_OK);
　　app.ReleaseDispatch ();
　　return RTERROR;
　　}
# _9 w5 M& l* D' @, L# Q　　else
9 o& O$ W8 c; x　　{
* U$ U+ y0 i2 I8 `　　ads_printf("\n表格%s共%d行,%d列",SheetName,row_num,col_num);
　　}
　　//得到全部Cells，此时,range是cells的集合
　　range.AttachDispatch(sheet.GetCells());
　　//读写数据了
  S- r) R" G$ J* G' x　　CString cstr;
　　ads_printf("\n");
9 w: B3 }- s# X6 h1 h　　for(long i=StartRow;i<STARTROW+ROW_NUM;I++) 　　{
6 Y$ M6 v2 T! q9 d8 ?7 {! J　　for(long j=StartCol;j<STARTCOL+COL_NUM;J++) 　　{
　　//读取单元格文本
* H' K5 [3 X5 [7 A" \5 b　　iCell.AttachDispatch(range.GetItem (COleVariant(i),COleVariant(j)).pdispVal );
　　vResult =iCell.GetText();
5 l( ^% u9 p/ I9 b) L" |　　cstr=vResult.bstrVal;
　　//写单元格文本
　　ads_printf("%s ",(LPTSTR)cstr);
2 Q( F8 T0 l1 x9 l* y7 O　　}
7 T# w% |- G& B- B7 I2 _　　ads_printf("\n");
　　}
7 R" D6 H: u: J8 L7 k- z0 u- \　　//释放Dispatch
! x$ o8 }  }$ l" c, I/ p) ~2 f8 Q　　iCell.ReleaseDispatch ();
　　range.ReleaseDispatch ();
　　sheet.ReleaseDispatch ();
* |: V) q5 o3 t- Y2 v( z　　sheets.ReleaseDispatch ();
7 _2 h9 `$ K. q4 P8 H2 C. k( }7 x　　book.ReleaseDispatch ();
　　books.ReleaseDispatch ();
2 N8 l. X% w8 q! D/ j3 t　　app.ReleaseDispatch ();
　　return RTNORM;
+ R( @- {, `: X5 p+ \' Q4 G. B　　}
　　如果要输出到Excel的话，关键函数就是：
　　iCell.SetItem(COleVariant(i),COleVariant(j),COleVariant(cstr));

tgdoing

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