экспорт запрос в excel

jobirbek
Дата: 31.12.2011 21:14:56
у меня есть запрос имя "Оплаты", в запрос сортировал поле "код плателшики" и копировать в буфер и вставить excel и сохранить (пример: оплатыКОД143,оплатыКОД180 и др) Вопрос как это делать программно
qwerty112
Дата: 31.12.2011 21:22:29
jobirbek
у меня есть запрос имя "Оплаты", в запрос сортировал поле "код плателшики" и копировать в буфер и вставить excel и сохранить (пример: оплатыКОД143,оплатыКОД180 и др) Вопрос как это делать программно

docmd.TransferSpreadsheet acImport, , "МойКрасивыйЗапрс", "C:\haba_haba.xls", True
jobirbek
Дата: 31.12.2011 21:42:37
"МойКрасивыйЗапрс", это имя запроса мне нужна "Имя макроса+поле фильтр значения" (Оплаты №1044 и др)
jobirbek
Дата: 31.12.2011 21:50:24
в виде таблица
Фио сумма кодплателшик
Игоров И50001044
Иванов С10001043
андреев К770001044



в виде запрос
Фио сумма кодплателшик
Игоров И50001044
андреев К770001044


запрос уже гатов в экспорт
перед экспорт "Имя запроса"+поле кодплателшик (имя сохраненного xls файла "оплаты1044")
Grigory_R
Дата: 01.01.2012 10:34:46
в известные мне гриды уже встроен экспорт
http://www.componentone.com/SuperProducts/VSFlexGridPro/
http://www.softdbgrid.ru/
http://www.mysofttool.com/
jobirbek
Дата: 05.01.2012 01:02:28
xlFileName = Application.CurrentProject.Path & "\test.xlsx"
Set xlApp = CreateObject("Excel.Application") ' Открываем Excel
Set xlBook = xlApp.Workbooks.Open(xlFileName) ' Открываем файл
Set xlSheet = xlBook.Sheets(3) ' Выбираем лист книги
xlApp.Visible = True ' Отображаем Excel

на последном строке Отображаем Excel мне не нужна отоброжат нужна сохранит как это делат
Открываем Excel-Открываем файл-Выбираем лист книги и СОХРАНИТЬ
EvAnd
Дата: 05.01.2012 03:03:32
Вам ответили: см.
qwerty112

DOCMD.TRANSFERSPREADSHEET ACIMPORT, , "ИМЯ ВАШЕГО ЗАПРОСА", "C:\ВАША ДИРЕКТОРИЯ (ПАПКА)", TRUE
кавычки везде оставлять...
EvAnd
Дата: 05.01.2012 03:08:09
поправка:

ACEXPORT
(вместо acImport)

:-)))
EvAnd
Дата: 05.01.2012 03:14:00
Вообщем, так:
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "Имя вашего запроса (таблицы)", CurrentProject.Path & "\" & "Имя вашего файла Ексель (с точкой и расширением - .xls)"

(CurrentProject.Path - если файл лежит в одной папке с базой)
Cardigans
Дата: 22.03.2012 13:29:20
А можно ли с помощью DoCmd.TransferSpreadsheet задать свое, пользовательское имя листа, на который будет выгружаться таблица? (Выгрузка таблиц производится по циклу с одной и той же таблицы в access)