Передача данных из recordset

[Sergey112233]

Уважаемые форумчане.
Прошу Вас помочь разобраться со следующей ситуацией.
1 Передаем на лист из recordset данные.
Получаем таблицу

Исполнитель
Иванов
Петров
Сидоров
Иванов
Петров

2. Ставим в Excel фильтр по фамилии Сидоров, получаем видимую строку
Исполнитель
Сидоров

обновляем recordset, фамилия Сидоров заменяется на фамилию Иванов
Исполнитель
Иванов

Т.е. данные из recordset вставляются в первую отфильтрованную строку, а надо во вторую строку листа (ячейку “J2”). Так чтобы при включенном фильтре построчно обновились данные Иванов на Иванов, Петров на Петров, Сидоров на Сидоров. Чтобы строка с фамилией Сидоров осталась без изменений. Как это сделать?

Sub pr()

Dim cn As New ADODB.Connection
Dim cm As New ADODB.Command
Dim rs As New ADODB.Recordset
Dim fldLoop As Field
Dim i As Integer
Dim ws As Worksheet
Set ws = Sheets(1)
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.ConnectionString = "Data Source = D:\Книга3; Extended Properties=Excel 8.0;"""
cn.Open
cm.ActiveConnection = cn
cm.CommandText = "SELECT Исполнитель FROM [Лист1$]"
rs.Open cm
Do While Not rs.EOF
rs.MoveNext
ws.Range("J" & 2).CopyFromRecordset rs

Loop

rs.Close
cn.Close
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
End Sub

[IgorGO]

Как это сделать?

Поставте корректно задачу и решайте ее.

[doober]

а надо во вторую строку листа (ячейку “J2”).

А почему вы считаете,что вторая отфильтрованная строка,ячейка имеет адрес J2

[Sergey112233]

Сообщение от IgorGO

Поставте корректно задачу и решайте ее.

Есть такой вариант: выключить фильтр, обновить данные, поставить фильтр. Но этот вариант мне не очень нравится. Возможно ли осуществлять обновление иным способом, через параметры rs? (если таковые есть. Я их не нашел).

[Sergey112233]

Сообщение от doober

А почему вы считаете,что вторая отфильтрованная строка,ячейка имеет адрес J2

Вторая отфильтрованная строка, ячейка как раз не имеет адрес J2, она имеет J4. А при включенном фильтре в нее передаются данные, которые должны передаваться в J2

[Sergey112233]

Пример обновления