https://bbs.bccn.net/viewthread.php?tid=477910&highlight=excel%2B%CD%BC%C6%AC
这个帖子您的代码如下
** 导出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
有些代码看不太懂，执行后出现如图错误？
请版主指教，谢谢

不清楚你那个xls文件，不好说

版主把表格上传

测试无异常
是否EXCEL安装问题，装个完整版的试试

谢谢版主，是安装版2003，是不是版本低的问题

? oExcel.version   && 显示 12

尝试将你的Excel文件中的焦点定位在其它任意单元格（如A1、其它等），就可以就正确导出了。

版主您好，显示11.0

谢谢，定位A1也一样出错

用你的原excel，报错。
更改焦点位置后，正常导出。
测试环境:  excel2010

没测试excel2003环境