在AutoCAD中动态读取Excel数据

秋之收

在实际的工作中，我们经常要对一些表格数据进行处理，如果先把这些表格数据通过Excel处理，再导入到AutoCAD，
- n8 L' C( ?* x. X- t( h　　那绝对会起到事半功倍的效果。随着Automation编程技术的出现，我们可以很方便地实现这一点了，下面是个
　　ObjectARX的例子，其功能是动态关联Excel，然后读取其数据，并将这些数据打印在文本域中。
　　//动态从Excel读取数据
7 e7 P; U1 k. n　　int DynamicReadFromExcel()
　　{
4 {5 K" E: \8 d1 K1 a　　//常用变量定义
" P! v+ @" L- G( w# @: @　　_Application app;
) V( q1 G- t9 b3 x% Y. R' k( w+ D　　Workbooks books;
　　_Workbook book;
2 Q' H4 ]( Z4 r7 V+ L) Z, i$ H4 z: R　　Worksheets sheets;
$ o2 y2 d+ m2 a* a5 m+ [　　_Worksheet sheet;
  ?: L: [& c$ W/ G4 ~　　Range range;
$ P' W3 j7 m4 ^( Z' p　　Range iCell;
　　LPDISPATCH lpDisp;
　　COleVariant
　　covTrue((short)TRUE),
2 q4 h, `2 J  j  W, I& |% Q! p　　covFalse((short)FALSE),
　　covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
　　COleVariant vResult;
　　//采用MFC方式初始化COM库，程序结束时COM库会自动释放
0 ]6 G. F6 }; b+ g& Q8 |　　if(!AfxOleInit())
4 B, J: |' y) ~' V& {  g　　{
$ l* h0 T4 x* s* b  J/ i　　MessageBox(NULL,"初始化COM支持库失败!\n无法控制Excel!", \
: w5 r* i% b* X1 n　　"TrueTable",MB_IConERROR | MB_OK);
3 b! x8 J% W/ }　　return RTERROR;
1 Q) `8 Q/ b0 l/ j: d' l　　}
; A" U$ Z0 q+ @6 i# c, k- c7 G　　//关联已经运行的Excel实例
$ ^0 n. i+ o; N% o, d　　CLSID clsid;
　　CLSIDFromProgID(L"Excel.Application", &clsid);
6 U# i9 u, C: d8 O5 [　　IUnknown *pUnk = NULL;
' }+ |+ D+ @0 h! N/ h* V) U) A　　IDispatch *pRunDisp = NULL;
: C/ n6 n- O; b# E3 v/ P# M7 F: |　　for(long i=1;i<=5;i++) //做5次尝试
　　{
7 W, a& F" E4 d8 I7 P  ?5 R　　HRESULT hr = GetActiveObject(clsid, NULL, (IUnknown**)&pUnk);
　　if(SUCCEEDED(hr))
　　{
　　hr = pUnk->QueryInterface(IID_IDispatch, (void **)&pRunDisp);
0 J) C. s8 [0 s" ^0 q　　break;
/ M6 N& y1 I" F2 u6 c4 z0 o0 m　　}
　　::Sleep(10);
( [) o% V& I9 i　　}
  i+ v3 Y" V9 N) W　　if (!pRunDisp)
, i9 X. m$ Y5 X5 P7 N　　{
　　::MessageBox(NULL, "没有发现Excel!", "TrueTable", MB_ICONHAND);
　　return RTERROR;
/ R; z9 n# o4 w) ^( F7 N5 Q　　}
: N' M0 h6 q1 `+ t/ `　　if (pUnk) pUnk->Release();
. }/ x4 J/ n2 E6 k. h　　//关联Excel
　　app.AttachDispatch (pRunDisp);
, v& P$ b# B% t0 D7 G　　//得到当前活跃sheet
; H, r( w8 W  Y0 a  r9 q　　//如果有单元格正处于编辑状态中，此操作不能返回，会一直等待
　　lpDisp=app.GetActiveSheet();
' {8 o4 Q! m. C9 _/ |　　if(lpDisp==NULL)
1 y1 q4 e) A6 r　　{
　　MessageBox(NULL, "没有发现有效的表格!", \
. [7 Y+ K+ R1 Y　　"TrueTable",MB_IConERROR | MB_OK);
　　app.ReleaseDispatch ();
' k5 F+ ^8 U1 I4 P  ?4 m0 E　　return RTERROR;
3 }! X+ {3 B' @　　}
7 l! p) X4 z, L, J0 E9 i; N　　sheet.AttachDispatch(lpDisp);
　　//已经使用的行数:
　　long row_num;
6 L) P5 S# i, s% k8 [( I　　range.AttachDispatch(sheet.GetUsedRange());
9 W1 R5 E; Y# K9 ]4 w7 ~　　range.AttachDispatch(range.GetRows());
　　row_num=range.GetCount();
　　//已经使用的列数:
- H( a# Q* b& Q( q6 I, p0 x8 B　　long col_num;
　　range.AttachDispatch(sheet.GetUsedRange());
# N7 K5 \& O8 d  }3 ~' X, L4 j　　range.AttachDispatch(range.GetColumns());
8 T/ i# D" q' q$ H. D　　col_num=range.GetCount();
　　//已经使用区域的起始行、列：
: w4 O2 J1 m5 |5 B5 c- P' d' \　　range.AttachDispatch(sheet.GetUsedRange());
& g1 M3 W' u6 o- F! t, s8 X0 V# b( j　　long StartRow=range.GetRow(); //起始行
　　long StartCol=range.GetColumn(); //起始列
　　//读取sheet名
5 `' C( ]2 R, {5 y3 N, S7 L9 u　　CString SheetName=sheet.GetName();
3 B# u1 }6 L# n6 B9 d　　//ads_printf("\n%s",SheetName);
( a1 |' b/ Q9 n8 w, w　　if(col_num<2 && row_num<2) //此sheet为空
　　{
　　MessageBox(NULL,"\n当前表格没有数据!", \
　　"TrueTable",MB_IConERROR | MB_OK);
. A( [/ u3 T$ e; _) E1 m; D( P) E1 j　　app.ReleaseDispatch ();
) Q6 ^2 L6 r0 J' }9 z% }6 \% b　　return RTERROR;
　　}
　　else
　　{
1 ~0 w9 N' e% ]  H　　ads_printf("\n表格%s共%d行,%d列",SheetName,row_num,col_num);
　　}
　　//得到全部Cells，此时,range是cells的集合
　　range.AttachDispatch(sheet.GetCells());
　　//读写数据了
) ^  o" X# M5 \* D1 u4 H7 J+ b　　CString cstr;
　　ads_printf("\n");
　　for(long i=StartRow;i<STARTROW+ROW_NUM;I++) 　　{
8 ]2 [( Z2 q5 f( F' }　　for(long j=StartCol;j<STARTCOL+COL_NUM;J++) 　　{
# U# p5 T- l. b* G( q' P　　//读取单元格文本
　　iCell.AttachDispatch(range.GetItem (COleVariant(i),COleVariant(j)).pdispVal );
% n! W+ {$ A* [+ W" K* A- p- G3 A　　vResult =iCell.GetText();
　　cstr=vResult.bstrVal;
　　//写单元格文本
　　ads_printf("%s ",(LPTSTR)cstr);
　　}
% u1 l. Z8 [7 l" i, J6 \3 o# O; ~9 @　　ads_printf("\n");
　　}
$ D& W+ Y7 a: n( N+ f　　//释放Dispatch
　　iCell.ReleaseDispatch ();
　　range.ReleaseDispatch ();
　　sheet.ReleaseDispatch ();
& M: w& J! z  Z7 n& B9 P* P* `　　sheets.ReleaseDispatch ();
) E: Q! [7 H3 i/ o; v　　book.ReleaseDispatch ();
　　books.ReleaseDispatch ();
　　app.ReleaseDispatch ();
8 f4 ^' k$ Y! ~, @# F/ p' m　　return RTNORM;
( _: s- ~4 ~7 U$ W  g6 r9 L　　}
　　如果要输出到Excel的话，关键函数就是：
　　iCell.SetItem(COleVariant(i),COleVariant(j),COleVariant(cstr));

tgdoing

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