Помогите пожалуйста с диаграммой!

[Gawwws]

Пытаюсь построить Диаграмму на VB!
Записал рекордером построение на VBA, сохранил, ввёл объекты на VB и вот что получилось:

Sub Main()
Dim oExcel As Object
Dim oBook As Object
Dim Sheets As Object
Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Open("C:\Конструкт ор.xls")
oBook.Charts.Add
oExcel.Visible = True
Stop oBook.ActiveChart.ChartType = xlPieExploded
oBook.ActiveChart.SetSourceData Source:=Sheets("Конструктор").Range ( _
"AM16,BR16,CW16,EB16,FG16"), PlotBy:=xlRows
oBook.ActiveChart.SeriesCollection(1).XVa lues = _
"={""Однотариф."",""Тариф 1"",""Тариф 2"",""Тариф 3"",""Тариф 4""}"
oBook.ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Отношение тарифов"
With oBook.ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Отношение тарифов"
End With
oBook.ActiveChart.HasLegend = False
End Sub

!Синим отметил добавленное!

Модуль останавливается там, где я добавил красный STOP
До этого открывает книгу и добовляет поле для диаграммы, а потом пишет Type mismatch на строку oBook.ActiveChart.ChartType = xlPieExploded

[EducatedFool]

Попробуйте такой код (вдруг заработает):

Sub Main()
    Dim oExcel As Object, oBook As Object, Sheets As Object
    Set oExcel = CreateObject("Excel.Application")
    Set oBook = oExcel.Workbooks.Open("C:\Конструктор.xls")
    oExcel.Visible = True
    Set Chart = oBook.Charts.Add
    With Chart
        .ChartType = 69
        .SetSourceData Source:=Sheets("Конструктор").Range("AM16,BR16,CW16,EB16,FG16"), PlotBy:=1
        .SeriesCollection(1).XValues = "={""Однотариф."",""Тариф 1"",""Тариф 2"",""Тариф 3"",""Тариф 4""}"
        .Location Where:=1, Name:="Отношение тарифов"
        .HasTitle = True
        .ChartTitle.Characters.Text = "Отношение тарифов"
        .HasLegend = False
    End With
End Sub

А не проще ли использовать раннее связывание?
Поставьте у проекта VB в меню Проект - Ссылки галочку напротив библиотеки Microsoft Excel Object Library, и объявляйте объекты Excel не как Object, а в соответствии с их типами:
Dim Excel As New Excel.Application
Dim WB As Excel.Workbook, Chart As Excel.Chart

[Gawwws]

У меня нет такой библиотеки в ссылках!
Можно её скачать где-то? или установить как-то?
У меня VB 6.0

[Gawwws]

Предлагаемый код тоже не работает!

[EducatedFool]

У меня нет такой библиотеки в ссылках!

Библиотека Excel в списке ссылок имеет название Microsoft Excel 11.0 Object Library (или, например, Microsoft Excel 12.0 Object Library)
- в зависимости от версии установленного пакета Office.

Если Excel установлен на компьютере, библиотека должна быть в списке.

Если её всё таки в списке нет, а Excel установлен, то тогда нажми Пуск - Выполнить, и введи команду Excel /regserver

Если и после этого её не будет в списке, в окне Доступные ссылки (в VB) жмём Обзор и выбираем файл C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE ( тут тоже вместо OFFICE11 может быть OFFICE12 и т.п.)

Короче, ставим ссылку на файл EXCEL.EXE

Предлагаемый код тоже не работает!

На какой строке вылетает ошибка?

[Gawwws]

Так работает - разобрался:

Sub Main()
Dim oExcel As Object, oBook As Object, Sheets As Object
Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Open("C:\BQuark.0. 3\Конструктор.xls")
Set Sheets = oBook.Sheets("Конструктор")
Set Chart = oBook.Charts.Add
Chart.chartType = 69
Chart.SetSourceData Source:=Sheets.Range("AM16:AM20"), PlotBy:=5
Chart.SeriesCollection(1).XValues = "={""Однотариф."",""Тариф 1"",""Тариф 2"",""Тариф 3"",""Тариф 4""}"
Chart.Location Where:=1, Name:="Отношение тарифов"
Chart.HasTitle = True
Chart.ChartTitle.Characters.Text = "Отношение тарифов"
Chart.HasLegend = False
Chart.SeriesCollection(1).ApplyData Labels AutoText:=True, LegendKey:= _
False, HasLeaderLines:=True, ShowSeriesName:=False, ShowCategoryName:= _
True, ShowValue:=True, ShowPercentage:=True, ShowBubbleSize:=False
oExcel.Visible = True
End Sub

[Gawwws]

Спасибо большое!
А код типа диаграммы xlLine в цифрах как записать?

Может где-то можно скачать данные коды?

[EducatedFool]

Открываете Object Browser (в VB, а если к нему так и не удалось подключить библиотеку Excel, то в редакторе VBA Excel) - открывается он нажатием F2 - и в строке поиска вводите xlLine

Нажимаете на одном из результатов поиска, и внизу панели Object Browser видите примерно следующее:

Const xlLine = 4
Member of Excel.XlChartType

А если там же в поиске ввести XlChartType, то в правом столбце увидите кучу констант, определяющих тип диаграммы

И лучше использовать конструкцию

With Chart
         ...........
End With

Работать быстрее будет...

И используйте для вставки кода в сообщение теги [CОDE] и [/CОDE] (нажмите # над окном сообщений)

[Gawwws]

конечно через With! Я просто крутил - вертел до этого! Спасибо!