VB控制Excel工作薄实例精选二

    1、获取Excel数据图表到VB的PictureBox控件中

'先引用对象库：Microsoft Excel 11.0 Object Library
Option Explicit
Dim xlExcel As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Private Sub Command1_Click()
        On Error GoTo Errhandler
        CommonDialog1.Filter = "Excel(*.xls)|*.xls|AllFile(*.*)|*.*"
        CommonDialog1.FilterIndex = 1
        CommonDialog1.ShowOpen
        Set xlExcel = New Excel.Application
        xlExcel.Workbooks.Open CommonDialog1.FileName
        Set xlBook = xlExcel.Workbooks(CommonDialog1.FileTitle)
        Application.Visible = True
        Set xlSheet = xlBook.Worksheets("Sheet1") '指定Sheet表
        xlSheet.ChartObjects(2).Chart.CopyPicture '读取第2个数据图表到剪贴板
        Picture1.Picture = Clipboard.GetData      '粘贴数据到图片框
        Clipboard.Clear                           '清除剪贴板数据
Errhandler:
        Exit Sub
End Sub