读书人

vb6怎么调用excel2007生成的图表

发布时间: 2012-06-01 16:46:36 作者: rapoo

vb6如何调用excel2007生成的图表
我想把execl2007里面生成的统计图表放入vb6编写的界面里面,应该怎么处理?

[解决办法]
http://download.csdn.net/detail/veron_04/1483925
[解决办法]

VB code
Option ExplicitDim 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:\book1.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 = NothingEnd Sub 

读书人网 >VB

热点推荐