用vc操作excel，可以写入，但用getitem读不出？是不是用错了,请大家帮忙。100 分

Question

_Application AppExcel;
_Worksheet worksheet;
Worksheets worksheets;
Range range;
Workbooks workbooks; if(!AppExcel.CreateDispatch(_T("Excel.Application")))
{
MessageBox("Wrong!","Error",MB_OK|MB_ICONSTOP);
return;
  } //LPDISPATCH pWindow;

AppExcel.SetSheetsInNewWorkbook(1);
LPDISPATCH pRange,pWorkbooks;
VERIFY(pWorkbooks=AppExcel.GetWorkbooks workbooks.AttachDispatch(pWorkbooks,true);
LPDISPATCH pWorkbook=NULL;
COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
pWorkbook = workbooks.Open("c:\\test.xls",  
covOptional, covOptional, covOptional, covOptional, covOptional,
covOptional, covOptional, covOptional, covOptional, covOptional,
covOptional, covOptional );   // Return Workbook's IDispatch pointer. LPDISPATCH pWorksheets=AppExcel.GetWorksheets();
ASSERT(pWorksheets!=NULL);
worksheets.AttachDispatch(pWorksheets,true); LPDISPATCH pWorksheet=worksheets.GetItem(COleVariant((short)1));
worksheet.AttachDispatch(pWorksheet,true);
worksheet.Activate(); CString strLeftTop="B2",strRightBottom="B2";
VERIFY(pRange=worksheet.GetRange(COleVariant(strLeftTop), COleVariant(strRightBottom)));
range.AttachDispatch(pRange);
COleVariant l = range.GetText();
range.SetItem(COleVariant((short)1),COleVariant((short)1),COleVariant("Here is"));// AppExcel.SetAlertBeforeOverwriting(TRUE);
workbooks.Close();
workbooks.ReleaseDispatch();
AppExcel.ReleaseDispatch();