[在线等！]怎么获取Excel2003单元格的值？


首先用Project|Add to project|Components and controls 引入Excel对象,然后调用下面代码.
{
_Application ExcelApp; 
Workbooks wbsMyBooks; 
_Workbook wbMyBook; 
Worksheets wssMysheets; 
_Worksheet wsMysheet; 
Range rgMyRge; 
if (!ExcelApp.CreateDispatch("Excel.Application",NULL)) 
{ 
AfxMessageBox("´´½¨Excel·þÎñʧ°Ü!"); 
exit(1); 
} 
ExcelApp.SetVisible(false); 
char path[MAX_PATH];
GetCurrentDirectory(MAX_PATH,path);
CString strPath = path;
strPath += "\\book1.xls"; wbsMyBooks.AttachDispatch(ExcelApp.GetWorkbooks(),true); 
wbMyBook.AttachDispatch(wbsMyBooks.Add(_variant_t(strPath)));
//µÃµ½Worksheets 
wssMysheets.AttachDispatch(wbMyBook.GetWorksheets(),true);
//µÃµ½sheet1 
wsMysheet.AttachDispatch(wssMysheets.GetItem(_variant_t("sheet1"))); rgMyRge.AttachDispatch(wsMysheet.GetCells(),true); 
CString str,strrgb;
variant_t v1=rgMyRge.GetItem(_variant_t((long)1),_variant_t((long)1));  rgMyRge.ReleaseDispatch(); 
wsMysheet.ReleaseDispatch(); 
wssMysheets.ReleaseDispatch(); 
wbMyBook.ReleaseDispatch(); 
wbsMyBooks.Close();

wbsMyBooks.ReleaseDispatch();  ExcelApp.ReleaseDispatch(); 
ExcelApp.Quit();
}
别忘记在InitInstance中初始化
{
if (CoInitialize(NULL)!=0) 
{ 
AfxMessageBox("Initialize COM lib failed!"); 
exit(1); 
} }