access2007. Экспорт из access в excel.

[ничегонепонимаю]

Здравствуйте посетители форума. Надеюсь на вашу помощь
У меня такое дело, существует форма "Прайсы", в ней две табличные формы "Склады" и "ПрайсыЗапрос". При переходе по складам фильтруются значения в форме "ПрайсыЗапрос", относящиеся к выбранному складу. Я хочу сделать кнопку, которая экспортирует выбранные данные из таблицы "ПрайсыЗапрос" в excel.

[Андрэич]

Сообщение от ничегонепонимаю

Здравствуйте посетители форума. Надеюсь на вашу помощь
У меня такое дело, существует форма "Прайсы", в ней две табличные формы "Склады" и "ПрайсыЗапрос". При переходе по складам фильтруются значения в форме "ПрайсыЗапрос", относящиеся к выбранному складу. Я хочу сделать кнопку, которая экспортирует выбранные данные из таблицы "ПрайсыЗапрос" в excel.

Попробуйте:

DoCmd.OutputTo acOutputTable, "ИмяТаблицы", acFormat..., "ИмяФайла. (...)", True

Где троеточие - там соответственно вывод в нужном вам формате. Если набирать вручную в редакторе кода - система будет предлагать варианты...

[ничегонепонимаю]

DoCmd.OutputTo acOutputTable, "ПрайсыЗапрос", acFormat.xlsx, "Прайс.xlsx", True

Пишу это, мне отвечает ошибкой 424. Не понимаю в чем дело.
Вы еще написали что нужно писать имя таблицы, а если табличная форма сформирована из запроса ? что делать в этом случае ?

[Myhaylo]

Dim Excel As Object
Dim table As Recordset
Dim f As Object
  Set table = bd.OpenRecordset("SELECT ... FROM ... WHERE ...", dbOpenDynaset)
  If Not table.EOF Then
    Set Excel = CreateObject("Excel.Application")   'запустить MS Excel
    Excel.Workbooks.Add      'создать в новую книгу. Add("c:\kniga.xls") - открыть существующую
    Set f = Excel.Worksheets(1)
    f.Range("A2").CopyFromRecordset table    'вставить данные, начиная с ячейки A2 (Iстолбец, II строка)
    'f.Range("J:J").NumberFormat = "m/d/yyyy"   'задать формат "дата" для столбца J
    'f.Name = "Кількість"                  'задать имя листа книги

[Myhaylo]

Вместо "SELECT ... FROM ... WHERE ..." можно указать имя запроса.