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

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

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

Ответ
 
Опции темы
Старый 27.02.2011, 21:20   #1
kaval88
Пользователь
 
Регистрация: 20.02.2011
Сообщений: 19
Репутация: 10
По умолчанию Ошибка run-time Error 1004 общая ошибка ODBC

Код:

Sub t53t35t3t5t()
'
' t53t35t3t5t Ìàêðîñ
'

'
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "ODBC;DSN=Excel Files;DBQ=D:\First.xls;DefaultDir=D:;DriverId=1046;MaxBufferSize=2048;PageTimeout=5;" _
        , Destination:=Range("$A$1")).QueryTable
        .CommandText = Array( _
        "SELECT `'01NAR201101_1èñõ$'`.`Ñòðóêòóðíîå ïîäðàçäåëåíèå`, `'01NAR201101_1èñõ$'`.Îòäåë, `'01NAR201101_1èñõ$'`.`Òàáåëüíûé íîìåð`, `'01NAR201101_1èñõ$'`.`Âèä îïëàòû/óäåðæàíèÿ`, `'01NAR201101_1èñõ$'`.`Ìåñ" _
        , _
        "ÿö íà÷èñëåíèÿ/óäåðæàíèÿ`, `'01NAR201101_1èñõ$'`.`Ãîä íà÷èñëåíèÿ/óäåðæàíèÿ`, `'01NAR201101_1èñõ$'`.`Ðàñ÷åòíûé ìåñÿö`, `'01NAR201101_1èñõ$'`.`Ðàñ÷åòíûé ãîä`, Sum(`'01NAR201101_1èñõ$'`.Ñóììà) AS 'Ñóììà'," _
        , _
        " `'01NAR201101_1èñõ$'`.`Èñòî÷íèê äàííûõ`, `'01NAR201101_1èñõ$'`.`Êîä àíàëèòèêè`, `'01NAR201101_1èñõ$'`.`Ñ÷åò-çàêàç`, `'01NAR201101_1èñõ$'`.`Áàëàíñîâûé ñ÷åò`, `'01NAR201101_1èñõ$'`.`Ïåðñîíàëüíûé íîìåð`" _
        , _
        ", `'01NAR201101_1èñõ$'`.`Íîìåð íàçíà÷åíèÿ`, `'01NAR201101_1èñõ$'`.`Âðåìÿ íîðìèðîâàíîå`, `'01NAR201101_1èñõ$'`.`Âðåìÿ ôàêòè÷åñêîå`" & Chr(13) & "" & Chr(10) & "FROM `D:\First.xls`.`'01NAR201101_1èñõ$'` `'01NAR201101_1èñõ$'`" & Chr(13) & "" & Chr(10) & "GROU" _
        , _
        "P BY `'01NAR201101_1èñõ$'`.`Ñòðóêòóðíîå ïîäðàçäåëåíèå`, `'01NAR201101_1èñõ$'`.Îòäåë, `'01NAR201101_1èñõ$'`.`Òàáåëüíûé íîìåð`, `'01NAR201101_1èñõ$'`.`Âèä îïëàòû/óäåðæàíèÿ`, `'01NAR201101_1èñõ$'`.`Ìåñÿö" _
        , _
        " íà÷èñëåíèÿ/óäåðæàíèÿ`, `'01NAR201101_1èñõ$'`.`Ãîä íà÷èñëåíèÿ/óäåðæàíèÿ`, `'01NAR201101_1èñõ$'`.`Ðàñ÷åòíûé ìåñÿö`, `'01NAR201101_1èñõ$'`.`Ðàñ÷åòíûé ãîä`, `'01NAR201101_1èñõ$'`.`Èñòî÷íèê äàííûõ`, `'01N" _
        , _
        "AR201101_1èñõ$'`.`Êîä àíàëèòèêè`, `'01NAR201101_1èñõ$'`.`Ñ÷åò-çàêàç`, `'01NAR201101_1èñõ$'`.`Áàëàíñîâûé ñ÷åò`, `'01NAR201101_1èñõ$'`.`Ïåðñîíàëüíûé íîìåð`, `'01NAR201101_1èñõ$'`.`Íîìåð íàçíà÷åíèÿ`, `'0" _
        , _
        "1NAR201101_1èñõ$'`.`Âðåìÿ íîðìèðîâàíîå`, `'01NAR201101_1èñõ$'`.`Âðåìÿ ôàêòè÷åñêîå`" _
        )
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "Òàáëèöà_Çàïðîñ_èç_Excel_Files"
        .Refresh BackgroundQuery:=False

Ошибка в .Refresh BackgroundQuery:=False запрос к файлу ексель

В чем может быть проблема???Мб слишком много записей для Екселя???
Ексель 2007
Вложения
Тип файла: rar First.rar (977.2 Кб, 3 просмотров)

Последний раз редактировалось kaval88; 27.02.2011 в 21:29.
kaval88 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Периодическая ошибка Run-time error -2147417848 (80010108) Automation error в файле с макросом faraviper Microsoft Office Excel 0 24.02.2011 17:23
ошибка run-time 1004: application-defined or object-defined error Святой Дьявол Microsoft Office Excel 3 26.06.2010 11:06
Pivot Run-time Error 1004 stream71 Microsoft Office Excel 0 07.09.2009 15:41
Run-time error '1004'. Недопустимый параметр! nikolai_P Microsoft Office Excel 2 20.04.2009 18:06
Ошибка Run-Time error 13 DEZuv Microsoft Office Access 0 03.04.2009 12:25


19:32.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru