如何在AutoCAD中动态读取Excel数据？

yonghaoliu · 发表于 2005-11-12 22:06:00

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

在实际的工作中，我们经常要对一些表格数据进行处理，如果先把这些表格数据通过Excel处理，再导入到AutoCAD，
那绝对会起到事半功倍的效果。随着Automation编程技术的出现，我们可以很方便地实现这一点了，下面是个
ObjectARX的例子，其功能是动态关联Excel，然后读取其数据，并将这些数据打印在文本域中。

//动态从Excel读取数据
int DynamicReadFromExcel()
{
//常用变量定义
_Application app;
Workbooks books;
_Workbook book;
Worksheets sheets;
_Worksheet sheet;
Range range;
Range iCell;

LPDISPATCH lpDisp;
COleVariant
covTrue((short)TRUE),
covFalse((short)FALSE),
covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
COleVariant vResult;

//采用MFC方式初始化COM库，程序结束时COM库会自动释放
if(!AfxOleInit())
{
MessageBox(NULL,"初始化COM支持库失败!\n无法控制Excel!", \
"TrueTable",MB_ICONERROR | MB_OK);
return RTERROR;
}

//关联已经运行的Excel实例
CLSID clsid;
CLSIDFromProgID(L"Excel.Application", &clsid);
IUnknown *pUnk = NULL;
IDispatch *pRunDisp = NULL;

for(long i=1;i<=5;i++) //做5次尝试
{
HRESULT hr = 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);
return RTERROR;
}

if (pUnk) pUnk->Release();

//关联Excel
app.AttachDispatch (pRunDisp);

//得到当前活跃sheet
//如果有单元格正处于编辑状态中，此操作不能返回，会一直等待
lpDisp=app.GetActiveSheet();
if(lpDisp==NULL)
{
MessageBox(NULL, "没有发现有效的表格!", \
"TrueTable",MB_ICONERROR | MB_OK);
app.ReleaseDispatch ();

return RTERROR;
}
sheet.AttachDispatch(lpDisp);

//已经使用的行数:
long row_num;
range.AttachDispatch(sheet.GetUsedRange());
range.AttachDispatch(range.GetRows());
row_num=range.GetCount();

//已经使用的列数:
long col_num;
range.AttachDispatch(sheet.GetUsedRange());
range.AttachDispatch(range.GetColumns());
col_num=range.GetCount();

//已经使用区域的起始行、列：
range.AttachDispatch(sheet.GetUsedRange());
long StartRow=range.GetRow(); //起始行
long StartCol=range.GetColumn(); //起始列

//读取sheet名
CString SheetName=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 ();

return RTERROR;

}
else
{
ads_printf("\n表格%s共%d行,%d列",SheetName,row_num,col_num);
}

//得到全部Cells，此时,range是cells的集合
range.AttachDispatch(sheet.GetCells());

//读写数据了
CString cstr;
ads_printf("\n"

;
for(long i=StartRow;i
{

for(long j=StartCol;j
{

//读取单元格文本
iCell.AttachDispatch(range.GetItem (COleVariant(i),COleVariant(j)).pdispVal );
vResult =iCell.GetText();
cstr=vResult.bstrVal;

//写单元格文本
ads_printf("%s ",(LPTSTR)cstr);

}
ads_printf("\n");
}

//释放Dispatch
iCell.ReleaseDispatch ();
range.ReleaseDispatch ();
sheet.ReleaseDispatch ();
sheets.ReleaseDispatch ();
book.ReleaseDispatch ();
books.ReleaseDispatch ();
app.ReleaseDispatch ();

return RTNORM;

}

是不是很简单，如果要输出到Excel的话，只要稍加修改就OK了，输出的关键函数就是：
iCell.SetItem(COleVariant(i),COleVariant(j),COleVariant(cstr));

精灵王 · 发表于 2005-11-14 19:58:00

谢谢了，我还没有看懂，先收藏了

zkcamel · 发表于 2005-11-17 16:45:00

谢谢，研究一下

s1a2m3 · 发表于 2005-11-17 18:35:00

我靠．．很厉害．．．我也学过这东西，但搞不出东西

qj169 · 发表于 2005-11-29 15:49:00

谢谢了，看不懂

jtyuer · 发表于 2005-11-29 17:38:00

楼主能不能给出实际的东西？

苍龙 · 发表于 2005-12-3 11:31:00

也不太懂，我属于菜鸟级别的希望楼主说的能详细点

cyxwm · 发表于 2005-12-3 19:32:00

我不知道，所以收藏我现在看不懂

xywbs · 发表于 2005-12-4 15:27:00

怎么用

tonykok · 发表于 2006-3-16 13:47:39

这是什么语言啊?????????????????????

ycm1006 · 发表于 2006-5-31 13:34:44

CAD工具里不是有数据库吗,连接不就可以,

123456789 · 发表于 2006-6-15 17:34:02

其实CAD与Excel的的动态连接插件应有人作好了 http://www.haochenc.com/download/sort.asp?TYPE=187中的AutoXlsTable 2.52软件，实现了很好的连接，而且还是免费的，另外那还有很多CAD的插件。

sdzhuhong · 发表于 2007-11-29 04:45:30

怎么用也不太懂，我属于菜鸟级别的希望楼主说的能详细点

masktao · 发表于 2007-11-29 11:43:48

通问，不知道怎么倒入excel表格

mliang918 · 发表于 2009-2-13 00:09:36

楼主看不懂哦

koutx · 发表于 2009-2-19 11:57:53

虽看不懂，但也顶一下

		自动登录	找回密码
密码			注册

通知

[分享] 如何在AutoCAD中动态读取Excel数据？

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

浏览过的版块