如何从EXCEL表上的照片保存为图片文件 - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → 如何从EXCEL表上的照片保存为图片文件

标题：如何从EXCEL表上的照片保存为图片文件

只看楼主

wengjl

等　级：贵宾
威　望：108
帖　子：2175
专家分：3785
注　册：2007-4-27
结帖率：95.71%

楼主

已结贴√ 问题点数：20 回复次数：11

如何从EXCEL表上的照片保存为图片文件

从电子学籍中导出的EXCEL表（一生一张表），上面有学生的信息和照片。读取信息保存到DBF为一条记录没问题，

但不知道如何将EXCEL表上固定位置的照片读出来，保存为一个以学号命名的JPG文件？　请高手赐教、帮助。谢谢！

搜索更多相关主题的帖子: EXCEL　图片　照片　如何　电子　

2017-06-14 10:48

wengjl

等　级：贵宾
威　望：108
帖　子：2175
专家分：3785
注　册：2007-4-27

第 2 楼

得分:0

只求每天有一丁点儿的进步就可以了

2017-06-14 14:01

wengjl

等　级：贵宾
威　望：108
帖　子：2175
专家分：3785
注　册：2007-4-27

第 3 楼

得分:0

在SDTA的博客上有一篇VFP 控制 Excel 在指定位置插入图片

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

请高手帮助

只求每天有一丁点儿的进步就可以了

2017-06-14 15:20

sdta

来　自：江苏省连云港市
等　级：版主
威　望：323
帖　子：9621
专家分：26174
注　册：2012-2-5

第 4 楼

得分:5

录制宏看看

坚守VFP最后的阵地

2017-06-14 15:40

wengjl

等　级：贵宾
威　望：108
帖　子：2175
专家分：3785
注　册：2007-4-27

第 5 楼

得分:0

ActiveSheet.Shapes("Picture 1").Select
Selection.Copy

录制宏，只能取到这二步

后面就无从下手了

只求每天有一丁点儿的进步就可以了

2017-06-14 20:54

wangzhiyi

等　级：贵宾
威　望：34
帖　子：366
专家分：684
注　册：2014-4-9

第 6 楼

得分:3

从你录制的宏命令分析你应该是选择了图片，然后进行了拷贝操作吧。应该还有一下步从剪切板上粘贴吧。

2017-06-14 22:12

吹水佬

等　级：版主
威　望：432
帖　子：10064
专家分：41463
注　册：2014-5-20

第 7 楼

得分: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

等　级：贵宾
威　望：34
帖　子：366
专家分：684
注　册：2014-4-9

第 8 楼

得分:0

回复留着学习，感谢吹版。

2017-06-14 23:04

wengjl

等　级：贵宾
威　望：108
帖　子：2175
专家分：3785
注　册：2007-4-27

第 9 楼

得分:0

感谢吹版，测试通过。又学会一招。