atumation --test

_Application  oApp;   
	Workbooks   oBooks;   
	_Workbook   oBook;   
	Worksheets   oSheets;   
	_Worksheet   oSheet;  

	COleVariant  vOpt(DISP_E_PARAMNOTFOUND,   VT_ERROR);  
	COleVariant covTrue((short)TRUE), covFalse((short)FALSE); 
	LPDISPATCH   lpDisp;  //经常用的变量
	Range   oRange;//单元格  

	if (CoInitialize(NULL)!=0)
	{
		AfxMessageBox("初始化COM支持库失败!");     
		return FALSE; 
	}

	if (!oApp.CreateDispatch("Excel.Application",NULL))   
	{   
		AfxMessageBox("不能启动EXCEL");   
		return FALSE;   
	}  

	//利用模板文件建立新文档     
	oBooks.AttachDispatch(oApp.GetWorkbooks(),true);     
	oBook.AttachDispatch(oBooks.Add(COleVariant(fileName)));//_variant_t("e://C133//exceltest//test.xls"))     
	oSheets.AttachDispatch(oBook.GetWorksheets(),true);//得到Worksheets    
	oSheet = oSheets.GetItem(COleVariant((short)1));//得到第一个sheet   
	
	CString strInfo = oSheet.GetName();
	oRange=oSheet.GetRange(COleVariant("A1"),vOpt);//得到第一行第一列的那个单元格 
	//oRange.SetValue2(COleVariant("设备名"));
	COleVariant a = oRange.GetValue2();
/*	CString str(a.bstrVal());*/
	CString   str   =(BSTR)a.pbstrVal;  
	

	oBook.Close(covFalse,  vOpt,  vOpt);
	oBooks.Close();
	oApp.Quit();
	oRange.ReleaseDispatch();
	oSheet.ReleaseDispatch();
	oSheets.ReleaseDispatch();
	oBook.ReleaseDispatch();
	oBooks.ReleaseDispatch();
	oApp.ReleaseDispatch();

	CoUninitialize();