| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1378 人关注过本帖
标题:PictureBox读取EXCEL中的图片问题
只看楼主 加入收藏
ictest
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:333
专家分:114
注 册:2010-2-17
结帖率:70%
收藏
已结贴  问题点数:20 回复次数:1 
PictureBox读取EXCEL中的图片问题
一个EXCEL文件AAA.xls,里面插入了一张图片A.jpg,如何在PictureBox中读取出这张图片?
现已写有一段程序,但点击按钮后报错
图片附件: 游客没有浏览图片的权限,请 登录注册


程序如下:

程序代码:
Dim mXlsApp As Excel.Application '应用
Dim mXlsBook As Excel.Workbook '工作薄
Dim mXlsSheet As Excel.Worksheet '工作表
 
Private Sub Command1_Click()
  Set mXlsApp = New Excel.Application
  Set mXlsBook = mXlsApp.Workbooks.Open("c:\AAA.xls")
  Set mXlsSheet = mXlsBook.Worksheets(1)
' 以下代码读取Excel中图表到图片框
  mXlsSheet.ChartObjects(1).Chart.CopyPicture  '读取图表到剪贴板
  Picture1.Picture = Clipboard.GetData '粘贴数据到图片框
  Clipboard.Clear '清除剪贴板数据
  mXlsBook.Close
  mXlsApp.Quit
  Set mXlsSheet = Nothing
  Set mXlsBook = Nothing
  Set mXlsApp = Nothing
End Sub

敬请帮看看哪里错了并如何修改?
搜索更多相关主题的帖子: color EXCEL 图片 如何 
2017-06-12 16:42
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:938
专家分:5244
注 册:2015-8-10
收藏
得分:20 
你这个情况,没有遇到过,而且一般情况都是直接用mschart,用excel的比较少。
看报错,应该是类对象不匹配的问题。我个人觉得可能是这样的情况, 你的代码是03版本的,但是你现在机器上是07。 两者类对象的结构有一定的变化,虽然大部分的代码是可以直接移过来用的。
可以去微软官网看看,或者给mXlsSheet添加监控看看就知道了
2017-06-12 21:10
快速回复:PictureBox读取EXCEL中的图片问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.033862 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved