Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Как купить рекламу на форуме


Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Access
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы Поиск в этой теме
Старый 04.04.2011, 14:29   #1
mrs.petrushina
Пользователь
 
Регистрация: 08.03.2011
Сообщений: 16
По умолчанию run-time error 91 (object variable or with block variable not set)

Добрый день, коллеги!
Формирую сводную табличку в 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
mrs.petrushina вне форума Ответить с цитированием
Старый 04.04.2011, 15:01   #2
R Dmitry
Форумчанин
 
Регистрация: 07.03.2010
Сообщений: 796
По умолчанию

Добрый день

А вы не ошиблись веткой форума , Вам в форум по excel надо
Логика?!.... она где то рядом... E_mail: dg_rusak@mail.ru Если спасибо мало: Яндекс . Деньги - 41001731366021 WM R269866874234
R Dmitry вне форума Ответить с цитированием
Старый 04.04.2011, 19:42   #3
mrs.petrushina
Пользователь
 
Регистрация: 08.03.2011
Сообщений: 16
По умолчанию

R Dmitry, ну формирую-то из access=)
попробую и там спросить...
п.с. мне эти сводные уже снятся
mrs.petrushina вне форума Ответить с цитированием
Старый 05.04.2011, 14:43   #4
shanemac51
Участник клуба
 
Аватар для shanemac51
 
Регистрация: 12.08.2010
Сообщений: 1,053
По умолчанию

Код:
Set objPivotCache = ActiveWorkbook.PivotCaches.Add( _
SourceType:=xlExternal)
во-первых

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

во-вторых

я вообще не увидела создания объекта екселя
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание
shanemac51 вне форума Ответить с цитированием
Старый 14.04.2011, 08:08   #5
mrs.petrushina
Пользователь
 
Регистрация: 08.03.2011
Сообщений: 16
По умолчанию

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

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

а по поводу цифрой, я этот пример брала из хелпа в аксесс
mrs.petrushina вне форума Ответить с цитированием
Старый 19.04.2011, 11:59   #6
LittleFatCat
Пользователь
 
Регистрация: 14.09.2010
Сообщений: 68
По умолчанию

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

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


Купить рекламу на форуме 20000 рублей в месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ошибка - Run-time error '91' Object variable or With block variable not set Артур Иваныч Microsoft Office Excel 13 12.09.2012 13:18
For loop control variable must be simple local variable Hehe Общие вопросы Delphi 11 26.12.2011 18:42
Run-Time Check Failure #2 - Stack around the variable 'a' was corrupted. Gidross Общие вопросы C/C++ 9 28.12.2010 15:22
run-time check failure #2-stack around the variable 't' was corrupted Despar Общие вопросы C/C++ 1 13.05.2010 07:33
Run-time error '1004': Application-defined or object-defined error malor Microsoft Office Excel 3 17.01.2010 17:13


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS