Добрый день, прошу совета.
Только начинаю разбираться с VBA в Excel, сделал макрос, который подключается к базе данных Access и заполняет второй столбец на основании данных из первого столбца. Т.е. по референсу (переменная "ref") находит в базе наименование. Все работает правильно, но на мой взгляд, я написал очень неэффективный код, в цикле открывается соединение, затем создается рекордсет, затем закрывается рекордсет и соединение. 20 строк заполняются примерно за полторы секунды. Можно ли как-то ускорить работу запроса? Т.к. может быть и 400 строк в первом столбце, тогда придется ждать минуты.
Код следующий:
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.
Sub Connection()
Dim conn As ADODB.connection
Dim rs As ADODB.Recordset
Dim src As String
Dim ref As String
Dim i As Integer
For i = 6 To 24
ref = Range("A" & i).Value
Set conn = New ADODB.connection
Set rs = New ADODB.Recordset
With conn
.Provider = "Microsoft.ACE.OLEDB.12.0;"
.connectionString = "Data Source=C:\db.accde"
End With
conn.Open
With rs
src = "select table1.field2, table1.field3 from table1 where field1 = '" & ref & "'"
.Open Source:=src, ActiveConnection:=conn
Range("A" & i).Offset(0, 1).CopyFromRecordset rs
End With
Set rs = Nothing
conn.Close
Set conn = Nothing
Next
End Sub
