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
敬请帮看看哪里错了并如何修改?