Вот и выгружайте из випа только ограничения, чтоб затем подставить их в макросе. Часть макроса, отвечающая за выгрузку данных, будет выглядеть так:RAJAH писал(а):Да не... Точно не Excel: разница заметна даже при компиляции ВИПом lot-файла только с запросом.
Код: Выделить всё
Set OraObj = QueryMbpSheet.ListObjects.Add(xlSrcExternal, "OLEDB;Provider=MSDAORA.1;Ваши_настройки_подключения", Destination:=QueryMbpSheet.Cells(1))
OraObj.ShowHeaders = False
With OraObj.QueryTable
.CommandType = xlCmdSql
.CommandText = "select (gal.hextoint(fnrec) - 9223372036854775808) nrec, FNNUMBER, (gal.hextoint(fnrec) - 9223372036854775808) nrec, trim(FNAME) from gal.katmbp order by 4"
.Refresh (False) ' Обновляем таблицу назначения в активном режиме
End With
OraObj.Unlist