Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Оптимизация выполения импорта из Excel в Access. / 6 сообщений из 6, страница 1 из 1
31.05.2004, 12:18
    #32540785
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
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Оптимизация выполения импорта из 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
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Оптимизация выполения импорта из Excel в Access.
я не понял зачем тип у переменных - Variant. Поставь - целое - может ускорит?
...
Рейтинг: 0 / 0
31.05.2004, 13:10
    #32540857
Galustov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Оптимизация выполения импорта из Excel в Access.
а что import не устраивает?
...
Рейтинг: 0 / 0
31.05.2004, 13:16
    #32540881
Alexanderik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Оптимизация выполения импорта из Excel в Access.
import устраивает - только тут проблема с форматами возникает.
Если HasField = True , создаются поля, но тогда не происходит импорт из-за ошибки форматов. Ошибочные типы устанавливаются в таблицу.
И шапку менять как то проблематично.

2kedzo.
Нет работает также.
В любом случае быстрее чем For..Next
...
Рейтинг: 0 / 0
31.05.2004, 13:31
    #32540917
Hummer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Оптимизация выполения импорта из Excel в Access.
Тут можно почитать о сравнении методов экспорта данных.
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Оптимизация выполения импорта из Excel в Access. / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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