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