|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
04.04.2011, 15:29 | #1 |
Пользователь
Регистрация: 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 |
04.04.2011, 16:01 | #2 |
Форумчанин
Регистрация: 07.03.2010
Сообщений: 796
|
Добрый день
А вы не ошиблись веткой форума , Вам в форум по excel надо
Логика?!.... она где то рядом... E_mail: dg_rusak@mail.ru Если спасибо мало: Яндекс . Деньги - 41001731366021 WM R269866874234
|
04.04.2011, 20:42 | #3 |
Пользователь
Регистрация: 08.03.2011
Сообщений: 16
|
R Dmitry, ну формирую-то из access=)
попробую и там спросить... п.с. мне эти сводные уже снятся |
05.04.2011, 15:43 | #4 |
Участник клуба
Регистрация: 12.08.2010
Сообщений: 1,079
|
Код:
аксесс не знает констант екселя(надо цифирей) во-вторых я вообще не увидела создания объекта екселя
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание |
14.04.2011, 09:08 | #5 |
Пользователь
Регистрация: 08.03.2011
Сообщений: 16
|
shanemac51 , добавила:
Dim app As Excel.Application Set app = New Excel.Application app.Visible = True Dim objPivotCache As Object все равно ругается 91 ошибкой! а по поводу цифрой, я этот пример брала из хелпа в аксесс |
19.04.2011, 12:59 | #6 |
Пользователь
Регистрация: 14.09.2010
Сообщений: 68
|
Доброго времени суток!
Если есть ссылка в Referenses на объект Excel, то может понимать и константы, хотя числом надежнее, конечно :-) Нет в коде создания новой книги (типа App.WorkBooks.Add), поэтому выражение ActiveWorkBook никуда не ссылается |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
ошибка - Run-time error '91' Object variable or With block variable not set | Артур Иваныч | Microsoft Office Excel | 13 | 12.09.2012 14:18 |
For loop control variable must be simple local variable | Hehe | Общие вопросы Delphi | 11 | 26.12.2011 19: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 08:33 |
Run-time error '1004': Application-defined or object-defined error | malor | Microsoft Office Excel | 3 | 17.01.2010 17:13 |