| 网站首页 | 业界新闻 | 群组 | 人才 | 技术文章 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 273 人关注过本帖
标题:如何从EXCEL表上的照片保存为图片文件
只看楼主 收藏
wengjl
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:40
帖 子:1023
专家分:1956
注 册:2007-4-27
结帖率:95.35%
  已结贴   问题点数:20  回复次数:10   
如何从EXCEL表上的照片保存为图片文件
从电子学籍中导出的EXCEL表(一生一张表),上面有学生的信息和照片。读取信息保存到DBF为一条记录没问题,

但不知道如何将EXCEL表上固定位置的照片读出来,保存为一个以学号命名的JPG文件? 请高手赐教、帮助。谢谢!
搜索更多相关主题的帖子: EXCEL  图片  照片  如何  电子  
2017-06-14 10:48
wengjl
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:40
帖 子:1023
专家分:1956
注 册:2007-4-27
  得分:0 
附件: 您没有浏览附件的权限,请 登录注册

只求每天有一丁点儿的进步就可以了
2017-06-14 14:01
wengjl
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:40
帖 子:1023
专家分:1956
注 册:2007-4-27
  得分:0 
在SDTA的博客上有一篇VFP 控制 Excel 在指定位置插入图片

我的这个问题正好相反 —— 是把EXCEL上的图片 保存为文档

请高手帮助

只求每天有一丁点儿的进步就可以了
2017-06-14 15:20
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:140
帖 子:6507
专家分:14711
注 册:2012-2-5
  得分:5 
录制宏看看

QQ:243688667
2017-06-14 15:40
wengjl
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:40
帖 子:1023
专家分:1956
注 册:2007-4-27
  得分:0 
ActiveSheet.Shapes("Picture 1").Select
Selection.Copy

录制宏,只能取到这二步

后面就无从下手了



只求每天有一丁点儿的进步就可以了
2017-06-14 20:54
wangzhiyi
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:14
帖 子:229
专家分:418
注 册:2014-4-9
  得分:3 
从你录制的宏命令分析你应该是选择了图片,然后进行了拷贝操作吧。应该还有一下步从剪切板上粘贴吧。
2017-06-14 22:12
吹水佬
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:99
帖 子:3718
专家分:13882
注 册:2014-5-20
  得分:12 
** 导出EXCEL图片
cPath = "C:\TEMP\"
cXLS = cPath + "test.xls"
oExcel = CREATEOBJECT("Excel.Application")
oExcel.WorkBooks.Open(cXLS)
FOR EACH oShape IN oExcel.ActiveSheet.Shapes
    cJPG = cPath + JUSTSTEM(cXLS) + "_" + STRTRAN(oShape.TopLeftCell.Address,"$","") + ".jpg"
    ? "导出:" + cJPG
    oShape.CopyPicture
    oChart = oExcel.ActiveSheet.ChartObjects.Add(0,0,oShape.Width,oShape.Height).Chart
    oChart.Paste
    oChart.Export(cJPG, "JPG")
    oChart.Parent.Delete
ENDFOR
? "导出完毕"
oExcel.ActiveWorkBook.Saved = .T.
oExcel.WorkBooks.Close
oExcel.Quit
2017-06-14 22:39
wangzhiyi
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:14
帖 子:229
专家分:418
注 册:2014-4-9
  得分:0 
回复留着学习,感谢吹版。
2017-06-14 23:04
wengjl
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:40
帖 子:1023
专家分:1956
注 册:2007-4-27
  得分:0 
感谢吹版,测试通过。又学会一招。

只求每天有一丁点儿的进步就可以了
2017-06-15 06:59
schtg
Rank: 3Rank: 3
等 级:论坛游侠
威 望:2
帖 子:129
专家分:137
注 册:2012-2-29
  得分:0 
学习啦,谢谢!
2017-06-15 07:49









关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.043060 second(s), 8 queries.
Copyright©2004-2017, BCCN.NET, All Rights Reserved