run-time error 91 (object variable or with block variable not set)

[mrs.petrushina]

Добрый день, коллеги!
Формирую сводную табличку в excel из access, выдает ошибку на
выделенной строке кода. Хелп ми плиз=)

Sub PTCreate()

Dim cnnConn As ADODB.Connection
Dim rstRecordset As ADODB.Recordset
Dim cmdCommand As ADODB.Command


' Open the connection.
Set cnnConn = New ADODB.Connection
With cnnConn
.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4 .0"
.Open "C:\Documents and Settings\petrushina_as\Рабочий стол\SMS.mdb"
End With

' Set the command text.
Set cmdCommand = New ADODB.Command
Set cmdCommand.ActiveConnection = cnnConn
With cmdCommand
.CommandText = "Select [Филиал],[Дата отправки],[Месяц отправки],[SMS доставлено],[Count-Телефон] From 0110_Запрос_для_SMS_fin"
.CommandType = adCmdText
.Execute
End With

' Open the recordset.
Set rstRecordset = New ADODB.Recordset
Set rstRecordset.ActiveConnection = cnnConn
rstRecordset.Open cmdCommand

' Create a PivotTable cache and report.
Set objPivotCache = ActiveWorkbook.PivotCaches.Add( _
SourceType:=xlExternal)

Set objPivotCache.Recordset = rstRecordset
With objPivotCache
.CreatePivotTable TableDestination:=Range("A3"), _
TableName:="Pivot"
End With

With ActiveSheet.PivotTables("Pivot")
.SmallGrid = False
With .PivotFields("Дата отправки")
.Orientation = xlRowField
.Position = 1
End With
With .PivotFields("SMS доставлено")
.Orientation = xlColumnField
.Position = 1
End With
With .PivotFields("Count-Телефон")
.Orientation = xlDataField
.Position = 1
End With
End With

' Close the connections and clean up.
cnnConn.Close
Set cmdCommand = Nothing
Set rstRecordset = Nothing
Set cnnConn = Nothing


End Sub

[R Dmitry]

Добрый день

А вы не ошиблись веткой форума , Вам в форум по excel надо

[mrs.petrushina]

R Dmitry, ну формирую-то из access=)
попробую и там спросить...
п.с. мне эти сводные уже снятся

[shanemac51]

Set objPivotCache = ActiveWorkbook.PivotCaches.Add( _
SourceType:=xlExternal)

во-первых

аксесс не знает констант екселя(надо цифирей)

во-вторых

я вообще не увидела создания объекта екселя

[mrs.petrushina]

shanemac51 , добавила:
Dim app As Excel.Application
Set app = New Excel.Application
app.Visible = True
Dim objPivotCache As Object

все равно ругается 91 ошибкой!

а по поводу цифрой, я этот пример брала из хелпа в аксесс

[LittleFatCat]

Доброго времени суток!

Если есть ссылка в Referenses на объект Excel, то может понимать и константы, хотя числом надежнее, конечно :-)
Нет в коде создания новой книги (типа App.WorkBooks.Add), поэтому выражение
ActiveWorkBook никуда не ссылается