Импорт в Access из Excel

[hunumununukanuka]

Доброго времени суток.

У меня такая проблемка. Необходимо красиво организовать импорт из Excel'я данных, причем в уже сформированную таблицу. Данные в Excel'е храняться в таблице с множеством полей, имена которых не совподают с таблицей в Accesse. Как это все можно организовать?
Спасибо.

[alibek]

Завести таблицу соответствий полей и пройтись циклом по строкам.

[hunumununukanuka]

Завести таблицу соответствий полей и пройтись циклом по строкам.

А можно на этом моменте поподробней. Т.е. меня интерисует сам код. Как это техтически реализовать...

Спасибо.

[Lexa]

Поможет ли ?

Так создавал коллекцию столбцов (свой класс, т.к. как получить Key из коллекции не знаю Теоретическм в коллекции Item -номер Excel столбца, Key - Столбец в Access, Пришлось добавить Key
дополнительно). Так Add в классе выглядит:

Код: Выделить всё

Public Function Add(Key As String, ExcelColumnName As String, ExcelColumnNumber As Integer, Optional sKey As String) As clsColExcel


Кеу - наименование столбца

Создание коллекции

Код: Выделить всё

Private Function CreateCol(exSheet As Excel.Worksheet) As colExcelToAdo
   
    Set CreateCol = New colExcelToAdo
   
    For I = 1 To 15    '            максимальное количество столбцов в                                                     таблице с екселом
    If Len(exSheet.Cells(1, I).Value) > 0 Then
       CreateCol.Add exSheet.Cells(1, I).Value, exSheet.Cells(1, I).Value, CInt(I), exSheet.Cells(1, I).Value

    End If
    Next
End Function


Затем вставлял так:

Код: Выделить всё

colAdress=CreateCol(<Екселовский лист>)

   For Each cn In colAdress
        rs.Fields(cn.ExcelColumnName).Value = eS.Cells(cp, cn.ExcelColumnNumber).Value
   Next


Вроде так, но наверное можно написать гораздо проще.