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();
VC操作Excel复制行
最新推荐文章于 2020-07-16 13:39:58 发布