最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

vb.net借助剪貼板將圖片導(dǎo)入excel內(nèi)

 更新時(shí)間:2014年01月13日 11:54:46   作者:  
這篇文章主要介紹了vb.net將圖片導(dǎo)入到excel的方法,只要借助剪貼板將圖片粘貼到excel中就可以完成了,大家參考使用吧

復(fù)制代碼 代碼如下:

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

        System.Windows.Forms.Clipboard.SetDataObject(im, True)  '復(fù)制到剪貼板

        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

相關(guān)文章

最新評(píng)論

治县。| 石泉县| 敦煌市| 饶平县| 安泽县| 额尔古纳市| 筠连县| 边坝县| 喀喇沁旗| 连江县| 商南县| 古浪县| 福鼎市| 南靖县| 江西省| 上栗县| 连江县| 海安县| 克东县| 锡林浩特市| 聂荣县| 富源县| 洛扎县| 博罗县| 永泰县| 万全县| 墨脱县| 改则县| 义马市| 漳州市| 屏东市| 尉氏县| 英超| 元阳县| 如皋市| 绥棱县| 乌兰浩特市| 张家川| 陕西省| 赤峰市| 犍为县|