Макросом на лист Excel получаю данные запросом из dbf-файла.
Ищутся совпадения определённого ИНН в поле code_pr, в котором этот ИНН обычно внесён в виде 7777777777/777001001
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.
Dim DirPath As String
Dim Data As Variant
Dim cnn As ADODB.Connection
Dim strCnnString As String
Dim rst As ADODB.Recordset
Dim sqlString As String
DirPath = "D:\MyBases\Base09"
Set cnn = New ADODB.Connection
' Строка подключения ODBC.
' Можно использовать драйвер подключения либо dBASE, либо Visual FoxPro
strCnnString = "Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=" & DirPath & ";"
strCnnString = "Driver={Microsoft Visual FoxPro Driver};DriverID=277;UID=;PWD=;" & _
"SourceDB=" & DirPath & ";SourceType=DBF;Exclusive=Yes;" & _
"BackgroundFetch=Yes;Collate=RUSSIAN;Null=Yes;Deleted=Yes;" 'Machine
cnn.Open strCnnString
' Используем метод Execute для создания набора записей.
Set rst = New ADODB.Recordset
rst.CursorLocation = adUseClient
sqlString = "SELECT code " & _
"FROM partner " & _
"WHERE code_pr LIKE '7777777777%'"
Set rst = cnn.Execute(sqlString)
Err.Clear
On Error Resume Next
Data = rst.GetRows ' ЗДЕСЬ ПРОИСХОДИТ ОСТАНОВ с ошибкой 3021
If Err.Number = 3021 Then
On Error GoTo 0
ReDim Data( 5 , 0 )
Err.Clear
End If
Если данный ИНН есть в dbf-файле, то всё ОК. Но если данного ИНН нет, то происходит остановка макроса на строке с rst.GetRows. Хотя перед ней стоит оператор On Error Resume Next. И ошибка как раз имеет номер 3021, т.е. та, которая должна обрабатываться.
В чём тут грабли?
