Перенос формулы из ячейки в recordset

[312153]

Здравствуйте!
Вопрос назрел следующий:
имеется recordset с запросом к листу Excel следующего вида

cm_old.CommandText = "SELECT ID, LS_" & yearn & ", LD_" & yearn & " " & "FROM [Лист1$] " & "WHERE (LS_" & yearn & " <> NULL);"

yearn здесь год, берется из коллекции и с помощью конкатенации получается имя столбца в листе1.
в ячейках столбца LS_&yearn хранятся формулы и вопрос состоит в том как мне в recordset перенести сами формулы, а не результат вычисления?

Заранее благодарен!

[R Dmitry]

Вот Вам пример, по другому похоже ни как
поместит текст типа =C1

Sub st_sql()
Dim cn As ADODB.Connection, rs As ADODB.Recordset
Dim sCon As String
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
  sCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.FullName _
  & ";Extended Properties=""Excel 8.0;HDR=No"";"
    cn.Open sCon
 If Not cn.State = 1 Then Exit Sub
 a = [b1:b11].FormulaLocal
  b = a
 For i = 1 To UBound(a)
 a(i, 1) = "'" & a(i, 1)
 Next
 [b1:b11] = a
   sSql = "SELECT F1" _
& " FROM [Лист1$B1:B11]"
   rs.Open sSql, cn, adOpenStatic, adLockReadOnly
  [j1].CopyFromRecordset rs
  [b1:b11].FormulaLocal = b
rs.Close: cn.Close
Set cn = Nothing: Set rs = Nothing
End Sub

[312153]

Я именно так и решил эту задачу.
Только в Connection String нужно еще добавить IMEX=1; для того чтобы драйвер ODBC понимал что вы переносите текст, а не числа, в противном случае он вернет вам сплошные NULL.

[R Dmitry]

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

Я именно так и решил эту задачу.
Только в Connection String нужно еще добавить IMEX=1; для того чтобы драйвер ODBC понимал что вы переносите текст, а не числа, в противном случае он вернет вам сплошные NULL.

не обязательно, так как я подставляю ему текстовые данные, то и вернет он мне только текст