Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Excel->VB->.MDB / 3 сообщений из 3, страница 1 из 1
23.12.2003, 05:53
    #32360300
e-daemon
e-daemon
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel->VB->.MDB
Приветствую всех.
Задача такая: нужно скопировать из Excel Worksheet данные в .mdb файл. UsedRange - 5 columns X 30000 rows. С .mdb проблем нету - через ADO всё работает. А вот такой цикл виснет в районе i=7553.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
.....
xl=CreateObject( "Excel.Application.9 ")
wBook = xl.WorkBooks.Open(fileName)
wSheet = wBook.WorkSheets( 1 )
rowsCount=wSheet.UsedRange.Rows.Count
.....
for i= 1  to rowsCount
  rec.field1 = wSheet.Cells(i, 1 ).Value 'rec- структура из  5 -ти полей String
  rec.field2 = wSheet.Cells(i, 2 ).Value
  rec.field3 = wSheet.Cells(i, 3 ).Value
  rec.field4 = wSheet.Cells(i, 4 ).Value
  rec.field5 = wSheet.Cells(i, 5 ).Value
next

Если уменьшать количество строк присвоения то цикл доходит дальше. Максимальное значение i*кол-во_строк не на много отличается от 32768.
Это максимальное значение signed int т.е. 2^15. Такое ощущение что идёт подсчёт пройденных ячеек и счётчик объявлен как Integer. Но у меня таких счётчиков нету. Если перезапускать Excel до максимального значения i, то всё работает.

Люди помогииите...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.12.2003, 07:45
    #32360318
Лев
Лев
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel->VB->.MDB
Привет...
Энное время назад я так же мучился правда не с загрузкой из Excel, а с выгрузкой (построчно!) в него же. Во-первых все ОЧЕНЬ долго было, а во-вторых так же висло на какой-то там достаточно далекой от конца строке... Нелюблю Excel!!!
Очень мне помог Анатолий из Киева.
Наверное и здесь надо делать так:
-используя метод TransferDatabase перегружать разом ВСЮ таблицу из Excel во временную (служебную) таблицу в .mdb;
-уже с этой таблицей делать что хошь и перегружать из нее данные хоть куда.
Честно говоря сам так не делал - не было надобности, но думаю все получится...

Успехов
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.12.2003, 13:38
    #32360794
e-daemon
e-daemon
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel->VB->.MDB
Лев, Благодарю за совет!
Но вообще дознаться охота...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Excel->VB->.MDB / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]