Excel模版作为自定义资源使用问题?

Storm2008 2009-12-28 09:03:52
_Application ExcelApp; 
Workbooks wbsMyBooks;
_Workbook wbMyBook;
Worksheets wssMysheets;
_Worksheet wsMysheet;
Range rgMyRge;

HRSRC hRsrc = FindResource(NULL, MAKEINTRESOURCE(IDR_XLT), TEXT("XLT")); //我加的
HGLOBAL hGlobal = LoadResource(NULL, hRsrc); //我加的



//创建Excel 2000服务器(启动Excel)
if (!ExcelApp.CreateDispatch("Excel.Application",NULL))
{
AfxMessageBox("创建Excel服务失败!");
exit(1);
}
ExcelApp.SetVisible(false);
//利用模板文件建立新文档
char path[MAX_PATH];
GetCurrentDirectory(MAX_PATH,path);
CString strPath = path;
strPath += "\\template1";
wbsMyBooks.AttachDispatch(ExcelApp.GetWorkbooks(),true);
wbMyBook.AttachDispatch(wbsMyBooks.Add(_variant_t(strPath)));
//wbMyBook.AttachDispatch(wbsMyBooks.Add(_variant_t(hGlobal))); 我加的
//得到Worksheets
wssMysheets.AttachDispatch(wbMyBook.GetWorksheets(),true);
//得到sheet1
wsMysheet.AttachDispatch(wssMysheets.GetItem(_variant_t("sheet1")),true);
//添加模板个数
for(int i=0;i<4;i++){
wsMysheet.Copy(vtMissing,_variant_t(wsMysheet));
}
CString str1;
wsMysheet.AttachDispatch(wssMysheets.GetItem(_variant_t("sheet1")),true);
str1 = "第1页";
wsMysheet.SetName(str1);
for(i=0;i<wssMysheets.GetCount()-1;i++){
wsMysheet = wsMysheet.GetNext();
str1.Format("第%d页",i+2);
wsMysheet.SetName(str1);
}
wsMysheet.AttachDispatch(wssMysheets.GetItem(_variant_t("第1页")),true);
//得到全部Cells,此时,rgMyRge是cells的集合
rgMyRge.AttachDispatch(wsMysheet.GetCells(),true);
//设置1行1列的单元的值
CString str=_TEXT("21:12");
rgMyRge.SetItem(_variant_t((long)7),_variant_t((long)3),_variant_t(str));
rgMyRge.SetItem(_variant_t((long)9),_variant_t((long)3),_variant_t(str));
rgMyRge.SetItem(_variant_t((long)7),_variant_t((long)4),_variant_t(str));
rgMyRge.SetItem(_variant_t((long)8),_variant_t((long)4),_variant_t(str));
rgMyRge.SetItem(_variant_t((long)9),_variant_t((long)4),_variant_t(str));
rgMyRge.SetItem(_variant_t((long)10),_variant_t((long)4),_variant_t(str));
rgMyRge.SetItem(_variant_t((long)11),_variant_t((long)4),_variant_t(str));
rgMyRge.SetItem(_variant_t((long)12),_variant_t((long)4),_variant_t(str));
//将表格保存
strPath = path;
strPath += "\\ylhexcel.xls";
wsMysheet.SaveAs(strPath,vtMissing,vtMissing,vtMissing,vtMissing,
vtMissing,vtMissing,vtMissing,vtMissing);
ExcelApp.SetVisible(true);
//释放对象
rgMyRge.ReleaseDispatch();
wsMysheet.ReleaseDispatch();
wssMysheets.ReleaseDispatch();
wbMyBook.ReleaseDispatch();
wbsMyBooks.ReleaseDispatch();
ExcelApp.ReleaseDispatch();




这段程序是利用Excel模版建立新的Excel文件,我想把模版做到资源文件里面,但对VC不熟悉试了一下没成功。
明白的大哥说说怎么做,顺便写两行代码。

...全文
128 8 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
Storm2008 2009-12-31
  • 打赏
  • 举报
回复
已经解决了,把模版释放到硬盘后在加载到程序中就可以了。
不过我本意是不在硬盘中产生中间文件,让别人看不到模版文件,感受不到模版的存在。
sjdev 2009-12-29
  • 打赏
  • 举报
回复
不应该吧,你跟踪看看模板路径什么的对不对?
drywell 2009-12-29
  • 打赏
  • 举报
回复
最好把模板先释放出来
Storm2008 2009-12-28
  • 打赏
  • 举报
回复
HRSRC hRsrc = FindResource(NULL, MAKEINTRESOURCE(IDR_XLT), TEXT("XLT")); //我加的
HGLOBAL hGlobal = LoadResource(NULL, hRsrc); //我加的

wbMyBook.AttachDispatch(wbsMyBooks.Add(_variant_t(hGlobal))); 我加的


问题是我改成这样,编译通过,程序可以运行,但生成的Excel文件和模版样式不一样。
sjdev 2009-12-28
  • 打赏
  • 举报
回复
上面说的还算比较详细。
sjdev 2009-12-28
  • 打赏
  • 举报
回复
恩,按照你说的那个例子就可以。
Storm2008 2009-12-28
  • 打赏
  • 举报
回复
[Quote=引用 1 楼 sjdev 的回复:]
把模板加到资源中,然后使用的时候释放出来?
[/Quote]

如何释放出来?
对VC很不熟悉

http://www.vckbase.com/document/viewdoc/?id=1564
我是参照这个例子改的
sjdev 2009-12-28
  • 打赏
  • 举报
回复
把模板加到资源中,然后使用的时候释放出来?

16,548

社区成员

发帖
与我相关
我的任务
社区描述
VC/MFC相关问题讨论
社区管理员
  • 基础类社区
  • AIGC Browser
  • encoderlee
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告

        VC/MFC社区版块或许是CSDN最“古老”的版块了,记忆之中,与CSDN的年龄几乎差不多。随着时间的推移,MFC技术渐渐的偏离了开发主流,若干年之后的今天,当我们面对着微软的这个经典之笔,内心充满着敬意,那些曾经的记忆,可以说代表着二十年前曾经的辉煌……
        向经典致敬,或许是老一代程序员内心里面难以释怀的感受。互联网大行其道的今天,我们期待着MFC技术能够恢复其曾经的辉煌,或许这个期待会永远成为一种“梦想”,或许一切皆有可能……
        我们希望这个版块可以很好的适配Web时代,期待更好的互联网技术能够使得MFC技术框架得以重现活力,……

试试用AI创作助手写篇文章吧