owc Chart ошибка Type Mismatch

Здравствуйте
выскакивает ошибка Type Mismatch на выражение

Set objChart.DataSource = Forms!frmReportCross!owcReportCross.Worksheets("Данные")

вопрос почему?

style1,

куда ж Вы пропали?))
с загадкой разобрались? заработало?

вопрос открыт

побольше кода

    Dim objChart
    Dim objSpreadsheet
    Dim chConstants
    Dim chtChart1

    Set objChart = Forms!frmCharts!owcChart
    Set objSpreadsheet = Forms!frmReportCross!owcReportCross
    Set chConstants = objChart.Constants

    ' Set the data source of ChartSpace1 to Spreadsheet1.
    Set objChart.DataSource = objSpreadsheet.Worksheets("Данные")

на последней строчке ошибка Type Mismatch

up

Private Sub Form_Open(Cancel As Integer)
    Dim Cnn As New ADODB.Connection
    Dim Spr As OWC11.Spreadsheet
    Dim Och As OWC11.ChartSpace
    Dim Rst As ADODB.Recordset
    
    Set Och = Me.OChart.Object
    Set Spr = Me.spr_sheet.Object

    Cnn.Open GetConnectOLEDB
    Set Rst = Cnn.Execute("select top 25 date_p_por,sum_por from scl_nakl")
    Spr.Sheets(1).Cells.CopyFromRecordset Rst
    
    Och.DataSource = Spr
    Och.SetSpreadsheetData "Лист1!A1:B26", True
End Sub

Guest33,

браво, браво, браво!!!! почти заработало
только выскакивает ошибка на

.DataSource = Spreadsheet1.Sheets("Данные")

.DataSource = Spreadsheet1.Sheets(5)

тоже не работает

если ставить,

.DataSource = Spreadsheet1

то ошибок не выскакивает и строит график по первому листу
но мне нужно явно указать какой лист использовать... как это сделать?

Dim ChartSpace1 As OWC11.ChartSpace
Dim Spreadsheet1 As OWC11.Spreadsheet

Set ChartSpace1 = Forms!frmCharts!owcChart.Object
Set Spreadsheet1 = Forms!frmReportCross!owcReportCross.Object

 ChartSpace1.Clear
Set c = ChartSpace1.Constants
With ChartSpace1
    .DataSource = Spreadsheet1.Sheets("Данные")
End With 

Guest33,

Прошу прощения.. туплю... увидел

Och.SetSpreadsheetData "Лист1!A1:B26", True

большое Вам спасибо!!!! несколько дней мучился с этой проблемой