Доброго времени суток!
Вопрос в следующем:
Как выбрать данные из того диапазона, который получили из Excel? Или просто с листа...
Вариант первый - из диапазона:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
'Создание подключения к таблице Excel
Dim cnnExcel As New ADODB.Connection
cnnExcel.ConnectionString = "Provider=MSDASQL.1; Data Source=ExcelESK"
cnnExcel.Open
'Открываем набор данных (где ESK это диапазон ячеек)
Dim rstESK As New ADODB.Recordset
rstESK.Open "ESK", cnnExcel
'Находим число записей в наборе
rstESK.MoveFirst
introwsESK = 0
Do While Not rstESK.EOF
introwsESK = introwsESK + 1
rstESK.MoveNext
Loop
rstESK.MoveFirst
'Получаем массив записей
arrayRowsESK = rstESK.GetRows(introwsESK)
rstESK.Close
cnnExcel.Close
Отрабатывает и содержит набор данных! НО как теперь к нему применить SELECT?
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
'Запрашиваем данные из базы
rstOrgProduct.Open "SELECT [field1], [field2], [field3], [field4] " _
& "FROM " + rstESK + "" _
& "where field1 = '" + CStr(arrayRows(3, intLoopRow)) + "' " _
& "and field2 = '" + CStr(arrayRows(1, intLoopRow)) + "' " _
& "and field3 = '" + CStr(arrayRows(12, intLoopRow)) + "' " _
& "ORDER BY field4", cnnExcel
Получаю TypeMismatch.
Второй вариант - с листа:
1.
2.
3.
4.
5.
6.
7.
strSQL = "SELECT [field1], [field2], [field3], [field4] FROM [1207_old$] " _
& "GROUP BY [field1], [field2], [field3] " _
& "ORDER BY [field1], [field2]"
rstMain.Open strSQL, cnnExcel
Тогда ошибка:
автор---------------------------
Microsoft Visual Basic
---------------------------
Run-time error '-2147217904 (80040e10)':
[Microsoft][Драйвер ODBC Excel] Слишком мало параметров. Требуется 1.
---------------------------
ОК Справка
---------------------------
Или еще такой вариант:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Dim Conn As ADODB.Connection, rs As ADODB.Recordset
Dim ConnectionString As String
Set Conn = CreateObject("ADODB.Connection")
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\1207_old.xls;Mode=Share Deny None;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";Persist Security Info=False;"
Conn.CursorLocation = adUseClient
Conn.Open ConnectionString
Set rs = Conn.Execute("SELECT [field1], [field2], [field3], [field4] FROM [1207_old$] " _
& "GROUP BY [field1], [field2], [field3] " _
& "ORDER BY [field1], [field2]")
Тогда ошибка:
автор---------------------------
Microsoft Visual Basic
---------------------------
Run-time error '-2147217904 (80040e10)':
Отсутствует значение для одного или нескольких требуемых параметров.
---------------------------
ОК Справка
---------------------------
Может хоть какой-то из вариантов добить? Мучаю полдня уже, прошу помощи.
