Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Работа с данными

Страница:

 

  Вопрос: обьяснике ошибку при раьоте с ODBC Добавлено: 15.01.09 10:52  

Автор вопроса:  tip
помогите ГОРЮ!!!мой макрос работает, толька вот пачемута не везде, в каких то книгах работает, а в каких то нет и вылазит эта ошибка: Run-time error"1004" Общая ошибка "ODBC"!!!! от чего это зависит??? В справке сказано поставить галочку в политике безопасности макросов, поставил и ничо не меняется! Дело в том что я использую внешним источником данных открытую книгу, когда она закрыта всё работает! но в некотрых книгах почему то макрос работает когда книга открыта!!! в чом же дело??? мне нужно чтоб книга (источник данных) была обязательно открыта, так как запрос я делаю из самого в себя!!!

ЗЫ: текже если у кого есть мысли по поводу другого алгоритма тоже пишите.

текст:

Sub zapros_k_prn()
Лист8.Select
Cells.Select
Selection.Delete Shift:=xlUp
With ActiveSheet.QueryTables.Add(Connection:=Array(Arra y( _
"ODBC;DSN=Файлы Excel;DBQ=" & ThisWorkbook.FullName & ";DefaultDir=C:\" _
), Array( _
Right(ThisWorkbook.Path, Len(ThisWorkbook.Path) - 3) & ";DriverId=790;MaxBufferSize=2048;PageTimeout= 5" _
), Array(";")), Destination:=Range("A1"))
.CommandText = Array( _
"SELECT `PRN$`.F1, `PRN$`.F2, `PRN$`.F3, `PRN$`.F4, `PRN$`.F15, `PRN$`.F16, `PRN$`.F24+`PRN$`.F25+`PRN$`.F26+`PRN$`.F27+`PRN$` .F28+" _
, _
"`PRN$`.F29+`PRN$`.F30+`PRN$`.F31+`PRN$`.F32+`PRN$ `.F33+`PRN$`.F34+`PRN$`.F35+`PRN$`.F36+`PRN$`.F37+ `PRN$`.F38+`PRN$`.F39+" _
, _
"`PRN$`.F40+`PRN$`.F41, `PRN$`.F17+`PRN$`.F18+`PRN$`.F19+`PRN$`.F20+`PRN$` .F21+`PRN$`.F22+`PRN$`.F23+`PRN$`.F42, `PRN$`.F43, `PRN$`.F44," _
, _
"`PRN$`.F45, `PRN$`.F46, `PRN$`.F47, `PRN$`.F48, `PRN$`.F95, `PRN$`.F96, `PRN$`.F103+`PRN$`.F104+`PRN$`.F105+`PRN$`.F106+`P RN$`.F107," _
, _
"`PRN$`.F97+`PRN$`.F98+`PRN$`.F99+`PRN$`.F100+`PRN $`.F101+`PRN$`.F102, `PRN$`.F108, `PRN$`.F109, `PRN$`.F110, `PRN$`.F111," _
, _
"`PRN$`.F112, `PRN$`.F113, `PRN$`.F114, `PRN$`.F115, `PRN$`.F175, `PRN$`.F176, `PRN$`.F182+`PRN$`.F183+`PRN$`.F184+`PRN$`.F185+`P RN$`.F186," _
, _
"`PRN$`.F177+`PRN$`.F178+`PRN$`.F179+`PRN$`.F180+` PRN$`.F181+`PRN$`.F187, `PRN$`.F188, `PRN$`.F189, `PRN$`.F190, `PRN$`.F191, `PRN$`.F192," _
, _
"`PRN$`.F193 FROM `PRN$` `PRN$`" _
)
.Refresh BackgroundQuery:=False
End With
End Sub

Ответить

  Ответы Всего ответов: 0  

Нет ответов

Страница:

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам