excel图片保存
vfp吧
全部回复
仅看楼主
level 1
zhp70755 楼主
如何用VFP保存EXCEL中的图片,请高人指点!
2016年08月27日 04点08分 1
level 9
图片少的话可以先复制到画图或ppt,然后到处,多的话另存为网页文件,图片就都出来了.把非图片删掉
用vfp 另存为的话,这是代码
oExcel=Createobject("Excel.application")
oExcel.Workbooks.Open("带路径的表格文件名.xls")
oExcel.ActiveWorkbook.ActiveSheet.SaveAs('带路径的网页文件名.htm',44)
oExcel.Workbooks.Close
oExcel.Quit
Release oExcel
执行后图片就全在网页文件名命名的文件夹里了
2016年08月27日 09点08分 2
level 9
什么意思,具体什么应用
2016年08月28日 02点08分 3
level 9

回复3楼:
新建prg程序,运行下面代码:
oExcel=Createobject("Excel.application")
oExcel.Workbooks.Open(getfile("xls","文件名:","打开",0,"打开要导出图片的表"))
oExcel.ActiveWorkbook.ActiveSheet.SaveAs(PUTFILE("另存为","新建文稿","htm"),44)
oExcel.Workbooks.Close
oExcel.Quit
Release oExcel
2016年08月28日 04点08分 4
1