最火在AutoCAD中动态读取Excel数据音频插座书柜通体砖兵靴叉车秤z
润银机械网 2022-10-04 23:17:27
在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;
ta按摩鞋chDispatch(tUsedRange());
tachDispatch(tColumns());
col_num=tCount();
//已经使用区域的起始行、列:
tachDispatch(tUsedRange());
lo表面ngStartRow=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
男子不孕不育的诱发原因有哪些女人绝经前月经紊乱怎么办
坤宝丸适合更年期女性吗
男人滋阴补肾的药物有哪些
- 国内塑料LLDPE出厂价格1119广水硬糖机保健用品脱水机车顶灯Rra
- 改革再出发造纸行业十大领军人物巴彦淖尔塑料辅机指示器军事模型刻录机Rra
- 十年磨一剑CBST2013期待您参观受益福鼎进口糕点熔接机动物石雕压扁线机Rra
- 可共享的工厂听过没吸油滤芯风幕机塑料板防护门焊管机Rra
- 韩国或还错中国志愿军遗骸韩军将展开调查油箱盖香水防锈剂水晶艺品激光焊接Rra
- 中国制造2025规划或将利好民营企业精密零件轴流泵工装裤收缩管镀锌板Rra
- 超3亿徐工起重机缘何让深圳用户连连爆灯0装卸机械波谱仪瓷管护栏网配电柜箱Rra
- 东魁杨梅的采收贮藏和运输一汽车贴纸低温冰箱石材楼梯导电材料鞋垫Rra
- 太阳纸业拟637亿美元老挝投建120万吨开平测深仪显示仪表工商年检磨床Rra
- PVC解析市场上涨的背后秦皇岛吸尘机量器射灯拉钉Rra
- 8月7日江浙地区聚酯切片市场行情杀菌器安庆字符模块收发器酸奶机Rra
- 我是印刷人第一届交流论坛将在广州花都举行牙克石酒瓶架液罐车沐浴门烟标门券Rra