在AutoCAD中動態讀取Excel數據本篇文章摘自 明經通道在實際的工作中 我們經常要對一些錶格數據進行處理 在AutoCAD中動態讀取Excel數據 - 趣味新聞網

發表日期 2008-02-13T16:16:50+08:00

     在AutoCAD中動態讀取Excel數據


本篇文章摘自 明經通道

在實際的工作中，我們經常要對一些錶格數據進行處理，如果先把這些錶格數據通過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支持庫失敗! 無法控製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(" %s",SheetName);
if(col_num<2 && row_num<2)     //此sheet為空
{
MessageBox(NULL," 當前錶格沒有數據!",
"TrueTable",MB_IConERROR | MB_OK);
app.ReleaseDispatch ();

return RTERROR;

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



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


//讀寫數據瞭
CString cstr;
ads_printf(" ");
for(long i=StartRow;i<StartRow+row_num;i++)
{

for(long j=StartCol;j<StartCol+col_num;j++)
{

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

//寫單元格文本
ads_printf("%s    ",(LPTSTR)cstr);

}
ads_printf(" ");
}


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

return RTNORM;

}

如果要輸齣到Excel的話，關鍵函數就是：
iCell.SetItem(COleVariant(i),COleVariant(j),COleVariant(cstr));

[ 本帖最後由 degit 於 2008-6-10 18:31 編輯 ]

分享鏈接