首页 > Web开发 > 详细

vb.net借助剪贴板将图片导入excel内

时间:2016-01-21 01:15:41      阅读:262      评论:0      收藏:0      [点我收藏+]

复制代码 代码如下:

 Dim im as Image=Image.FromFile ("C:/picture.bmp")   ‘获得Image

        System.Windows.Forms.Clipboard.SetDataObject(im, True)  ‘复制到剪贴板

        Dim xlApp As Excel.Application = New Excel.Application()
        Dim xlBook As Excel.Workbook

        Dim xlSheet As Excel.Worksheet


        xlBook = xlApp.Workbooks().Add
        xlSheet = xlBook.Worksheets("sheet1")


       Dim range As Excel.Range = xlSheet.Range(xlApp.Cells(4, 1), xlApp.Cells(4, 1))  ‘粘贴图片的位置
        xlSheet.Paste(range, im)  ‘将图片插入Excel

vb.net借助剪贴板将图片导入excel内

原文:http://www.jb51.net/article/45580.htm

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!