ReSQL.ru
     
powered by simpleCommunicator - 2.0.52     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Еще раз об экспорте документа в Exel
25 сообщений из 32, страница 1 из 2
  1  все
Еще раз об экспорте документа в Exel
    #39689448
wladimirrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wladimirrr
Гость
Уважаемые профессионалы, помогите! Просмотрел все по поиску, везде отдельные фрагменты процессы экспорта. Цельной картины не нашел. Я не профессиональный прогер, поэтому, пожалуйста, не закидывайте меня "умными" советами, просто напишите код для этого процесса. Бд и файл Ексель прилагаю. В форме, из которой надо делать вывод, сначала задаем фильтр, заполняем поля для ручного ввода (белый фон), потом нужно выводить в готовый файл Ексель. Готов оказать материальную поддержку).
...
Рейтинг: 0 / 0
17.08.2018, 13:01
| Ответить | Цитировать | Написать  
Еще раз об экспорте документа в Exel
    #39689450
wladimirrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wladimirrr
Гость
Вторая часть архива
...
Рейтинг: 0 / 0
17.08.2018, 13:02
| Ответить | Цитировать | Написать  
Еще раз об экспорте документа в Exel
    #39689456
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
 
оффтопwladimirrrпожалуйста, не закидывайте меня "умными" советами, просто напишите код для этого процесса.
А прийти помочь зарплату получить не надо?wladimirrrЯ не профессиональный прогерЗначит, становись им.
Или найми. А он уже придёт и нормально спросит, если чего не поймёт.
...
Рейтинг: 0 / 0
17.08.2018, 13:11
| Ответить | Цитировать | Написать  
Еще раз об экспорте документа в Exel
    #39689465
wladimirrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wladimirrr
Гость
Akina
 
оффтопwladimirrrпожалуйста, не закидывайте меня "умными" советами, просто напишите код для этого процесса.
А прийти помочь зарплату получить не надо?wladimirrrЯ не профессиональный прогерЗначит, становись им.
Или найми. А он уже придёт и нормально спросит, если чего не поймёт.

Я же написал русским языком, что готов заплатить. Совсем не понятно?
...
Рейтинг: 0 / 0
17.08.2018, 13:35
| Ответить | Цитировать | Написать  
Еще раз об экспорте документа в Exel
    #39689466
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Так это ... тут технический форум, а не биржа фриланса.
...
Рейтинг: 0 / 0
17.08.2018, 13:40
| Ответить | Цитировать | Написать  
Еще раз об экспорте документа в Exel
    #39689470
wladimirrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wladimirrr
Гость
AkinaТак это ... тут технический форум, а не биржа фриланса.
А почему бы нет?)
...
Рейтинг: 0 / 0
17.08.2018, 13:45
| Ответить | Цитировать | Написать  
Еще раз об экспорте документа в Exel
    #39689472
wladimirrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wladimirrr
Гость
Akina, пример опубликуем, думаю будет интересно многим.
...
Рейтинг: 0 / 0
17.08.2018, 13:46
| Ответить | Цитировать | Написать  
Еще раз об экспорте документа в Exel
    #39689482
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
wladimirrr,
А почитать про TransferSpreadsheet(или вообще экспорт) в сети или на форуме,где имеется море материала по этой теме, религия не позволяет
...
Рейтинг: 0 / 0
17.08.2018, 13:59
| Ответить | Цитировать | Написать  
Еще раз об экспорте документа в Exel
    #39689490
wladimirrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wladimirrr
Гость
sdku, я потратил 2 дня на поиск, изучение этой темы. В голове каша. Нужна конкретная помощь за вознаграждение. Как то так.
...
Рейтинг: 0 / 0
17.08.2018, 14:09
| Ответить | Цитировать | Написать  
Еще раз об экспорте документа в Exel
    #39689491
Фотография Joss
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Joss
Участник
Посмотрел пример. Всё можно сделать. Просто лень сидеть, расписывать ... " эти данные поместить в эту ячейку, эти данные поместить в эту ячейку...." Простая, но нудная работа.

Не понятно следующее. Раз документ предназначен для печати, то почему его сразу не формируют в отчёт? Зачем экспорт в Excel?
...
Рейтинг: 0 / 0
17.08.2018, 14:12
| Ответить | Цитировать | Написать  
Еще раз об экспорте документа в Exel
    #39689499
wladimirrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wladimirrr
Гость
JossПосмотрел пример. Всё можно сделать. Просто лень сидеть, расписывать ... " эти данные поместить в эту ячейку, эти данные поместить в эту ячейку...." Простая, но нудная работа.

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

Зачем экспорт в Excel, знает только заказчик). Я ему этот вопрос задавал, получил ответ:"надо!")).
Вы можете все ячейки не расписывать, я по аналогии сам сделаю нудную работу. Распишите в одну-две и саму таблицу.
...
Рейтинг: 0 / 0
17.08.2018, 14:17
| Ответить | Цитировать | Написать  
Еще раз об экспорте документа в Exel
    #39689502
982183
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
982183
Участник
JossЗачем экспорт в Excel?
У заказчика много денег, и он ищет способы их потратить.
...
Рейтинг: 0 / 0
17.08.2018, 14:32
| Ответить | Цитировать | Написать  
Еще раз об экспорте документа в Exel
    #39689510
Фотография Joss
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Joss
Участник
Пример выгрузки массива записей начиная с определённой ячейки
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
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. Как избавиться, не знаю .
...
Рейтинг: 0 / 0
17.08.2018, 14:44
| Ответить | Цитировать | Написать  
Еще раз об экспорте документа в Exel
    #39689518
Фотография Joss
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Joss
Участник
Заполнение отдельных ячеек листа. Открываешь книгу как в предыдущем случае
Код: vbnet
1.
2.
3.
4.
5.
....
    XL.Worksheets(1).Name = "Расход ..." ' задаёшь имя листа, если надо
    XL.Worksheets(1).Cells(1, 2) = ... ' заносишь значение в ячейку
    XL.Worksheets(1).Cells(8, 2) = ...
....

закрываешь книгу аналогично.
...
Рейтинг: 0 / 0
17.08.2018, 15:00
| Ответить | Цитировать | Написать  
Еще раз об экспорте документа в Exel
    #39689534
wladimirrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wladimirrr
Гость
Joss, спасибо, буду встраивать, потом отпишусь.
...
Рейтинг: 0 / 0
17.08.2018, 15:25
| Ответить | Цитировать | Написать  
Еще раз об экспорте документа в Exel
    #39689552
Фотография Joss
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Joss
Участник
Вдогонку. Есть такой сайт "Лидер Access" - leadersoft.ru Я на нём в своё время очень пасся. Там есть куча примеров, в том числе и заполнение книги Excel - посмотри здесь тут всё что тебе надо.
...
Рейтинг: 0 / 0
17.08.2018, 15:52
| Ответить | Цитировать | Написать  
Еще раз об экспорте документа в Exel
    #39689575
wladimirrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wladimirrr
Гость
Joss, вывод таблицы из запроса в целом получается, но есть ньюансы.
1. Время выходит в формате даты, хотя в шаблоне поставил нужный формат.
2. Поле "Модуль" не корректно выводится
Вот что в запросе
...
Рейтинг: 0 / 0
17.08.2018, 16:22
| Ответить | Цитировать | Написать  
Еще раз об экспорте документа в Exel
    #39689576
wladimirrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wladimirrr
Гость
wladimirrrJoss, вывод таблицы из запроса в целом получается, но есть ньюансы.
1. Время выходит в формате даты, хотя в шаблоне поставил нужный формат.
2. Поле "Модуль" не корректно выводится
Вот что в запросе

А вот, что в ексель
...
Рейтинг: 0 / 0
17.08.2018, 16:23
| Ответить | Цитировать | Написать  
Еще раз об экспорте документа в Exel
    #39689742
Фотография Joss
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Joss
Участник
Неправда Ваша. Открыл шаблон, а там во всех ячейках столбца "Время" стоит Общий формат. Исправьте формат в шаблоне Excel, а потом снова выгрузите данные.
...
Рейтинг: 0 / 0
18.08.2018, 11:22
| Ответить | Цитировать | Написать  
Еще раз об экспорте документа в Exel
    #39689763
wladimirrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wladimirrr
Гость
JossНеправда Ваша. Открыл шаблон, а там во всех ячейках столбца "Время" стоит Общий формат. Исправьте формат в шаблоне Excel, а потом снова выгрузите данные.
Да, это было в шаблоне и я естественно исправил. Не помогло, поэтому и написал. Вот новый файл шаблона.
...
Рейтинг: 0 / 0
18.08.2018, 13:28
| Ответить | Цитировать | Написать  
Еще раз об экспорте документа в Exel
    #39689774
wladimirrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wladimirrr
Гость
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 ((Склады.Код_склада)=[Формы]![СутВедРасход]![Склад]));

то не открывает рекордсет.
...
Рейтинг: 0 / 0
18.08.2018, 13:35
| Ответить | Цитировать | Написать  
Еще раз об экспорте документа в Exel
    #39689801
Фотография Joss
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Joss
Участник
Киньте свою базу - посмотрю. Можно на почту в профиле. Можно здесь - больше людей посмотрят.

У Вас неправильно сформирован запрос. Даты принято заключать в #24.07.2018#
Постройте запрос в построителе, а потом посмотрите текст.
...
Рейтинг: 0 / 0
18.08.2018, 15:35
| Ответить | Цитировать | Написать  
Еще раз об экспорте документа в Exel
    #39689809
wladimirrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wladimirrr
Гость
Joss, запрос я переделал (нашел здесь на форуме подсказку), вместо ссылок на поля формы создал публичные функции.

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

Запрос стал выводиться в Ексель.
Проблема с форматом времени при выводе в Ексель пока остается.
...
Рейтинг: 0 / 0
18.08.2018, 16:30
| Ответить | Цитировать | Написать  
Еще раз об экспорте документа в Exel
    #39689816
Фотография Joss
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Joss
Участник
Попробуйте через символьные значения. Преобразуйте время в строку и так попробуйте выгрузить.
...
Рейтинг: 0 / 0
18.08.2018, 18:19
| Ответить | Цитировать | Написать  
Еще раз об экспорте документа в Exel
    #39689817
wladimirrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wladimirrr
Гость
JossПопробуйте через символьные значения. Преобразуйте время в строку и так попробуйте выгрузить.
Если можно, более подробно расскажите, как это делается. Не приходилось делать это(.
...
Рейтинг: 0 / 0
18.08.2018, 18:24
| Ответить | Цитировать | Написать  
25 сообщений из 32, страница 1 из 2
  1  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Еще раз об экспорте документа в Exel
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&fpage=46&tid=1611234]:
 0ms
get settings:
 7ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 96ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 91ms
get tp. blocked users:
 2ms
others: 323ms
total:  553ms
созд. / загр.: 553ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]