Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
Топик располагается на нескольких страницах: 1 2      [все]
 Еще раз об экспорте документа в Exel  [new]
wladimirrr
Member

Откуда: Калужская обл.
Сообщений: 261
Уважаемые профессионалы, помогите! Просмотрел все по поиску, везде отдельные фрагменты процессы экспорта. Цельной картины не нашел. Я не профессиональный прогер, поэтому, пожалуйста, не закидывайте меня "умными" советами, просто напишите код для этого процесса. Бд и файл Ексель прилагаю. В форме, из которой надо делать вывод, сначала задаем фильтр, заполняем поля для ручного ввода (белый фон), потом нужно выводить в готовый файл Ексель. Готов оказать материальную поддержку).

К сообщению приложен файл (СутВедомость.part01.rar - 126Kb) cкачать
17 авг 18, 13:01    [21645873]     Ответить | Цитировать Сообщить модератору
 Re: Еще раз об экспорте документа в Exel  [new]
wladimirrr
Member

Откуда: Калужская обл.
Сообщений: 261
Вторая часть архива

К сообщению приложен файл (СутВедомость.part02.rar - 79Kb) cкачать
17 авг 18, 13:02    [21645875]     Ответить | Цитировать Сообщить модератору
 Re: Еще раз об экспорте документа в Exel  [new]
Akina
Member

Откуда: Зеленоград, Москва, Россия
Сообщений: 18765
+ оффтоп
wladimirrr
пожалуйста, не закидывайте меня "умными" советами, просто напишите код для этого процесса.
А прийти помочь зарплату получить не надо?
wladimirrr
Я не профессиональный прогер
Значит, становись им.
Или найми. А он уже придёт и нормально спросит, если чего не поймёт.
17 авг 18, 13:11    [21645916]     Ответить | Цитировать Сообщить модератору
 Re: Еще раз об экспорте документа в Exel  [new]
wladimirrr
Member

Откуда: Калужская обл.
Сообщений: 261
Akina
+ оффтоп
wladimirrr
пожалуйста, не закидывайте меня "умными" советами, просто напишите код для этого процесса.
А прийти помочь зарплату получить не надо?
wladimirrr
Я не профессиональный прогер
Значит, становись им.
Или найми. А он уже придёт и нормально спросит, если чего не поймёт.


Я же написал русским языком, что готов заплатить. Совсем не понятно?
17 авг 18, 13:35    [21645940]     Ответить | Цитировать Сообщить модератору
 Re: Еще раз об экспорте документа в Exel  [new]
Akina
Member

Откуда: Зеленоград, Москва, Россия
Сообщений: 18765
Так это ... тут технический форум, а не биржа фриланса.
17 авг 18, 13:40    [21645943]     Ответить | Цитировать Сообщить модератору
 Re: Еще раз об экспорте документа в Exel  [new]
wladimirrr
Member

Откуда: Калужская обл.
Сообщений: 261
Akina
Так это ... тут технический форум, а не биржа фриланса.

А почему бы нет?)
17 авг 18, 13:45    [21645953]     Ответить | Цитировать Сообщить модератору
 Re: Еще раз об экспорте документа в Exel  [new]
wladimirrr
Member

Откуда: Калужская обл.
Сообщений: 261
Akina, пример опубликуем, думаю будет интересно многим.
17 авг 18, 13:46    [21645955]     Ответить | Цитировать Сообщить модератору
 Re: Еще раз об экспорте документа в Exel  [new]
sdku
Member

Откуда: Краснодар
Сообщений: 5669
wladimirrr,
А почитать про TransferSpreadsheet(или вообще экспорт) в сети или на форуме,где имеется море материала по этой теме, религия не позволяет
17 авг 18, 13:59    [21645976]     Ответить | Цитировать Сообщить модератору
 Re: Еще раз об экспорте документа в Exel  [new]
wladimirrr
Member

Откуда: Калужская обл.
Сообщений: 261
sdku, я потратил 2 дня на поиск, изучение этой темы. В голове каша. Нужна конкретная помощь за вознаграждение. Как то так.
17 авг 18, 14:09    [21645992]     Ответить | Цитировать Сообщить модератору
 Re: Еще раз об экспорте документа в Exel  [new]
Joss
Member

Откуда: г. Минск
Сообщений: 4834
Посмотрел пример. Всё можно сделать. Просто лень сидеть, расписывать ... " эти данные поместить в эту ячейку, эти данные поместить в эту ячейку...." Простая, но нудная работа.

Не понятно следующее. Раз документ предназначен для печати, то почему его сразу не формируют в отчёт? Зачем экспорт в Excel?
17 авг 18, 14:12    [21645996]     Ответить | Цитировать Сообщить модератору
 Re: Еще раз об экспорте документа в Exel  [new]
wladimirrr
Member

Откуда: Калужская обл.
Сообщений: 261
Joss
Посмотрел пример. Всё можно сделать. Просто лень сидеть, расписывать ... " эти данные поместить в эту ячейку, эти данные поместить в эту ячейку...." Простая, но нудная работа.

Не понятно следующее. Раз документ предназначен для печати, то почему его сразу не формируют в отчёт? Зачем экспорт в Excel?


Зачем экспорт в Excel, знает только заказчик). Я ему этот вопрос задавал, получил ответ:"надо!")).
Вы можете все ячейки не расписывать, я по аналогии сам сделаю нудную работу. Распишите в одну-две и саму таблицу.
17 авг 18, 14:17    [21646008]     Ответить | Цитировать Сообщить модератору
 Re: Еще раз об экспорте документа в Exel  [new]
982183
Member

Откуда: VL
Сообщений: 2731
Joss
Зачем экспорт в Excel?

У заказчика много денег, и он ищет способы их потратить.
17 авг 18, 14:32    [21646021]     Ответить | Цитировать Сообщить модератору
 Re: Еще раз об экспорте документа в Exel  [new]
Joss
Member

Откуда: г. Минск
Сообщений: 4834
Пример выгрузки массива записей начиная с определённой ячейки
Dim XL As Object
Dim rs As DAO.Recordset
Dim sql As String


Set XL = CreateObject("excel.application")
XL.Visible = True 'можно потом False
'XL.Workbooks.Open FileName:="C:\БДОНС\ОтраслПрогр2009\ОтраслПрогр.xls"
XL.Workbooks.Open FileName:=strPathFileXLS ' открытие файла шаблона

            sql = "SELECT Wrk_309_04.Идентиф, Wrk_309_04.НаимОКПО, ...  "  ' запрос на выборку

            Set rs = CurrentDb.OpenRecordset(sql) ' открываем рекордсет

            XL.Worksheets(1).Cells(13, 1).CopyFromRecordset rs ' помещаем выборку начиная с 13 строки с 1 столбца

            XL.ActiveWorkbook.SaveAs FileName:=strOutputPath ' путь и имя выходного файла
            XL.ActiveWindow.Close

  rs.Close
  Set rs = Nothing
  
  XL.Quit
  Set XL = Nothing

Вроде вот так. Попробуйте. После выгрузки придётся закрыть программу, а потом открывать заново. В памяти остаётся экземпляр Excel. Как избавиться, не знаю .
17 авг 18, 14:44    [21646033]     Ответить | Цитировать Сообщить модератору
 Re: Еще раз об экспорте документа в Exel  [new]
Joss
Member

Откуда: г. Минск
Сообщений: 4834
Заполнение отдельных ячеек листа. Открываешь книгу как в предыдущем случае
....
    XL.Worksheets(1).Name = "Расход ..." ' задаёшь имя листа, если надо
    XL.Worksheets(1).Cells(1, 2) = ... ' заносишь значение в ячейку
    XL.Worksheets(1).Cells(8, 2) = ...
....
закрываешь книгу аналогично.
17 авг 18, 15:00    [21646048]     Ответить | Цитировать Сообщить модератору
 Re: Еще раз об экспорте документа в Exel  [new]
wladimirrr
Member

Откуда: Калужская обл.
Сообщений: 261
Joss, спасибо, буду встраивать, потом отпишусь.
17 авг 18, 15:25    [21646091]     Ответить | Цитировать Сообщить модератору
 Re: Еще раз об экспорте документа в Exel  [new]
Joss
Member

Откуда: г. Минск
Сообщений: 4834
Вдогонку. Есть такой сайт "Лидер Access" - leadersoft.ru Я на нём в своё время очень пасся. Там есть куча примеров, в том числе и заполнение книги Excel - посмотри здесь тут всё что тебе надо.
17 авг 18, 15:52    [21646138]     Ответить | Цитировать Сообщить модератору
 Re: Еще раз об экспорте документа в Exel  [new]
wladimirrr
Member

Откуда: Калужская обл.
Сообщений: 261
Joss, вывод таблицы из запроса в целом получается, но есть ньюансы.
1. Время выходит в формате даты, хотя в шаблоне поставил нужный формат.
2. Поле "Модуль" не корректно выводится
Вот что в запросе

К сообщению приложен файл. Размер - 19Kb
17 авг 18, 16:22    [21646191]     Ответить | Цитировать Сообщить модератору
 Re: Еще раз об экспорте документа в Exel  [new]
wladimirrr
Member

Откуда: Калужская обл.
Сообщений: 261
wladimirrr
Joss, вывод таблицы из запроса в целом получается, но есть ньюансы.
1. Время выходит в формате даты, хотя в шаблоне поставил нужный формат.
2. Поле "Модуль" не корректно выводится
Вот что в запросе


А вот, что в ексель

К сообщению приложен файл. Размер - 20Kb
17 авг 18, 16:23    [21646193]     Ответить | Цитировать Сообщить модератору
 Re: Еще раз об экспорте документа в Exel  [new]
Joss
Member

Откуда: г. Минск
Сообщений: 4834
Неправда Ваша. Открыл шаблон, а там во всех ячейках столбца "Время" стоит Общий формат. Исправьте формат в шаблоне Excel, а потом снова выгрузите данные.
18 авг 18, 11:22    [21646693]     Ответить | Цитировать Сообщить модератору
 Re: Еще раз об экспорте документа в Exel  [new]
wladimirrr
Member

Откуда: Калужская обл.
Сообщений: 261
Joss
Неправда Ваша. Открыл шаблон, а там во всех ячейках столбца "Время" стоит Общий формат. Исправьте формат в шаблоне Excel, а потом снова выгрузите данные.

Да, это было в шаблоне и я естественно исправил. Не помогло, поэтому и написал. Вот новый файл шаблона.

К сообщению приложен файл (СуточнаяВедомостьШ.xlt - 44Kb) cкачать
18 авг 18, 13:28    [21646738]     Ответить | Цитировать Сообщить модератору
 Re: Еще раз об экспорте документа в Exel  [new]
wladimirrr
Member

Откуда: Калужская обл.
Сообщений: 261
Joss, и еще, если выводтиь в запрос ЗапросСутВедРасход, выводятся все записи,но если выводить другой запрос с выборкой значений

SELECT Склады.Наименование, СкладРасход.Дата, СкладРасход.Время_прибытия, СкладРасход.Модуль, СкладРасход.Вид_работы, СкладРасход.Вид_расхода, СкладРасход.[Тип _основания], СкладРасход.Основание, Шифры_маневровой_работы.[Станции маневровой работы], Тип_локомотива.Тип_локомотива, Локомотивы.Номер_локомотива, СкладРасход.[№маршрута], СкладПродукты.Наименование, ЗапросОписаниеРасход.Количество, ЗапросОписаниеРасход.Итого, СкладРасход.Топливо_до_набора, СкладРасход.Топливо_после_набора, ЗапросОписаниеРасход.Плотность, СкладРасход.Температура, СкладРасход.Экипировщик, Работники.Фамилия_Имя_Отчество
FROM ((((((ЗапросОписаниеРасход RIGHT JOIN СкладРасход ON ЗапросОписаниеРасход.Код_расхода = СкладРасход.Код_расхода) LEFT JOIN СкладПродукты ON ЗапросОписаниеРасход.Код_продукта = СкладПродукты.Код_продукта) LEFT JOIN Локомотивы ON СкладРасход.Код_локомотива = Локомотивы.Код_локомотива) LEFT JOIN Тип_локомотива ON Локомотивы.Тип_локомотива = Тип_локомотива.Код_типа) LEFT JOIN Склады ON СкладРасход.Код_склада = Склады.Код_склада) LEFT JOIN Работники ON СкладРасход.Получатель = Работники.Код_работника) LEFT JOIN Шифры_маневровой_работы ON СкладРасход.Станция_назначения = Шифры_маневровой_работы.Код_шифра
WHERE (((СкладРасход.Дата)>=[Формы]![СутВедРасход]![ДатаС] And (СкладРасход.Дата)<=[Формы]![СутВедРасход]![ДатаДо]) AND ((СкладРасход.Время_прибытия)>=[Формы]![СутВедРасход]![ВремяС] And (СкладРасход.Время_прибытия)<=[Формы]![СутВедРасход]![ВремяДо]) AND ((СкладПродукты.Наименование)=[Формы]![СутВедРасход]![Наименование]) AND ((Склады.Код_склада)=[Формы]![СутВедРасход]![Склад]));

то не открывает рекордсет.

К сообщению приложен файл. Размер - 62Kb
18 авг 18, 13:35    [21646749]     Ответить | Цитировать Сообщить модератору
 Re: Еще раз об экспорте документа в Exel  [new]
Joss
Member

Откуда: г. Минск
Сообщений: 4834
Киньте свою базу - посмотрю. Можно на почту в профиле. Можно здесь - больше людей посмотрят.

У Вас неправильно сформирован запрос. Даты принято заключать в #24.07.2018#
Постройте запрос в построителе, а потом посмотрите текст.
18 авг 18, 15:35    [21646792]     Ответить | Цитировать Сообщить модератору
 Re: Еще раз об экспорте документа в Exel  [new]
wladimirrr
Member

Откуда: Калужская обл.
Сообщений: 261
Joss, запрос я переделал (нашел здесь на форуме подсказку), вместо ссылок на поля формы создал публичные функции.

WHERE (((СкладРасход.Дата)>=DataS() And (СкладРасход.Дата)<=DataDo()) AND ((СкладРасход.Время_прибытия)>=VremaS() And (СкладРасход.Время_прибытия)<=VremaDo()) AND ((СкладПродукты.Наименование)=Naimenov()) AND ((Склады.Код_склада)=Sklad()));

Запрос стал выводиться в Ексель.
Проблема с форматом времени при выводе в Ексель пока остается.
18 авг 18, 16:30    [21646818]     Ответить | Цитировать Сообщить модератору
 Re: Еще раз об экспорте документа в Exel  [new]
Joss
Member

Откуда: г. Минск
Сообщений: 4834
Попробуйте через символьные значения. Преобразуйте время в строку и так попробуйте выгрузить.
18 авг 18, 18:19    [21646842]     Ответить | Цитировать Сообщить модератору
 Re: Еще раз об экспорте документа в Exel  [new]
wladimirrr
Member

Откуда: Калужская обл.
Сообщений: 261
Joss
Попробуйте через символьные значения. Преобразуйте время в строку и так попробуйте выгрузить.

Если можно, более подробно расскажите, как это делается. Не приходилось делать это(.
18 авг 18, 18:24    [21646849]     Ответить | Цитировать Сообщить модератору
 Re: Еще раз об экспорте документа в Exel  [new]
Joss
Member

Откуда: г. Минск
Сообщений: 4834
Используется функция Format ищите справку там всё подробно расписано

Пример
MyTime = #17:04:23#
MyStr = Format(MyTime, "hh:mm:ss")    ' Returns "17:04:23"
18 авг 18, 19:10    [21646878]     Ответить | Цитировать Сообщить модератору
 Re: Еще раз об экспорте документа в Exel  [new]
wladimirrr
Member

Откуда: Калужская обл.
Сообщений: 261
Joss
Вдогонку. Есть такой сайт "Лидер Access" - leadersoft.ru Я на нём в своё время очень пасся. Там есть куча примеров, в том числе и заполнение книги Excel - посмотри здесь тут всё что тебе надо.

Спасибо! Очень полезный ресурс!
18 авг 18, 19:30    [21646881]     Ответить | Цитировать Сообщить модератору
 Re: Еще раз об экспорте документа в Exel  [new]
wladimirrr
Member

Откуда: Калужская обл.
Сообщений: 261
Joss
Используется функция Format ищите справку там всё подробно расписано

Пример
MyTime = #17:04:23#
MyStr = Format(MyTime, "hh:mm:ss")    ' Returns "17:04:23"


Поставил Format в запросе
SELECT Склады.Наименование, СкладРасход.Дата, Format([Время_прибытия],"Short Time") AS Вр, ....
и заработало!
Спасибо!
18 авг 18, 19:43    [21646885]     Ответить | Цитировать Сообщить модератору
 Re: Еще раз об экспорте документа в Exel  [new]
Joss
Member

Откуда: г. Минск
Сообщений: 4834
Пожалуйста!
18 авг 18, 19:53    [21646890]     Ответить | Цитировать Сообщить модератору
 Re: Еще раз об экспорте документа в Exel  [new]
wladimirrr
Member

Откуда: Калужская обл.
Сообщений: 261
Остался последний вопрос по этой операции. Файл Ексель создается, открывается и тут-же закрывается.
Что надо поменять в коде, что-бы он не закрывался, а оставался открытым?

Private Sub &#202;&#237;&#238;&#239;&#234;&#224;180_Click()
Dim XL As Object
Dim rs As DAO.Recordset
Dim sql As String


Set XL = CreateObject("excel.application")
XL.Visible = True '&#236;&#238;&#230;&#237;&#238; &#239;&#238;&#242;&#238;&#236; False
XL.Workbooks.Open FileName:=CurrentProject.Path & "\&#209;&#243;&#242;&#238;&#247;&#237;&#224;&#255;&#194;&#229;&#228;&#238;&#236;&#238;&#241;&#242;&#252;&#216;.xlt" ' &#238;&#242;&#234;&#240;&#251;&#242;&#232;&#229; &#244;&#224;&#233;&#235;&#224; &#248;&#224;&#225;&#235;&#238;&#237;&#224;

            XL.Worksheets(1).Cells(3, 6) = &#196;&#224;&#242;&#224;&#209; ' &#231;&#224;&#237;&#238;&#241;&#232;&#236; &#231;&#237;&#224;&#247;&#229;&#237;&#232;&#229; &#226; &#255;&#247;&#229;&#233;&#234;&#243;
            XL.Worksheets(1).Cells(3, 7) = &#196;&#224;&#242;&#224;&#196;&#238;
            XL.Worksheets(1).Cells(3, 8) = &#194;&#240;&#229;&#236;&#255;&#209;
            XL.Worksheets(1).Cells(3, 9) = &#194;&#240;&#229;&#236;&#255;&#196;&#238;
            XL.Worksheets(1).Cells(3, 10) = &#194;&#232;&#228;_&#242;&#238;&#239;&#235;&#232;&#226;&#224;
            XL.Worksheets(1).Cells(8, 5) = &#194;_a&#226;&#242;&#238;&#246;&#232;&#241;&#242;&#229;&#240;&#237;&#224;x
            XL.Worksheets(1).Cells(9, 5) = &#198;&#196;_&#246;&#232;&#241;&#242;&#229;&#240;&#237;&#224;x
            XL.Worksheets(1).Cells(10, 5) = &#207;&#229;&#240;&#229;&#228;&#224;&#247;&#224;_&#236;&#229;&#230;&#228;&#243;_&#241;&#234;&#235;&#224;&#228;&#224;&#236;&#232;
            XL.Worksheets(1).Cells(11, 5) = B&#238;&#231;&#226;&#240;&#224;&#242;
            XL.Worksheets(1).Cells(12, 5) = &#206;&#239;&#240;&#232;&#245;&#238;&#228;&#238;&#226;&#224;&#237;&#238;
            XL.Worksheets(1).Cells(8, 6) = &#194;_a&#226;&#242;&#238;&#246;&#232;&#241;&#242;&#229;&#240;&#237;&#224;x_&#234;&#227;
            XL.Worksheets(1).Cells(9, 6) = &#198;&#196;_&#246;&#232;&#241;&#242;&#229;&#240;&#237;&#224;x_&#234;&#227;
            XL.Worksheets(1).Cells(10, 6) = &#207;&#229;&#240;&#229;&#228;&#224;&#247;&#224;_&#236;&#229;&#230;&#228;&#243;_&#241;&#234;&#235;&#224;&#228;&#224;&#236;&#232;_&#234;&#227;
            XL.Worksheets(1).Cells(11, 6) = B&#238;&#231;&#226;&#240;&#224;&#242;_&#234;&#227;
            XL.Worksheets(1).Cells(12, 6) = &#206;&#239;&#240;&#232;&#245;&#238;&#228;&#238;&#226;&#224;&#237;&#238;_&#234;&#227;
            XL.Worksheets(1).Cells(13, 6) = O&#225;&#249;&#232;&#233;_&#239;&#240;&#232;&#245;&#238;&#228;
            XL.Worksheets(1).Cells(14, 6) = &#207;&#240;&#229;&#228;&#251;&#228;&#243;&#249;&#232;&#233;_&#238;&#241;&#242;&#224;&#242;&#238;&#234;
            XL.Worksheets(1).Cells(8, 9) = &#207;&#224;&#241;&#241;&#224;&#230;&#232;&#240;&#241;&#234;&#232;&#229;
            XL.Worksheets(1).Cells(9, 9) = &#195;&#240;&#243;&#231;&#238;&#226;&#251;&#229;
            XL.Worksheets(1).Cells(10, 9) = &#204;&#224;&#237;&#229;&#226;&#240;&#238;&#226;&#251;&#229;
            XL.Worksheets(1).Cells(11, 9) = &#210;&#238;&#235;&#234;&#224;&#247;
            XL.Worksheets(1).Cells(12, 9) = &#200;&#242;&#238;&#227;
            XL.Worksheets(1).Cells(8, 12) = &#207;&#229;&#240;&#229;&#228;&#224;&#247;&#224;&#204;&#209;
            XL.Worksheets(1).Cells(9, 12) = &#208;&#229;&#236;&#238;&#237;&#242;
            XL.Worksheets(1).Cells(10, 12) = &#213;&#238;&#231;&#240;&#224;&#225;&#238;&#242;&#224;
            XL.Worksheets(1).Cells(11, 12) = &#192;&#226;&#242;&#238;&#242;&#240;&#224;&#237;&#241;&#239;&#238;&#240;&#242;
            XL.Worksheets(1).Cells(12, 12) = &#200;&#242;&#238;&#227;&#207;&#240;&#208;&#224;&#241;&#245;
            XL.Worksheets(1).Cells(8, 13) = &#207;&#229;&#240;&#229;&#228;&#224;&#247;&#224;&#204;&#209;2
            XL.Worksheets(1).Cells(9, 13) = &#208;&#229;&#236;&#238;&#237;&#242;2
            XL.Worksheets(1).Cells(10, 13) = &#213;&#238;&#231;&#240;&#224;&#225;&#238;&#242;&#224;2
            XL.Worksheets(1).Cells(11, 13) = &#192;&#226;&#242;&#238;&#242;&#240;&#224;&#237;&#241;&#239;&#238;&#240;&#242;2
            XL.Worksheets(1).Cells(12, 13) = &#200;&#242;&#238;&#227;&#207;&#240;&#208;&#224;&#241;&#245;2
            XL.Worksheets(1).Cells(13, 13) = &#206;&#225;&#249;&#232;&#233;_&#240;&#224;&#241;&#245;&#238;&#228;
            XL.Worksheets(1).Cells(14, 13) = &#207;&#229;&#240;&#229;&#245;&#238;&#228;&#255;&#249;&#232;&#233;_&#238;&#241;&#242;&#224;&#242;&#238;&#234;
            XL.Worksheets(1).Cells(9, 14) = &#196;&#238;&#209;&#237;&#224;&#225;&#230;&#198;&#196;
            XL.Worksheets(1).Cells(11, 14) = &#207;&#238;&#241;&#235;&#229;&#209;&#237;&#224;&#225;&#230;&#198;&#196;
            XL.Worksheets(1).Cells(13, 14) = &#200;&#242;&#238;&#227;&#238;&#203;&#232;&#242;&#240;&#251;&#198;&#196;
            XL.Worksheets(1).Cells(9, 15) = &#196;&#238;&#209;&#237;&#224;&#225;&#230;&#192;&#226;&#242;&#238;
            XL.Worksheets(1).Cells(11, 15) = &#207;&#238;&#241;&#235;&#229;&#209;&#237;&#224;&#225;&#230;&#192;&#226;&#242;&#238;
            XL.Worksheets(1).Cells(13, 15) = &#200;&#242;&#238;&#227;&#238;&#203;&#232;&#242;&#240;&#251;&#192;&#226;&#242;&#238;
            XL.Worksheets(1).Cells(7, 16) = &#207;&#240;&#232;&#236;&#229;&#247;&#224;&#237;&#232;&#229;
            
            sql = "&#199;&#224;&#239;&#240;&#238;&#241;&#209;&#243;&#242;&#194;&#229;&#228;&#208;&#224;&#241;&#245;&#238;&#228;2"  ' &#231;&#224;&#239;&#240;&#238;&#241; &#237;&#224; &#226;&#251;&#225;&#238;&#240;&#234;&#243;

            Set rs = CurrentDb.OpenRecordset(sql) ' &#238;&#242;&#234;&#240;&#251;&#226;&#224;&#229;&#236; &#240;&#229;&#234;&#238;&#240;&#228;&#241;&#229;&#242;

            XL.Worksheets(1).Cells(18, 1).CopyFromRecordset rs ' &#239;&#238;&#236;&#229;&#249;&#224;&#229;&#236; &#226;&#251;&#225;&#238;&#240;&#234;&#243; &#237;&#224;&#247;&#232;&#237;&#224;&#255; &#241; 18 &#241;&#242;&#240;&#238;&#234;&#232; &#241; 1 &#241;&#242;&#238;&#235;&#225;&#246;&#224;

            XL.ActiveWorkbook.SaveAs FileName:=CurrentProject.Path & "\" & "&#209;&#243;&#242;&#238;&#247;&#237;&#224;&#255;&#194;&#229;&#228;&#238;&#236;&#238;&#241;&#242;&#252;" & [&#196;&#224;&#242;&#224;&#209;] & ".xls" ' &#239;&#243;&#242;&#252; &#232; &#232;&#236;&#255; &#226;&#251;&#245;&#238;&#228;&#237;&#238;&#227;&#238; &#244;&#224;&#233;&#235;&#224;
            XL.ActiveWindow.Close

  rs.Close
  Set rs = Nothing
  
  XL.Quit
  Set XL = Nothing
End Sub
19 авг 18, 11:51    [21647082]     Ответить | Цитировать Сообщить модератору
 Re: Еще раз об экспорте документа в Exel  [new]
wladimirrr
Member

Откуда: Калужская обл.
Сообщений: 261
Блин, в предварительном просмотре все нормально отображалось(.
Так надежнее.

К сообщению приложен файл. Размер - 140Kb
19 авг 18, 11:59    [21647089]     Ответить | Цитировать Сообщить модератору
 Re: Еще раз об экспорте документа в Exel  [new]
Joss
Member

Откуда: г. Минск
Сообщений: 4834
А зачем? Файл создаётся, а потом его закрывать вручную?

Честно говоря, не помню, как это делается. Попробуйте закомментировать
            XL.ActiveWindow.Close
19 авг 18, 21:20    [21647376]     Ответить | Цитировать Сообщить модератору
Топик располагается на нескольких страницах: 1 2      [все]
Все форумы / Microsoft Access Ответить