ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Excel->VB->.MDB
3 сообщений из 3, страница 1 из 1
Excel->VB->.MDB
    #32360300
e-daemon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
e-daemon
Гость
Приветствую всех.
Задача такая: нужно скопировать из 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, 05:53
| Ответить | Цитировать | Написать  
Excel->VB->.MDB
    #32360318
Лев
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лев
Гость
Привет...
Энное время назад я так же мучился правда не с загрузкой из Excel, а с выгрузкой (построчно!) в него же. Во-первых все ОЧЕНЬ долго было, а во-вторых так же висло на какой-то там достаточно далекой от конца строке... Нелюблю Excel!!!
Очень мне помог Анатолий из Киева.
Наверное и здесь надо делать так:
-используя метод TransferDatabase перегружать разом ВСЮ таблицу из Excel во временную (служебную) таблицу в .mdb;
-уже с этой таблицей делать что хошь и перегружать из нее данные хоть куда.
Честно говоря сам так не делал - не было надобности, но думаю все получится...

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


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