Загрузка данных из Excel в Access

[Zorg]

Коллеги, подскажите, а возможно ли макросом из Excel инициировать загрузку данных из Excel в Access?
То есть есть массив (таблица) в Excel, она загружается в БД Access через сохраненную операцию импорта в Accesse. Но импорт в Access (инициированный в Access) каждый раз при заливке данных делать неудобно, возможно ли как-то сделать это прямо из Excel?

[doober]

Возможно.
Ниже фрагмент рабочего кода
Через Insert при больших объемах получается дольше,во всяком случае у меня так.

Const sCn1 As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="


    Dim Sh1 As Worksheet, F_name As String, DD
   
        MY_Path = ThisWorkbook.Path + "\"
        Set Wb = Workbooks.Open(F_name)
        Set Sh1 = Wb.Worksheets(1)
        lLastRow = Sh1.UsedRange.Rows.Count
        DD = Sh1.Range("E1:E" & lLastRow)
        Dim rs As Object, cn As Object
        Set rs = CreateObject("ADODB.Recordset")
        Set cn = CreateObject("ADODB.Connection")
        Dim sCon As String, sSql As String
        sCon = sCn1 + MY_Path & "RX.mdb"
        cn.Open sCon
        If Not cn.State = 1 Then Exit Sub
        sSql = "SELECT * FROM Товар ; "
        rs.Open sSql, cn, 1, 3
        For n = 2 To UBound(DD)
                If DD(n, 1) <> "" Then
                        rs.AddNew
                        rs(0) = n
                        rs(1) = DD(n, 1)
                End If
        Next
        rs.Update
        rs.Close:

[Zorg]

Сообщение от doober

Возможно.
Ниже фрагмент рабочего кода
Через Insert при больших объемах получается дольше,во всяком случае у меня так.

[/CODE]

doober, большое спасибо за ответ! А можно попросить прокомментировать код, что в нем что значит, чтобы я смог его приспособить под свои нужды? Построчно, чтобы знать, что менять...
Спасибо!

[doober]

Сообщение от Zorg

doober, большое спасибо за ответ! А можно попросить прокомментировать код Построчно, чтобы знать, что менять...

Это самое нудное для меня.
Прикрепите образцы файлов,мне проще код написать

[Zorg]

Сообщение от doober

Это самое нудное для меня.
Прикрепите образцы файлов,мне проще код написать

Doober, вот образцы файлов.
Спасибо!

[doober]

Реализовал немного не по стандарту,но по другому не мог выразить свое отношение(имена AS..) к создателю базы.

[Zorg]

Сообщение от doober

Реализовал немного не по стандарту,но по другому не мог выразить свое отношение(имена AS..) к создателю базы.

Doober, Преогромное спасибо, работает!
Теперь только осталось понять, как
(база, какая есть, в такую и качаю... )

[staniiislav]

Сообщение от doober

Реализовал немного не по стандарту,но по другому не мог выразить свое отношение(имена AS..) к создателю базы.

а вы не могли бы еще пример (на данном примере) показать как с акссеса в эксель сделать такой же переброс данных?

[doober]

Азы ЗДЕСЬ
Применение всегда можно подстроить под себя

Для данного примера фрагмент кода

strSql = " SELECT [Вторичные продажи].* " & _
" FROM [Вторичные продажи] " & _
" WHERE [Код месяца продажи]=" & 201108
Set rs = cn.Execute(strSql)
Range("a1").CopyFromRecordset rs

[staniiislav]

Сообщение от doober

Для данного примера фрагмент кода

strSql = " SELECT [Вторичные продажи].* " & _
" FROM [Вторичные продажи] " & _
" WHERE [Код месяца продажи]=" & 201108
Set rs = cn.Execute(strSql)
Range("a1").CopyFromRecordset rs

его нужно заменить на этот фрагмент:

 strSql = " INSERT INTO [Вторичные продажи] ( [Код SKU], [Код ТТ], [Код месяца продажи], [Код дистрибутора], [Количество, шт], [Продажи, кг], [Сумма, руб] ) " & _
" SELECT '" & КодSKU & "' As Pipez1 , '" & КодТТ & "' As Pipez2, " & Кодмесяца & " As Pipez3, " & Коддистрибутора & "  As Pipez4, " & Количество & _
" As Pipez5," & Продажи & " As Pipez6," & Сумма & " As Pipez7;"
Count = Count + 1
  cn.Execute strSql