Форум программистов, компьютерный форум, киберфорум
Microsoft Access
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 4.87/15: Рейтинг темы: голосов - 15, средняя оценка - 4.87
0 / 0 / 0
Регистрация: 19.05.2016
Сообщений: 11
1

Выгрузка данных в шаблон word и excel

24.05.2016, 11:38. Показов 3037. Ответов 32
Метки нет (Все метки)

Добрый день.

Нужна Ваша помощь по выгрузке данных в шаблон word и excel.
Частично это все работает, но мне хотелось бы подправить. Сейчас данные выгружаются в новый
документ каждая запись. А надо чтоб все выгружались в один документ.
Как можно сделать выгрузку фото в word?
По excel то же выгрузка работает, но как сделать так чтоб оставалось форматирование ячеек из шаблона
такие как ширина, перенос.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Вложения
Тип файла: zip badge.zip (52.2 Кб, 41 просмотров)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.05.2016, 11:38
Ответы с готовыми решениями:

Выгрузка результатов запросов в шаблон Word
Дорый день. Форум читал. Также пытался использовать код из книги Гетца "Разработка настольных...

Выгрузка данный из формы Access в шаблон MS Word
Добрый день! Пожалуйста (!!!), помогите доработать базу. Мне необходимо делать выгрузку данных...

Экспорт данных запроса или формы в шаблон Excel или Word
Все привет. Пришлось столкнуться с необходимость экспорта сформированных запросов и форм в заранее...

Выгрузка данных из Access в Excel
Здравствуйте форумчане! Подскажите в Access есть возможность выгрузить данные в Excel, как у меня в...

32
818 / 449 / 79
Регистрация: 18.05.2016
Сообщений: 1,216
Записей в блоге: 4
26.05.2016, 12:49 21
Visual Basic
1
2
3
4
5
6
7
8
9
10
If rst(i).Name = "foto" Then
  if nz(rst!foto)<>"" then
    If FileLen(rst!foto) > 0 Then
      doc.Bookmarks.Item(rst(i).Name).Select
      app.Selection.InlineShapes.AddPicture rst!foto
    End If
  End If
Else
  doc.Bookmarks.Item(rst(i).Name).Range.Text = Nz(rst(i), "")
End If
0
Эксперт MS Access
6647 / 4256 / 264
Регистрация: 12.08.2011
Сообщений: 12,382
27.05.2016, 03:07 22
Цитата Сообщение от amd48 Посмотреть сообщение
if len(rst!foto) = 0 then
если в поле пусто, то пытаться загрузить фотографию по этому несуществующему пути?
Цитата Сообщение от alvk Посмотреть сообщение
if len(rst!foto) = 0 then
'вставляем путь
end if
Где в моём сообщении фраза "загрузить фотографию"?

Добавлено через 4 минуты
Алгоритм должен быть такой:
1.Проверяем наличие пути (длина поля больше ноля).
2.Если длина 0, то вставляем путь(предлагаем выбрать файл на диске)
3.Если длина больше 0, то продолжаем, иначе выход.
4.Меняем свойство picture на картинке, вставляя туда путь.
0
818 / 449 / 79
Регистрация: 18.05.2016
Сообщений: 1,216
Записей в блоге: 4
27.05.2016, 08:31 23
Цитата Сообщение от alvk Посмотреть сообщение
Если длина 0, то вставляем путь(предлагаем выбрать файл на диске)
Откуда вставлять путь?
Вы хоть основную задачу рассматривали? У человека в базе уже перечислены пути до фотографий и ничего запрашивать не надо. Т.е. это только усложнит работу. Фотографию, при её наличии надо вставлять в документ. Если фотография не доступна (не известен путь, не существует файл по указанному пути), то пропустить вставку и продолжить формирование документа.
Какое свойство пикчер? На какой картинке?
0
Эксперт MS Access
6647 / 4256 / 264
Регистрация: 12.08.2011
Сообщений: 12,382
27.05.2016, 08:45 24
Цитата Сообщение от amd48 Посмотреть сообщение
Какое свойство пикчер? На какой картинке?
Так это ваша картинка, думал это форма ТС. Сейчас пересмотрел выложенную базу, там вообще выгрузка в Word.
Думал про форму в Акцессе речь, ошибся, извиняюсь.

Цитата Сообщение от amd48 Посмотреть сообщение
У человека в базе уже перечислены пути до фотографий и ничего запрашивать не надо. Т.е. это только усложнит работу.
Всё равно порядок должен быть на предприятии, а не бардак. Если есть фотка, то повезло, а если нет, то что? Я так понимаю в конечном счёте нужны анкеты с фотографиями.
0
818 / 449 / 79
Регистрация: 18.05.2016
Сообщений: 1,216
Записей в блоге: 4
27.05.2016, 09:08 25
Ну по идее, анкеты без фоток вообще не должны формироваться и после отработки процедуры выдавать некий лог ошибки - отсутствуют фотки по таким-то людям. Но мы-то не знаем, как у них в конторе заведено. Мож некоторые из работников могут и без фотки ходить
0
Эксперт MS Access
6647 / 4256 / 264
Регистрация: 12.08.2011
Сообщений: 12,382
27.05.2016, 09:36 26
ага, и без штанов
0
0 / 0 / 0
Регистрация: 19.05.2016
Сообщений: 11
28.05.2016, 23:25  [ТС] 27
Проверка на правильность пути так и не заработала. Выдает ошибку и останавливает весь процесс. Обойдемся без проверки, поточней копировать путь будут и вся проверка. Ошибся лезь исправляй.

не по теме
.......Спасибо и на этом.
А то изначально человек создавал анкету в word, таблицу excel и потом таблица в access для печати пластик.карт и соответственно вручную копированием.[/SPOILER]
0
818 / 449 / 79
Регистрация: 18.05.2016
Сообщений: 1,216
Записей в блоге: 4
29.05.2016, 08:39 28
Какую хоть ошибку выдаёт? Только не номер, а текст ошибки, пожалуйста. И на какой строке кода. Ну и когда ошибки выдаются, появляется окно с кнопками "остановить", "отладка". В режиме отладки программа останавливается на паузу и можно навести мышку на переменные, объекты всякие и посмотреть их значения. Уже давно пора учиться отлаживать программы. Есть окошко Watches, есть Immediate. Наотлаживайся до посинения. В VBA с этим в отличие от многих других языков всё замечательно
0
0 / 0 / 0
Регистрация: 19.05.2016
Сообщений: 11
30.05.2016, 11:42  [ТС] 29
Это даже не ошибка. Пишет "Path not found" и кнопка ок.
После нажатия кнопки word спрашивает сохранить документ. И весь процесс останавливается.
0
Модератор
Эксперт MS Access
10050 / 4063 / 655
Регистрация: 07.08.2010
Сообщений: 11,411
Записей в блоге: 3
30.05.2016, 12:36 30
Цитата Сообщение от P2Q Посмотреть сообщение
Пишет "Path not found" и кнопка ок.
перевод --путь для записи/чтения файла не найден
проверьте , а есть ли каталог для файла или шаблона
0
0 / 0 / 0
Регистрация: 19.05.2016
Сообщений: 11
30.05.2016, 12:57  [ТС] 31
Тут в том то и дело что путей может и не быть, в имени файла может быть ошибка. Для этого и хотелось бы проверку
на правильность путей и совсем без путей. Когда без путей он без остановки проходит всю выгрузку, как и полагается,
а проверка на правильность пути выдает вот это окошко.
0
Модератор
Эксперт MS Access
10050 / 4063 / 655
Регистрация: 07.08.2010
Сообщений: 11,411
Записей в блоге: 3
30.05.2016, 13:39 32
меня смущают буквы имен дисков

A,B --ранее резервировались для дискеток
F------это может быть и сетевое имя, нужны права на доступ
foto
B:\Print\badge\photo\Атажанов Рустам Абдукаримович.JPG
F:\Изображения\badge\photo\Игнотенкова Галина Михайловна.JPG
0
818 / 449 / 79
Регистрация: 18.05.2016
Сообщений: 1,216
Записей в блоге: 4
30.05.2016, 16:29 33
Цитата Сообщение от P2Q Посмотреть сообщение
в имени файла может быть ошибка
Такую ошибку можно обрабатывать и корректно обходить. Зависит от того, что в случае отсутствия файла программа должна делать:
- сформировать карточку без фотографии
- пропустить карточку
- остановиться и попросить правильный файл с фотографией
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.05.2016, 16:29

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Выгрузка данных формы в Excel
Здравствуйте! Помогите, пожалуйста, с таким вопросом. У меня есть форма, в которой создано поле со...

Выгрузка данных из таблицы MS Access в MS excel
Добрый день , форумчане. Столкнулся с такой проблемой - имеется база данных, в ней несколько...

Автоматизация в Access97 (выгрузка данных в Excel)
Мне надо из Access 97 VBA заполнить лист Excel. Выглядит это так: Dim ExcelApp As Object,...

Вывод данных в шаблон Word
Здравствуйте! Помогите разобраться. Документ Word формируется с помощью закладок. Есть главная...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
33
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.