Доброго времени суток ребята.
В макросе работает запрос, который берет данные из таблицы(с одной таблицы) с Оракла. проблема такая: когда запускаю макрос, первые 3 строки быстро заполняются, но потом заполняется очень медленно, как черепаха ... где-то больше 3 часов, не дожидаясь конца остановил его.
этот же запрос запускаю через PL/SQL, выполняется в течении 13-15 мин.
в чем дело?

Извините, вот код:

Sub Connect()
Dim con As ADODB.Connection: Set con = New ADODB.Connection
con.Open "Provider=MSDAORA.1;Password=ro; User ID=ro;Data Source=tttdb; Persist Security Info=True"

Dim b As Integer 'столбцы
For b = 8 To 50 'По столбцам

Dim a As Integer 'строки
For a = 5 To 100 'По строкам

Dim rs As ADODB.Recordset: Set rs = New ADODB.Recordset
Set rs.ActiveConnection = con

Sql = " select"
Sql = Sql & " count(s.sub_id)"
Sql = Sql & " from"
Sql = Sql & " serv_his s"
Sql = Sql & " where s.start_date >= TO_DATE( '" + Cells(1, 1).Text + " 0:00:00', 'dd.mm.yyyy hh24:mi:ss')"
Sql = Sql & " and s.start_date <= TO_DATE( '" + Cells(1, 2).Text + " 23:59:59', 'dd.mm.yyyy hh24:mi:ss')"
Sql = Sql & " and s.user like '" + Cells(2, b).Text + "'"
Sql = Sql & " and s.s_id = '" + Cells(a, 2).Text + "'"
Sql = Sql & " and s.t_id = 4"

rs.Open Sql, con
Cells(a, b).Value = ""
Cells(a, b).CopyFromRecordset rs

Next a
Next b

rs.Close
End Sub




думаю что проблема в самой таблице...

Дело в том что запрос по столбцам идет, сперва 1 столбец потом 2-й и тд.

Sql = Sql & " and s.user like '" + Cells(2, b).Text + "'"

с других таблиц этот же запрос с макросом нормально работает, но вот с этой таблицой
Sql = Sql & " serv_his s" никак не хочет, может быть проблема в самой таблице...

ах да, это
Sql = Sql & " and s.s_id = '" + Cells(a, 2).Text + "'"
я сам проставляю, оно числовое.

да, для каждого юзера должен заполнится столбец.