在AutoCAD中动态读取Excel数据通讯模块

在AutoCAD中动态读取Excel数据

在AutoCAD中动态读取Excel数据 2011年12月10日 来源： 在实际的工作中，我们经常要对一些表格数据进行处理，如果先把这些表格数据通过Excel处理，再导入到AutoCAD，那绝对会起到事半功倍的效果。随着Automation编程技术的出现，我们可以很方便地实现这一点了，下面是个ObjectARX的例子，其功能是动态关联Excel，然后读取其数据，并将这些数据打印在文本域中。 //动态从Excel读取数据intDynamicReadFromExcel(){//常用变量定义_Applicationapp;Workbooksbooks;_Workbookbook;Worksheetssheets;_Worksheetsheet;Rangerange;RangeiCell;LPDISPATCHlpDisp;COleVariantcovTrue((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"Excel.Application",&clsid);IUnknown*pUnk=NULL;IDispatch*pRunDisp=NULL;for(longi=1;i<=5;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;}if(pUnk)pUnk->Release();//关联Excelapp.AttachDispatch(pRunDisp);//得到当前活跃sheet//如果有单元格正处于编辑状态中，此操作不能返回，会一直等待lpDisp=app.GetActiveSheet();if(lpDisp==NULL){MessageBox(NULL,"没有发现有效的表格!",\"TrueTable",MB_IConERROR|MB_OK);app.ReleaseDispatch();returnRTERROR;}sheet.AttachDispatch(lpDisp);//已经使用的行数:longrow_num;range.AttachDispatch(sheet.GetUsedRange());range.AttachDispatch(range.GetRows());row_num=range.GetCount();//已经使用的列数:longcol_num;range.AttachDispatch(sheet.GetUsedRange());range.AttachDispatch(range.GetColumns());col_num=range.GetCount();//已经使用区域的起始行、列：range.AttachDispatch(sheet.GetUsedRange());longStartRow=range.GetRow();//起始行[Page]longStartCol=range.GetColumn();//起始列//读取sheet名CStringSheetName=sheet.GetName();//ads_printf("\n%s",SheetName);if(col_num<2&&row_num<2)//此sheet为空{MessageBox(NULL,"\n当前表格没有数据!",\"TrueTable",MB_IConERROR|MB_OK);app.ReleaseDispatch();returnRTERROR;}el

石家庄好的妇科医院

保定看男科哪家医院好

洛阳男科医院有哪些

奔豚气怎么治疗

苏州治疗脱发医院哪家好

玉林男科医院哪家好