以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]后台将某个Excel文件中的某个区域的截图保存为jpg格式  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=84761)
--  作者：joe_xgp
--  发布时间：2016/5/10 9:20:00
--  [求助]后台将某个Excel文件中的某个区域的截图保存为jpg格式

请教各位高手，我们每发邮件报表，需要将Excel报表中的某个区域贴在邮件下面，每次都需手动截图，

 

可否通过foxtable直接取得然后保存为jpg的文件格式？

比如：D:\\text\\test.xls   Sheet名称为“报表”的A1：N20 区域，保存图片为test.jpg，也保存在D:\\test\\下

 

请高手老师指教！或提供可以参考的示例，非常感激！！

 
--  作者：大红袍
--  发布时间：2016/5/10 9:56:00
--  

mark excel截图

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\Test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)\'指定工作表

Dim range = ws.range("A3:D10")
range.CopyPicture(Appearance:=1, Format:=2)
ClipBoard.GetImage.save("d:\\aaa.jpg")
--  作者：joe_xgp
--  发布时间：2016/5/10 10:07:00
--  

非常感激大红袍老师的不厌其烦的回复！太感激了！！！