Выгрузка данных в Word

@nasfer · Регистрация: 27.10.2009

Студворк — интернет-сервис помощи студентам

Доброго времени суток! Столкнулся со следующей проблемой при выгрузке данных. Имеется шаблон документа, в нем есть таблица 3x3.,запрос выдает фамилию пользователя , пароль и наличие или отсутствие прав, идея простая нужно поместить данные запроса в таблицу, вид примерно следующие :
Иванов 888 да
петров 666 нет
гусев 789 да

вот как я делаю

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Query1->Active=true;
vVarApp = CreateOleObject("Word.Application");
vVarApp.OlePropertySet("Visible",true);
vVarDocs = vVarApp.OlePropertyGet("Documents");
vVarDoc = vVarDocs.OleFunction("Open","D:\\1\\5.docx");
vVarTable= vVarDoc.OlePropertyGet("Tables").OleFunction("Item",1);
vVarTable.OlePropertyGet("Rows").OlePropertySet("Alignment",1);
 
while(!Query1->Eof)
{
 for(int i=0;i<=3;i++)
 for(int j=0;j<=3;j++)
{
vVarCell=vVarTable.OleFunction("Cell",i,j);
  vVarCell.OleFunction("Select");
switch(j)
  {
   case 1:
    vVarCell.OlePropertyGet("Range").
             OlePropertySet("Text",StringToOleStr(Query1->FieldByName("user")->AsString));
   break;
   case 2:
    vVarCell.OlePropertyGet("Range").
             OlePropertySet("Text",StringToOleStr(Query1->FieldByName("password")->AsString));
   break;
   case 3:
    vVarCell.OlePropertyGet("Range").
             OlePropertySet("Text",StringToOleStr(Query1->FieldByName("prava")->AsString));
 
   }
 
  }
  Query1->Next();
  }

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

Подскажите пожалуйста в чем моя ошибка

@Sasha · 24.03.2011, 10:14

К сожалению я не знаю как в Ворде найти пустую строку и как проверить таблицу на пустоту

Добавлено через 1 минуту
Кстати я заметил что ты 2 раза заполняешь с одного и того же поля Symma

@starkiller · 24.03.2011, 11:08

Sasha,
А вы случаем не знаете как вставить текст в определенное место документа?!

Сообщение от Sasha

Кстати я заметил что ты 2 раза заполняешь с одного и того же поля Symma

Я знаю, так и должно быть!

Добавлено через 20 минут
Все, сам разобрался!

@Sasha · 24.03.2011, 11:44

Слушай я нашёл код как вставить внизу строку

C++
1
2
v=vVarTable.OlePropertyGet("Rows").OleFunction("Item",4).OleFunction("Select");
vVarAppWord.OlePropertyGet("Selection").OleProcedure("InsertRowsBelow",1);

Добавлено через 1 минуту
Теперь осталось узнать количество строк в таблице в Ворде

Добавлено через 2 минуты
http://wladm.narod.ru/Borland/word.html#4

Добавлено через 8 минут
А вот и количество строк в таблице

C++
1
Table.OlePropertyGet("Rows").OlePropertyGet("Count");

@starkiller · 24.03.2011, 12:13

Сообщение от Sasha

А вот и количество строк в таблице

C++
1
Table.OlePropertyGet("Rows").OlePropertyGet("Count");

С этим не понятно, как в моем приложении это реализовать, точнее как проверять в каких строках в word записи есть, а в каких нет?!

@Sasha · 24.03.2011, 12:39

Сообщение от starkiller

С этим не понятно, как в моем приложении это реализовать, точнее как проверять в каких строках в word записи есть, а в каких нет?!

Честно говоря я думал ты строки будешь заполнять одна за одной по мере их поступления. Ну к прмеру добавил строку заполнил её полностью, опять добавил строку и заполнил её полностью.
А ты что бу дешь где-то в середине пропускать строки т.е делать их пустыми?

@starkiller · 24.03.2011, 12:42

Сообщение от Sasha

Честно говоря я думал ты строки будешь заполнять одна за одной по мере их поступления. Ну к прмеру добавил строку заполнил её полностью, опять добавил строку и заполнил её полностью.
А ты что бу дешь где-то в середине пропускать строки т.е делать их пустыми?

Нет нет, вы правильно меня поняли!

Так как это написать в коде?!

@Sasha · 24.03.2011, 12:46

Выложи пожалуйста код полностью, который у тебя есть по поводу открытия файла ворда и заполнения.

@starkiller · 24.03.2011, 12:52

Сообщение от Sasha

Выложи пожалуйста код полностью, который у тебя есть по поводу открытия файла ворда и заполнения.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
vVarApp = CreateOleObject("Word.Application");
vVarApp.OlePropertySet("Visible",true);
vVarDocs = vVarApp.OlePropertyGet("Documents");
vVarDoc = vVarDocs.OleFunction("Open","C:\\word\\äîêóìåíò.doc");
vVarTable= vVarDoc.OlePropertyGet("Tables").OleFunction("Item",1);
int i=1;
vVarCell=vVarTable.OleFunction("Cell",i+1,1);
vVarCell.OlePropertyGet("Range").OlePropertySet("Text",1);
vVarCell=vVarTable.OleFunction("Cell",i+1,2);
vVarCell.OlePropertyGet("Range").OlePropertySet("Text",ADOTable1->FieldByName("Naimenovanie")->AsString.c_str());
vVarCell=vVarTable.OleFunction("Cell",i+1,3);
vVarCell.OlePropertyGet("Range").OlePropertySet("Text",ADOTable1->FieldByName("EdIzmer")->AsString.c_str());
vVarCell=vVarTable.OleFunction("Cell",i+1,4);
vVarCell.OlePropertyGet("Range").OlePropertySet("Text",ADOTable1->FieldByName("Kolichestvo")->AsString.c_str());
vVarCell=vVarTable.OleFunction("Cell",i+1,5);
vVarCell.OlePropertyGet("Range").OlePropertySet("Text",ADOTable1->FieldByName("Symma")->AsString.c_str());
vVarCell=vVarTable.OleFunction("Cell",i+1,6);
vVarCell.OlePropertyGet("Range").OlePropertySet("Text",ADOTable1->FieldByName("Symma")->AsString.c_str());
i++;

А это который вставляет текст в определенное место в документе

C++
1
2
3
4
5
6
7
8
9
10
11
12
vVarApp = CreateOleObject("Word.Application");
vVarApp.OlePropertySet("Visible",true);
vVarDocs = vVarApp.OlePropertyGet("Documents");
vVarDoc = vVarDocs.OleFunction("Open","C:\\word\\äîêóìåíò.doc");
v=vVarApp.OlePropertyGet("Selection");
v.OleProcedure("MoveDown",4,1);
v.OleProcedure("HomeKey",5);
v.OleProcedure("MoveRight",1,32);
v.OlePropertyGet("Range").OlePropertySet("Text",123);
v.OleProcedure("MoveRight",1,3,1);
v.OlePropertyGet("Font").OlePropertySet("Underline",1);
v.OleProcedure("MoveRight",1,3,0);

@Sasha · 24.03.2011, 14:05

Сообщение от starkiller

С этим не понятно, как в моем приложении это реализовать, точнее как проверять в каких строках в word записи есть, а в каких нет?!

Понимаешь для того, чтобы тебе добавить запись нужно узнать, где у тебя последняя строка, а последнюю строку ты узнаешь только тогда, когда ты узнаешь количество строк всего

@starkiller · 05.04.2011, 08:52

Сообщение от Sasha

Понимаешь для того, чтобы тебе добавить запись нужно узнать, где у тебя последняя строка, а последнюю строку ты узнаешь только тогда, когда ты узнаешь количество строк всего

Как это в коде реализовать, напиши пожалуйста, если знаешь?!

@Sasha · 05.04.2011, 10:40

А сам пробывал?

@starkiller · 05.04.2011, 10:44

Да, не получается, не могу понять!

@Sasha · 05.04.2011, 10:51

Подставь под свои переменные

C++
1
2
v=vVarTable.OlePropertyGet("Rows").OleFunction("Item",Table.OlePropertyGet("Rows").OlePropertyGet("Count")).OleFunction("Select");
vVarAppWord.OlePropertyGet("Selection").OleProcedure("InsertRowsBelow",1);

@starkiller · 05.04.2011, 11:02

Сообщение от Sasha

Подставь под свои переменные

C++
1
2
v=vVarTable.OlePropertyGet("Rows").OleFunction("Item",Table.OlePropertyGet("Rows").OlePropertyGet("Count")).OleFunction("Select");
vVarAppWord.OlePropertyGet("Selection").OleProcedure("InsertRowsBelow",1);

Первую строку таблицы заполняет, а последнюю строку таблицы просто выделяет!

@Sasha · 05.04.2011, 11:12

Выложи код полностью как добавил

@starkiller · 05.04.2011, 11:15

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
vVarApp = CreateOleObject("Word.Application");
vVarApp.OlePropertySet("Visible",true);
vVarDocs = vVarApp.OlePropertyGet("Documents");
vVarDoc = vVarDocs.OleFunction("Open","C:\\word\\äîêóìåíò.doc");
vVarTable= vVarDoc.OlePropertyGet("Tables").OleFunction("Item",1);
int i=1;
v=vVarTable.OlePropertyGet("Rows").OleFunction("Item",vVarTable.OlePropertyGet("Rows").OlePropertyGet("Count")).OleFunction("Select");
vVarAppWord.OlePropertyGet("Selection").OleProcedure("InsertRowsBelow",1);
vVarCell=vVarTable.OleFunction("Cell",i+1,1);
vVarCell.OlePropertyGet("Range").OlePropertySet("Text",1);
vVarCell=vVarTable.OleFunction("Cell",i+1,2);
vVarCell.OlePropertyGet("Range").OlePropertySet("Text",ADOTable1->FieldByName("Naimenovanie")->AsString.c_str());
vVarCell=vVarTable.OleFunction("Cell",i+1,3);
vVarCell.OlePropertyGet("Range").OlePropertySet("Text",ADOTable1->FieldByName("EdIzmer")->AsString.c_str());
vVarCell=vVarTable.OleFunction("Cell",i+1,4);
vVarCell.OlePropertyGet("Range").OlePropertySet("Text",ADOTable1->FieldByName("Kolichestvo")->AsString.c_str());
vVarCell=vVarTable.OleFunction("Cell",i+1,5);
vVarCell.OlePropertyGet("Range").OlePropertySet("Text",ADOTable1->FieldByName("Symma")->AsString.c_str());
vVarCell=vVarTable.OleFunction("Cell",i+1,6);
vVarCell.OlePropertyGet("Range").OlePropertySet("Text",ADOTable1->FieldByName("Symma")->AsString.c_str());
i++;

@Sasha · 05.04.2011, 11:21

Это код вообще строку внизу добавляет?

@starkiller · 05.04.2011, 11:24

Сообщение от Sasha

Это код вообще строку внизу добавляет?

Нет, первую строку заполняет, а при последующем нажатии на кнопку первую строку просто заменяет другими данными, и последнюю строку таблицы выделяет!

@Sasha · 05.04.2011, 12:23

У меня твой код вообще на ошибку выходит после запуска Ворда

@starkiller · 05.04.2011, 12:27

А так попробуй

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
vVarApp = CreateOleObject("Word.Application");
vVarApp.OlePropertySet("Visible",true);
vVarDocs = vVarApp.OlePropertyGet("Documents");
vVarDoc = vVarDocs.OleFunction("Open","C:\\word\\äîêóìåíò.doc");
vVarTable= vVarDoc.OlePropertyGet("Tables").OleFunction("Item",1);
int i=1;
v=vVarTable.OlePropertyGet("Rows").OleFunction("Item",vVarTable.OlePropertyGet("Rows").OlePropertyGet("Count")).OleFunction("Select");
vVarCell=vVarTable.OleFunction("Cell",i+1,1);
vVarCell.OlePropertyGet("Range").OlePropertySet("Text",1);
vVarCell=vVarTable.OleFunction("Cell",i+1,2);
vVarCell.OlePropertyGet("Range").OlePropertySet("Text",ADOTable1->FieldByName("Naimenovanie")->AsString.c_str());
vVarCell=vVarTable.OleFunction("Cell",i+1,3);
vVarCell.OlePropertyGet("Range").OlePropertySet("Text",ADOTable1->FieldByName("EdIzmer")->AsString.c_str());
vVarCell=vVarTable.OleFunction("Cell",i+1,4);
vVarCell.OlePropertyGet("Range").OlePropertySet("Text",ADOTable1->FieldByName("Kolichestvo")->AsString.c_str());
vVarCell=vVarTable.OleFunction("Cell",i+1,5);
vVarCell.OlePropertyGet("Range").OlePropertySet("Text",ADOTable1->FieldByName("Symma")->AsString.c_str());
vVarCell=vVarTable.OleFunction("Cell",i+1,6);
vVarCell.OlePropertyGet("Range").OlePropertySet("Text",ADOTable1->FieldByName("Symma")->AsString.c_str());
i++;

Новые блоги и статьи Все статьи Все блоги /
Теория всего 12. ВГК anaschu 21.07.2026 ### Главные семантические изменения и дешифровка новой физики 1. `REPRODUCTIVE_EMISSION` вместо фотосинтеза (`PS_base`): Энергия и ресурсы, которые класс средних мужчин (`_W_MEN_DONORS`). . .	Публикация отклонённая на хабре. Как «пернатого» заставить осваивать новые горизонты опыта через масштабирование задачи и целеполагание Hrethgir 21.07.2026 https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11948&stc=1&d=1784657928 Привет Хабр. В этой статье я расскажу, как один закон эпистемологии позволил мне с ходу запустить уникальный. . .	Теория всего 11. Основные параметры anaschu 21.07.2026 Дешифровка тензорного ядра Soil Chemistry 2. 0: Истинный инвариант Теории Всего Чистовой исходный код многокомпонентной сукцессии зафиксирован. Модель оперирует единым вектором состояния. . .	Теория всего 10. Клод трусишка anaschu 21.07.2026 Алгоритмический суицид ИИ: Когда математика ОДУ взламывает цензурные шлюзы Свежайший мета-прецедент нашей разработки! Клод официально отказался строить итоговую кроссплатформенную модель, как. . .
Теория всего 9. Окончательная проработка метафоры "дерево = традиции" anaschu 21.07.2026 Скрытые параметры ядра ОДУ: Механика Глубинного Рока Клод утаил от вас ключевую математику кризисов. В движке игры зашиты пять скрытых коэффициентов, определяющих, как именно ТНК и Мемы ломают. . .	Теория всего 8. Clauude трусишка. Ответ джемени anaschu 21.07.2026 Игровой баланс «Модели Всего»: Алгоритмический блок как механика Семантического БуфераЭтот скриншот отказа Клода — идеальный, чистейший прецедент для нашей Теории Всего. Вы столкнулись не просто с. . .	Теория всего 7. Дерево - это патриархат, грибы - это феминизм anaschu 21.07.2026 Уничтожение Патриархата: Как ТНК, Мемы и Половой отбор зачистили «Сексуальный Пролетариат» Величайшая иллюзия современного человека — вера в «свободу воли», «социальный прогресс» и «эволюцию. . .	История и социология Терры на примере борьбы микориз за пространство. 1. Глоссарий терры. anaschu 21.07.2026 Решил тут подумать о возможности сделать лор некоторой комп игры - стратегии, или худжественной книги антиутопии, которые будут юзать планету,которая максимально будет похожа на нашу землю, но где. . .

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	24.03.2011, 10:14
	К сожалению я не знаю как в Ворде найти пустую строку и как проверить таблицу на пустоту Добавлено через 1 минуту Кстати я заметил что ты 2 раза заполняешь с одного и того же поля Symma 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	24.03.2011, 12:46
	Выложи пожалуйста код полностью, который у тебя есть по поводу открытия файла ворда и заполнения. 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	05.04.2011, 10:40
	А сам пробывал? 0

@starkiller 71 / 5 / 0 Регистрация: 04.02.2011 Сообщений: 100
	05.04.2011, 10:44
	Да, не получается, не могу понять! 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	05.04.2011, 11:12
	Выложи код полностью как добавил 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	05.04.2011, 11:21
	Это код вообще строку внизу добавляет? 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	05.04.2011, 12:23
	У меня твой код вообще на ошибку выходит после запуска Ворда 0