BCB中,图片导出到EXCEL不同版本效果不同,求救!!!

李志林HZ 2015-05-28 03:33:07
我要达到的目的是:记录都是数据库中有的,图片是从某个机器下载后放在本机的固定目录中,然后将记录和对应的图片导出到EXCEL中,但是,在WINXP+EXCEL2003中图片放置的很吻合对应的单元格,而在WIN7+EXCEL2007中,某些图片吻合单元格,某些图片高度不受控制的超出了对应的单元格很多。请妖哥等高手帮忙看看是什么问题。部分代码如下:

//打开固定模板
vExcelApp.OlePropertyGet("Workbooks").OleFunction("Open", WideString(strXlsFile1));

Variant vSheet = vExcelApp.OlePropertyGet("ActiveWorkbook")
.OlePropertyGet("Sheets", 1);
//根据记录数,用复制粘贴某行的方法扩大模板的行数
int xcount = 0,xpos = 0;
xcount = cxQry->RecordCount;
xpos = xcount;
while (xpos >=3){
vSheet.OlePropertyGet("Rows","3:3").OleProcedure("Select");
vExcelApp.OlePropertyGet("Selection").OleProcedure("Copy");
vExcelApp.OlePropertyGet("Selection").OleProcedure("Insert",-4121);
xpos--;
}

AnsiString jestr = 0,sTemp = "";
cxQry->First();
for (int i=0;i<xcount;i++){
frmMain->xOpenImage(cxQry->FieldByName("wpbm")->AsString.Trim()+".jpg","0");//下载图片的函数
sTemp = frmMain->sPath+"photo\\"+cxQry->FieldByName("wpbm")->AsString.Trim()+".jpg";
//导出图片的代码
if (FileExists(sTemp)){

vSheet.OlePropertyGet("Cells",3+i,8).OleProcedure("Select");//选择某个格子
vShapeRange = vSheet.OlePropertyGet("Cells",3+i,8);//设置区域为选定的格子
vShape = vSheet.OlePropertyGet("Pictures").OleFunction("Insert",WideString(sTemp));//设定图片对象
vShape.OlePropertySet("Top",vShapeRange.OlePropertyGet("Top"));//设置图片对象
vShape.OlePropertySet("Left",vShapeRange.OlePropertyGet("Left"));
vShape.OlePropertySet("Height",vShapeRange.OlePropertyGet("Height"));
vShape.OlePropertySet("Width",vShapeRange.OlePropertyGet("Width"));
}
//导出数据的代码
vSheet.OlePropertyGet("Cells",3+i,1).OlePropertySet("Value",cxQryorder_no->AsString.Trim().c_str());
vSheet.OlePropertyGet("Cells",3+i,2).OlePropertySet("Value",cxQryxiadanriqi->AsString.Trim().c_str());
cxQry->Next();
}
cxQry->First();
vExcelApp.OlePropertySet("Visible", true);
...全文
267 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
李志林HZ 2015-06-30
  • 打赏
  • 举报
回复
此问题还是未解决,哪位高手碰到过这种问题,或者哪位做过导出EXCEL的时候图片不会失真,请将做法公开一下。谢谢!

13,871

社区成员

发帖
与我相关
我的任务
社区描述
C++ Builder相关内容讨论区
社区管理员
  • 基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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