Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Оптимизация выполения импорта из Excel в Access. / 6 сообщений из 6, страница 1 из 1
31.05.2004, 12:18
    #32540785
Alexanderik
Alexanderik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Оптимизация выполения импорта из Excel в Access.
Скажите мой вариант кода, очень длителен при выполнении.
можно его как то оптимизировать. или нужен другой подход к делу.
Я использовал операцию чтения из xls файла последовательно.
Но на это уходит при базе 300 строк - 20 секунд. Мне кажется долго.

Код: plaintext
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.
Dim MyRst As Recordset
Set dbDatabase = CurrentDb     'CreateDatabase(sNewDBPathAndName, dbLangGeneral, dbEncrypt)
Set MyRst = dbDatabase.OpenRecordset("select * from NewInvoice")
Dim x, y As Variant

y = 2   '  1  - headers
While y <  240 
'MsgBox y, vbApplicationModal
 MyRst.AddNew
 MyRst![Job] = WS.Cells(y, 2)
'.
'.
'.
'.
'.
'.
 MyRst![TotalCost] = WS.Cells(y, 14)
MyRst.Update
y = y + 1
Wend

MyRst.Close
Set dbDatabase = Nothing
Time2 = Timer()
MsgBox "New .MDB Created - '" & sNewDBPathAndName & "'=" & y & " records", vbInformation
MsgBox Time2 - Time
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2004, 12:23
    #32540791
Alexanderik
Alexanderik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Оптимизация выполения импорта из Excel в Access.
вот еще вариант - но тут надо как то шапку менять.

Код: plaintext
1.
2.
3.
Public Sub ImportXLS()
DoCmd.TransferSpreadsheet acImport, _
acSpreadsheetTypeExcel97, "NewInvoice2", "C:\EXPORT\INVOICE.xls", False, "A2:N230"
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2004, 13:09
    #32540854
kedzo
kedzo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Оптимизация выполения импорта из Excel в Access.
я не понял зачем тип у переменных - Variant. Поставь - целое - может ускорит?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2004, 13:10
    #32540857
Galustov
Galustov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Оптимизация выполения импорта из Excel в Access.
а что import не устраивает?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2004, 13:16
    #32540881
Alexanderik
Alexanderik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Оптимизация выполения импорта из Excel в Access.
import устраивает - только тут проблема с форматами возникает.
Если HasField = True , создаются поля, но тогда не происходит импорт из-за ошибки форматов. Ошибочные типы устанавливаются в таблицу.
И шапку менять как то проблематично.

2kedzo.
Нет работает также.
В любом случае быстрее чем For..Next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2004, 13:31
    #32540917
Hummer
Hummer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Оптимизация выполения импорта из Excel в Access.
Тут можно почитать о сравнении методов экспорта данных.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Оптимизация выполения импорта из Excel в Access. / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 371ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1674242]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 62ms
get topic data:
 13ms
get forum data:
 4ms
get page messages:
 51ms
get tp. blocked users:
 1ms
others: 212ms
total:  371ms
x
x
Закрыть


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