Переслать данные из Excel в БД

[Avtopic]

Здравствуйте все!

У кого слабые нервы могут не читать этот вопрос, потому что вопрос может бить очень глупый, из-за незнания предмета!
Искал поиском по форуму. Таких тем очень и очень много. Все перечитал, но ответа на понятном мне языке не нашел, опят же из-за незнания предмета.

Читая найденное выяснил, что можно одним махом переслать данные из БД в Excel:

Sub Examp_Le()
Dim DB As Database, r As Recordset
Set DB = OpenDatabase(ThisWorkbook.Path & "\A.mdb") ‘база лежит рядом
sqlk = "SELECT * FROM [A1] ORDER BY cnum;"
Set r = DB.OpenRecordset(sqlk)
Cells(1, 1).CopyFromRecordset r
r.Close
DB.Close
End Sub
И результат- вся таблица А1 уже на листе. Начиная с ячейки Cells(1, 1)

Вопрос:
Допустим в колонки A,B,C, row с первого по 100 заполнены данными.
Можно или нет, все вместе таким же быстрым способом переслать в БД.

Мне бы на этом этапе как-то запихнуть в БД повседневные отчеты (их очень много и навалились все вместе), а потом когда освобожусь, обещаю выучить, как работать с БД и как их обработать.

[alibek]

Можно открыть базу данных, прилинковать к ней файл Excel как базу данных (таблицу) и перенести данные запросом.
Пример этого давался в форуме, в поиск по словам LinkTable.

[Andrey Fedorov]

Просто открыть табличку как Recordset можно примерно так:

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

    Set сn = New ADODB.Connection
    cn.CursorLocation = adUseClient
    cn.Mode = adModeRead
    cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=""" & sFile & """;Mode=Read;Extended Properties=""Excel 8.0;HDR=No;IMEX=1"""
   
    r.Open "SELECT * FROM [a2:j65536]", cn, adOpenStatic, adLockReadOnly


А вообще все зависит от конкретных условий...

[Avtopic]

Большое спасибо обоим!
Получилось! По-лу-чи-лось! По--лу--чи--лось!

Может пока код некрасивый, но уладить его уже не проблема:

Sub From_Excel_To_Access()
Dim DB As Database
Dim sqlk As String, Excel_Path As String, Access_Path As String

Access_Path As String ThisWorkbook.Path & "\A.mdb"
Excel_Path = ThisWorkbook.Path & "\" & ActiveWorkbook.Name

Set DB = OpenDatabase(Access_Path)

sqlk = "INSERT INTO D1 SELECT * FROM [Sheet1$] IN '" & Access_Path & "'[Excel 5.0;HDR=YES;IMEX=2];"
DB.Execute sqlk

End Sub

Пока на било времени углубится, но для тех, кто сразу захочет повторить этот код, добавлю:
1. Row1 в Sheet1 воспринимается как названия колонок
2. Базу A и в ней таблицу D1 нужно создать заранее.
3. в D1 количество и имена колонок должны совпадать с именами в Row1 Sheet1. количество колонок не 256, а столько, сколько используется.
И, разумеется, стоит галочка на DAO
Эти три пункта, наверно необязательны и зависят от того, что содержит sqlk.

Если кто не будь научит, где прочитать что такое HDR=YES IMEX=2 буду очень благодарен.

[Avtopic]

Sorry, в коде четвертая линя должна читаться так:
Access_Path = ThisWorkbook.Path & "\A.mdb"

[Andrey Fedorov]

Если кто не будь научит, где прочитать что такое HDR=YES IMEX=2 буду очень благодарен.

Когда-же мы поиском пользоваться научимся? См., например:

http://www.sql.ru/forum/actualthread.aspx?tid=195120

[Avtopic]

Извиняюсь, в праздновании забил про поиск . Спасибо!