以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  数据转图片  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=152799)
--  作者：13968559581
--  发布时间：2020/7/22 16:22:00
--  数据转图片
你好，我现在想把一个表格的数据，导出来，以图片的形式保存（图片保存存一定大小，比如说20CM*10CM），这怎么操作
--  作者：有点蓝
--  发布时间：2020/7/22 16:28:00
--  
一个表格的数据？我理解不了怎么能够保存为图片？
--  作者：13968559581
--  发布时间：2020/7/22 17:57:00
--  

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

但我想要转成图片，转成图片后，我可以调用这张图片，去实现签名的效果，直接在电脑上签名
--  作者：有点蓝
--  发布时间：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
--  发布时间：2020/7/29 14:03:00
--  
你好，我用你这个代码，实现效果了，但在实际使用过程中，有时候会出现提示：EXCE在使用中什么的
怎么在代码结束后把这个EXCEL关闭
正确的写法应该是怎样的
--  作者：有点蓝
--  发布时间：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