Foxtable(狐表) → 用户栏目 → 专家坐堂 → 数据转图片


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

主题：数据转图片
帅哥哟，离线，有人找我吗？
13968559581
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：185 积分：1526 威望：0 精华：0 注册：2017/7/23 17:17:00 		数据转图片  发帖心情 Post By：2020/7/22 16:22:00 [只看该作者]

你好，我现在想把一个表格的数据，导出来，以图片的形式保存（图片保存存一定大小，比如说20CM*10CM），这怎么操作

 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106649 积分：542428 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/22 16:28:00 [只看该作者]

一个表格的数据？我理解不了怎么能够保存为图片？

 回到顶部
帅哥哟，离线，有人找我吗？
13968559581
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：185 积分：1526 威望：0 精华：0 注册：2017/7/23 17:17:00 		  发帖心情 Post By：2020/7/22 17:57:00 [只看该作者]

就是这个表格的数据，现在可以导成EXCEL表格的形式嘛

但我想要转成图片，转成图片后，我可以调用这张图片，去实现签名的效果，直接在电脑上签名
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106649 积分：542428 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/22 20:16:00 [只看该作者]

可以把数据先导入execl，http://www.foxtable.com/webhelp/topics/0559.htm

然后把execl保存为图片：

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")
 回到顶部
帅哥哟，离线，有人找我吗？
13968559581
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：185 积分：1526 威望：0 精华：0 注册：2017/7/23 17:17:00 		  发帖心情 Post By：2020/7/29 14:03:00 [只看该作者]

你好，我用你这个代码，实现效果了，但在实际使用过程中，有时候会出现提示：EXCE在使用中什么的
怎么在代码结束后把这个EXCEL关闭
正确的写法应该是怎样的
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106649 积分：542428 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/29 14:06:00 [只看该作者]

Dim App As New MSExcel.Application
try
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")
catch ex As Exception
    msgbox(ex.message)
finally
    App.quit
End try
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 4 次数据查询