AttachDispatch

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

基本介紹

• 外文名：AttachDispatch
• 位於：CRange類中
• 函式原型：鎖定的目標指針
• 用來：操作EXCEL的函式

函式說明

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();

函式返回

無返回值。