UkrainaВ свое время вел диспут по этому вопросу. Было много предложений, сделал гибридную версию. Скачивает с экселя спокойно, абсолютно не беспокоясь , какие там типы данных. Если в таблице указан тип «текстовой», то числовые экселевские данные преобразует в текстовой без всяких вопросов. Работает как часы. Спасибо Санычу, Темному и другим. Посмотри топик (хоть убей не помню, но называется "Можно ли оптимизировать этот код" № 852037,
Саныч ! МОЖЕТ ПОДСКАЖИТЕ ГДЕ ОН?)
Dim xa As Excel.Application
Dim xw As Excel.Workbook
Dim xs As Excel.Worksheet
Dim z1, z2, z3, z4, z8, z10, z12 As String
Dim z5, z6, z7, z11 As Double
Dim z9 As Date
Dim i As Integer
Set xw = GetObject(CurrentProject.Path & "\contracts.xls", "Excel.sheet")
Dim r As Excel.Range
Dim V
Dim sss As String
Set r = xw.ActiveSheet.UsedRange
sss = "A1:K" & r.Rows.Count + 1 – (формирует диапазон типа «А1:К100», т.е. до конца занятых ячеек)
V = xw.ActiveSheet.Range(sss).Value – (забирает данные из Экселя в массив из соответствующего диапазона)
z12 = xw.ActiveSheet.Cells(2, 2) – (это у меня соответствующая постоянная для всех)
For i = 5 To r.Rows.Count + 1 – (считывание значений из экселя в цикле начиная с нужной строки, в данном случае «5», но нужно поиграть значениями)
If IsEmpty((V(i, 2))) Then – (проверяет на наличие пустой строки и заканчивает считывание если пустое, где i-строка экселя)
GoTo 777
End If
Set rst = CurrentDb.OpenRecordset("Поступления") – (вгоняет в таблицу Акцесса и абсолютно по-барабану, какие типы данных в экселе)
rst.AddNew
rst![Товар] = V(i, 1)
rst![Наименование] = V(i, 2)
rst![Категория] = V(i, 3)
rst![Единицы] = V(i, 4)
rst![Кол-во] = V(i, 5)
rst![Себестоимость] = IIf(V(i, 6) = "", 0, V(i, 6))
rst![Себестоимость TMM] = IIf(V(i, 7) = "", 0, V(i, 7))
rst![Валюта] = V(i, 8)
rst![Дата] = V(i, 9)
rst![Поставщик] = V(i, 10)
rst![Контра] = z12
rst.Update
rst.Close
Next i
777:
DoCmd.Close
DoCmd.OpenForm "Контракт"
Exit Sub
Привожу пример как выглядит у меня таблица экселя, в поле "Товар" можно писать и число "123" и текст "123Х", главное, что в таблице поступление поле товар прописано текстовым. Работает, клиенты не жалуются.
Избегайте прямого преобразования!!!
ИМХО, до фига лишнего здесь у меня корректно работает просто
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
With Workbooks( 1 ).Worksheets("данные")
i= 2
Do While .Cells(i, 1 ) <> ""
rst.AddNew
rst![Товар] = .Cells(i, 1 ).Value
rst![Наименование] = .Cells(i, 2 ).Value
....
rst.Update
i = i+ 1
Loop
End With
Причем юзеры у меня ушлые иногда в числовые поля текст шуруют, чтоб не забыть чего - "вес будет проставлен позже", например.
Так что еще и проверять приходится, что в ячейке...
