Foxtable(狐表)用户栏目专家坐堂 → [求助]后台将某个Excel文件中的某个区域的截图保存为jpg格式


  共有2779人关注过本帖树形打印复制链接

主题:[求助]后台将某个Excel文件中的某个区域的截图保存为jpg格式

美女呀,离线,留言给我吧!
joe_xgp
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:151 积分:1306 威望:0 精华:0 注册:2013/5/13 13:28:00
[求助]后台将某个Excel文件中的某个区域的截图保存为jpg格式  发帖心情 Post By:2016/5/10 9:20:00 [只看该作者]

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

 

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

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

 

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

 


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:151 积分:1306 威望:0 精华:0 注册:2013/5/13 13:28:00
  发帖心情 Post By:2016/5/10 10:07:00 [只看该作者]

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


 回到顶部