Привет!
Подскажите,

1. В ячейке есть строковое значение, мне его нужно записать в переменную, а далее мне эту переменную нужно использовать в запросе.

2. Как мне результат выборки в цикле заполнять на ячейку ниже, иначе все в одну перезаписывает

3. как присвоить переменной значение из выборки



начал писать, вот что получилось пока что

Sub tets()
Dim cnORA As Object
Dim rsORA As Object
Dim vSore As String

Set cnORA = CreateObject("ADODB.Connection")
Set rsORA = CreateObject("ADODB.Recordset")
vSore = Range("b5").Value


cnORA.Open "Provider=MSDASQL.1;Password=llc;Persist Security Info=True;User ID=LLC;Initial Catalog=test;Data Source=LL_ora"

rsORA.Open "select box_id from ll_list_det where cp_id=" & vSore, cnORA


While Not rsORA.EOF

Range("A1") = rsORA.Fields(0).Value
rsORA.MoveNext

Wend
'Range("A1").CopyFromRecordset rsORA

rsORA.Close
cnORA.Close
End Sub

Блин, по первому пункту не дописал, мне к полученному значению нужно с обеих сторон добавить одинарные кавычки.

Leonid Kudryavtsev,

Леонид, ответ твой понял попробую, а что скажешь на счет 1 и 3 пункта.