|
#2
xiangyue05102017-06-12 21:10
|
现已写有一段程序，但点击按钮后报错
只有本站会员才能查看附件，请 登录
程序如下：
程序代码：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
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
敬请帮看看哪里错了并如何修改？