龙盟编程博客 | 无障碍搜索 | 云盘搜索神器
快速搜索
主页 > 软件开发 > VC开发 >

VC中对office的操作(3)

时间:2009-12-30 15:42来源:未知 作者:admin 点击:
分享到:
if(tablestr.GetSize() != rowNum || tablestr[0].GetSize() != colNum) ...{ AfxMessageBox("绘制标格时出错!"); doc.ReleaseDispatch(); docs.ReleaseDispatch(); win.ReleaseDispatch(); view.ReleaseDi
    if(tablestr.GetSize() != rowNum || tablestr[0].GetSize() != colNum)
    ...{
        AfxMessageBox("绘制标格时出错!");
        doc.ReleaseDispatch();
        docs.ReleaseDispatch();
        win.ReleaseDispatch();
        view.ReleaseDispatch();
        ap.ReleaseDispatch();
        sel.ReleaseDispatch();
        font.ReleaseDispatch();

        CComVariant SaveChanges(false),OriginalFormat,RouteDocument;
        app.Quit(&SaveChanges,&OriginalFormat,&RouteDocument);
        app.ReleaseDispatch();
        return;
    }

    for(i = 0; i < rowNum; i++)
    ...{
        for(j = 0; j < colNum; j++)
        ...{
            sel.TypeText(tablestr[i][j]);
            sel.MoveRight(COleVariant((short)1),COleVariant((short)1),COleVariant((short)0));
        }
    }

    //设置标格居中
    Table tb = tables.Item(1L);
    //tb.AutoFitBehavior(1L);
    Rows rs = tb.GetRows();
    rs.SetAlignment(1);
    COleVariant vTrue((short)TRUE),
        vFalse((short)FALSE);
    doc.SaveAs(//保存文档
        COleVariant(strOutDocFile),
        COleVariant((short)0),
        vFalse,
        COleVariant(""),
        vTrue,
        COleVariant(""),
        vFalse,
        vFalse,
        vFalse,
        vFalse,
        vFalse);

    tb.ReleaseDispatch();
    rs.ReleaseDispatch();
    doc.ReleaseDispatch();
    docs.ReleaseDispatch();
    win.ReleaseDispatch();
    view.ReleaseDispatch();
    ap.ReleaseDispatch();
    sel.ReleaseDispatch();
    font.ReleaseDispatch();

    CComVariant SaveChanges(false),OriginalFormat,RouteDocument;
    app.Quit(&SaveChanges,&OriginalFormat,&RouteDocument);
    app.ReleaseDispatch();
}   

精彩图集

赞助商链接