VC操作Excel复制行

COleVariant covTrue((short)TRUE), covFalse((short)FALSE), covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);_Application ExcelApp; Workbooks wbsMyBooks; _Workbook wbMyBook; Worksheets wssMysheets; _Worksheet wsMysheet; Range rgMyRge, rgMyRge1, rgMyRge2; //创建Excel 2000服务器(启动Excel) if (!ExcelApp.CreateDispatch("Excel.Application",NULL)) { AfxMessageBox("创建Excel服务失败!"); exit(1); } ExcelApp.SetVisible(false); wbsMyBooks.AttachDispatch(ExcelApp.GetWorkbooks(),true); wbMyBook.AttachDispatch(wbsMyBooks.Add(covOptional));//得到Worksheets wssMysheets.AttachDispatch(wbMyBook.GetWorksheets(),true);//得到sheet1 wsMysheet.AttachDispatch(wssMysheets.GetItem(_variant_t("sheet1")),true);//得到全部Cells，此时,rgMyRge是cells的集合 rgMyRge.AttachDispatch(wsMysheet.GetCells(),true); rgMyRge.SetValue(_variant_t(""));CString str;str = "医疗机构许可证信息查询结果";rgMyRge.SetItem(_variant_t((long)1),_variant_t((long)2),_variant_t(str)); str = "许可证编号";rgMyRge.SetItem(_variant_t((long)2),_variant_t((long)1),_variant_t(str)); str = "机构名称";rgMyRge.SetItem(_variant_t((long)2),_variant_t((long)2),_variant_t(str)); str = "经营性质";rgMyRge.SetItem(_variant_t((long)2),_variant_t((long)3),_variant_t(str));str = "经济性质";rgMyRge.SetItem(_variant_t((long)2),_variant_t((long)4),_variant_t(str));str = "负责人";rgMyRge.SetItem(_variant_t((long)2),_variant_t((long)5),_variant_t(str));str = "法人代表";rgMyRge.SetItem(_variant_t((long)2),_variant_t((long)6),_variant_t(str));str = "诊疗科目";rgMyRge.SetItem(_variant_t((long)2),_variant_t((long)7),_variant_t(str));str = "地址";rgMyRge.SetItem(_variant_t((long)2),_variant_t((long)8),_variant_t(str));str = "电话";rgMyRge.SetItem(_variant_t((long)2),_variant_t((long)8),_variant_t(str));str = "发证日期";rgMyRge.SetItem(_variant_t((long)2),_variant_t((long)9),_variant_t(str));str = "有效期截止";rgMyRge.SetItem(_variant_t((long)2),_variant_t((long)10),_variant_t(str));ExcelApp.SetVisible(true); /*LPDISPATCH lpDisp;lpDisp = wsMysheet.GetRange(_variant_t("A1"),_variant_t("A1"));ASSERT(lpDisp);rgMyRge.AttachDispatch(lpDisp);lpDisp = rgMyRge.GetEntireRow();rgMyRge.AttachDispatch(lpDisp);rgMyRge.Insert(_variant_t((long)1));*/rgMyRge.AttachDispatch(wsMysheet.GetCells());rgMyRge1.AttachDispatch(rgMyRge.GetItem(COleVariant(1L), COleVariant(1L)).pdispVal, TRUE);rgMyRge1.AttachDispatch(rgMyRge1.GetEntireRow(), TRUE);rgMyRge2.AttachDispatch(rgMyRge.GetItem(COleVariant(2L), COleVariant(1L)).pdispVal, TRUE);rgMyRge2.AttachDispatch(rgMyRge2.GetEntireRow(), TRUE);rgMyRge2.Copy(covOptional);// rgMyRge1.Insert(COleVariant(1L));for (int i = 0; i < 5; i++){rgMyRge2.Copy(covOptional);rgMyRge1.Insert(COleVariant(1L));}for (i = 0; i < 5; i++){rgMyRge1.Insert(COleVariant(1L));}//wbMyBook.PrintPreview(_variant_t(false)); //释放对象 rgMyRge.ReleaseDispatch(); wsMysheet.ReleaseDispatch(); wssMysheets.ReleaseDispatch(); wbMyBook.ReleaseDispatch(); wbsMyBooks.ReleaseDispatch(); ExcelApp.ReleaseDispatch(); CDialog::OnOK();