Привет всем, проблема вот в чем. Есть ДБ и по данным одной из таблиц (данные могут периодически меняться, структура таблицы остается неизменной) должна быть построена диаграмма в Excel.
До сегодняшнего дня вот что сделал:
Исходный код
Public Sub Grafik()
Dim objXL As Object
Dim objBook As Object
Dim objSheet As Object
Dim objChart As Object
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim chtCart As Object
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM AB_Resultat")
'Excel starten
Set objXL = CreateObject("excel.application")
'Datenblat definieren
Set objBook = objXL.Workbooks.Add
Set objSheet = objBook.Worksheets.item(1)
objSheet.Name = "Auswertung"
'Daten ьbertragen
With objSheet.QueryTables.Add(Connection:=rs, Destination:=objSheet.Range("A1"))
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
'Neue Diagramm erstellen
Set objChart = objSheet.ChartObjects.Add(350, 20, 650, 400)
With objChart
'Name
.Name = "Analyse"
'Type
.Chart.ChartType = 65
'Daten
.Chart.SetSourceData Source = objSheet.Range("A1:H10"), PlotBy = xlColumns
'Achsen
.Chart.Axes(xlCategory, xlPrimary).HasTitle = True
.Chart.Axes(xlCategory, xlPrimary).AxisTitle.Characters.text = "Tagen"
.Chart.Axes(xlValue, xlPrimary).HasTitle = True
.Chart.Axes(xlValue, xlPrimary).AxisTitle.Characters.text = "Prozente"
End With
'Exceltabelle anzeigen
objXL.Visible = True
End Sub
Показать весь код
Проблема в строке 46 - Typen unvertrдglich. Переносит данные, строит пустую диаграмму и ... Что ему надо? В ячейках A1:H10 данные есть точно (я потом это на динамический диапазон изменю, это пока для теста).