access vba

[eutelg]

Здравствуйте!
Я тут полазил по разным форумам насчет моей проблемы. надо сказать, что решения есть. однако, возможно здесь мне подскажут более элегантное

суть простая: в access есть 3 млн записей. необходимо создать в vba excess макрос, который бы делал запрос в эксес и экспортировал результат запроса в excel в виде отдельного файла.

Заранее спасибо!

[doober]

По форуму поискать вера не позволяет.
Примеров много

Sub Go_Junior()
Const sCn1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
Dim cn As ADODB.Connection, rs As ADODB.Recordset
Dim sCon As String, sSql As String
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
    sCon = sCn1 + "C:\DOCUMENTS AND SETTINGS\alex\Рабочий стол\mybd.mdb"
    cn.Open sCon
    
    If Not cn.State = 1 Then Exit Sub

 sSql = "SELECT книги.название " + _
    "FROM книги ;"
    rs.Open sSql, cn, adOpenStatic, adLockReadOnly
      range.("A1")CopyFromRecordset rs
rs.Close:   cn.Close
Set cn = Nothing:   Set rs = Nothing
End Sub

[eutelg]

через recordset? понятно, но сам запрос в access здесь не делается только импорт существующего

[eutelg]

получается надо сначала сделать запрос в access, таем перейти в excle и запустить макрос. имя в макросе должно соответствовать имени запроса, иначе будет ошибка. идея в том, чтобы либо через access vba выгрузить в нужную книгу excel - там дальше свой макрос, либо с помощью excel vba сформировать полный запрос в базе аксес и выгрузить в excel.

[doober]

какая разница откуда запрос посылать.
Можно в access выполнить запрос .создать файл Excel,и скопировать на лист
Можно с Excel тоже самое сделать
Макрос можно выполнить в Excel,или в access

[eutelg]

вы не поняли: запрос - это термин access его сначала надо сделать, создать (создание -> конструктор запросов), а уже потом экспортировать в excel или сделать такой запрос из базы access по параметрам (например: дата рождения, город и т.д.) и импортировать в excel

[IgorGO]

нет это Вы не поняли...
запрос - это термин не access, а способ получения данных из базы данных (и из базы access в частности)
у эrселя есть компонент MSQuery, позволяющий формировать текст запроса и получать данные из баз данных.
Это можно проделать в ручном режиме, можно управлять процессом с помощью макроса.

[eutelg]

все верно, но как это реализуется в вашем коде? я не вижу как раз этого запроса по параметрам, только обращение к базе данным и выгрузка в excel

[IgorGO]

я тут никаких кодов не публиковал, а вот Сергей написал Вам:

sSql = "SELECT книги.название " + _
"FROM книги ;"

а это что? не запрос? (ключевое слово SELECT)

[eutelg]

я тут никаких кодов не публиковал

да, сорри. перепутал

sSql = "SELECT книги.название " + _
"FROM книги ;"

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