ник: dmsrv803
str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Me.txtFileName.value & ";Extended Properties=""Excel 8.0;HDR=YES;Maximum Row Size=2000"""
Set cnn = CreateObject("ADODB.Connection")
cnn.Open (str)
Set rsL = CreateObject("ADODB.Recordset")
Do While Not rsl.EOF
rsL.MoveNext
Loop
|
Читаю из Excel, на листе около 40 000 строк и 12 колонок. Одна из колонок содержит длинные строковые значения (макс 300 символов). На примерно 30 670 строке получаю ошибку
размер поля недостаточен, чтобы принять добавляемые данные....
Дебагю дальше и с различным интервалом получаю эту ошибку.
Вопрос: и че мне с этим делать?