AttachDispatch

CRange::AttachDispatch() 是操作EXCEL的函數，位於CRange類中，可以用來鎖定和讀取EXCEL中的對應單元格。

使用此函數需加入EXCEL的組件庫，且引入CRange.h，並獲得work和sheet後方可使用。

CRange::void AttachDispatch(LPDISPATCH lpDispatch,BOOL bAutorelease =1)

lpDispatch：鎖定的目標指針。

bAutorelease：是否自動釋放。

CApplication app;

CWorkbooks books;

CWorkbook book;

CWorksheets sheets;

CWorksheet sheet;

CRange range;

CRange iCell;

LPDISPATCH lpDisp;

COleVariant vResult;

COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);

if (CoInitialize(NULL)!=0)

{

AfxMessageBox(_T("初始化COM支持庫失敗!"));

return 0;

}

if(!app.CreateDispatch(_T("Excel.Application")))

{

AfxMessageBox(_T("無法啓動Excel服務器!"));

return 0;

}

books.AttachDispatch(app.get_Workbooks());

lpDisp = books.Open(_T("C:\\test.xls"),covOptional, covOptional, covOptional , covOptional, covOptional,covOptional, covOptional, covOptional, covOptional, covOptional,covOptional, covOptional, covOptional,covOptional);

//得到Workbook

book.AttachDispatch(lpDisp);

//得到Worksheets

sheets.AttachDispatch(book.get_Worksheets());

//得到當前活躍sheet

//如果有單元格正處於編輯狀態中，此操作不能返回，會一直等待

lpDisp=book.get_ActiveSheet();

sheet.AttachDispatch(lpDisp);

//讀取第一個單元格的值

range.AttachDispatch(sheet.get_Cells());

range.AttachDispatch(range.get_Item (COleVariant((long)1),COleVariant((long)1)).pdispVal );

/*COleVariant*/ vResult =range.get_Value2();

CString str;

if(vResult.vt == VT_BSTR) //字符串

{

str=vResult.bstrVal;

}

else if (vResult.vt==VT_R8) //8字節的數字

{

str.Format(_T("%f"),vResult.dblVal);

}

/*else if(vResult.vt==VT_DATE) /格式

{

SYSTEMTIME st;

VariantTimeToSystemTime(&vResult.date, &st);

}

else if(vResult.vt==VT_EMPTY) //單元格空的

{

str="";

}*/

books.Close();

app.Quit(); // 退出

//釋放對象

range.ReleaseDispatch();

sheet.ReleaseDispatch();

sheets.ReleaseDispatch();

book.ReleaseDispatch();

books.ReleaseDispatch();

app.ReleaseDispatch();

無返回值。