在AutoCAD中动态读取Excel数据加格达奇双氧水紧凑型车健身器材硅线石Frc

在AutoCAD中动态读取Excel数据

在实际的工作中，我们经常要水冷柜机对一些表格数据进行处理，如果先把这些表格数据通过Excel处理，再导入到AutoCAD，

那绝对会起到事半功倍的效果。随着Automation编程技术的出现，我们可以很方便地实现这一点了，下面是个

ObjectARX的例子，其功能是动态关联Excel，然后读取其数据，并将这些数据打印在文本域中。

//动态从Excel读取数据

intDynamicReadFromExcel衡阳()

{

//常用变量定义

_Applicationapp;

Workbooksbooks;

_Workbookbook;

Worksheetssheets;

_Worksheetsheet;

Ranger易成新能公告称ange;

RangeiCell;

LPDISPATCHlpDisp;

COleVariant

covTrue((short)TRUE),

covFalse((short)FALSE),

covOptional((long)DISP_E_PARAMNOTFOUND,VT_ERROR);

COleVariantvResult;

//采用MFC方式初始化COM库，程序结束时COM库会自动释放

if(!AfxOleInit())

{

MessageBox(NULL,"初始化COM支持库失败!\n无法控制Excel!",\

"TrueTable",MB_IConERROR|MB_OK);

returnRTERROR;

//关联已经运行的Excel实例

CLSIDclsid;

CLSIDFromProgID(L"plication", clsid);

IUnknown*pUnk=NULL;

IDispatch*pRunDisp=NULL;

for(longi=1;i i++)//做5次尝试

{

HRESULThr=GetActiveObject(clsid,NULL,(IUnknown**) pUnk);

if(SUCCEEDED(hr))

{

hr=pUnk- QueryInterface(IID_IDispatch,(void**) pRunDisp);

break;

}

::Sleep(10);

}

if(!pRunDisp)

{

::MessageBox(NULL,"没有发现Excel!","TrueTable",MB_ICONHAND);

returnRTERROR;

3、测试精度Measuring accuracy： ±0.5%}编制国军标13项

if(pUnk)pUnk- Release();

//关联Excel

tachDispatch(pRunDisp);

//得到当前活跃sheet

//如果有单元格正处于状态中，此操作不能返回，会一直等待

lpDisp=tActiveSheet();

if(lpDisp==NULL)

{

MessageBox(NULL,"没有发现有效的表格!",\

"TrueTable",MB_IConERROR|MB_OK);

leaseDispatch();

returnRTERROR;

}

tachDispatch(lpDisp);

//已经使用的行数:

longrow_num;

tachDispatch(tUsedRange());

tachDispatch(tRows());

row_num=tCount();

//已经使用的列数:

longcol_num;

tachDispatch(tUsedRange());

tachDispatch(tColumns());

col_num=tCount();

//已经使用区域的起始行、酒瓶架列：

tachDispatch(tUsedRange());

longStartRow=tRow();//起始行[Page]

longStartCol=tColumn();//起始列

//读取sheet名

CStringSheetName=tName();

//ads_printf("\n%s",SheetName);

if(col_num 2 row_num 2)//此sheet为空

{

MessageBox(NULL,"\n当前表格没有数据!",\

"TrueTable",MB_IConERROR|MB_OK);

leaseDispatch();

returnRTERROR;

}

el