BION,
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.
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset, sh As Worksheet
Const cstrBase As String = "C:\EXPORT\" 'Директория с файлами dbf
n = 1
t = 2
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & cstrBase & ";Extended Properties=dBase IV"
.Open
Set rs = .Execute("SELECT * FROM tab")
For i = 0 To rs.Fields.Count - 1
sh.Cells( 1 , i + 1 ).Value = rs.Fields(i).Name
Next i
If Not (rs.EOF And rs.BOF) Then rs.MoveFirst
Do Until rs.EOF
If t > 65000 Then
Set sh = Application.Worksheets.Add
sh.Name = "part" + Str(n)
For i = 0 To rs.Fields.Count - 1
sh.Cells( 1 , i + 1 ).Value = rs.Fields(i).Name
Next i
t = 2
n = n + 1
End If
For j = 0 To rs.Fields.Count - 1
sh.Cells(t, j + 1 ).Value = rs.Fields(j).Value
Next j
rs.MoveNext
t = t + 1
Loop
.Close
End With
это код из кнопки... открывается файл tab.dbf из директории C:\EXPORT\ заполняются заголовки и содержимое файла в Excel. При достижении 65000 записей идет добавление нового листа и продолжение файла. На файлике до 30 тыс. записей работает хорошо. Разбивала по 5 тыс. записей по листам. Стала на большом файле тестить - сразу ошибка выпала.
Debug на строке: Set rs = .Execute("SELECT * FROM tab")
