Выгрузка данных в 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 · 05.04.2011, 12:41

Вот нашёл и переделал открывает без ошибок

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
 Variant vVarApp,vVarDocs,vVarDoc,vVarTable,vVarAppWord,vVarCell,v,Doc;
 bool fStart;
if(!fStart)
 {
  try
  {
   vVarApp=CreateOleObject("Word.Application");
   fStart=true;
  }
  catch(...)
  {
   MessageBox(0, "Ошибка при открытии Word",
                 "Ошибка", MB_OK);
  return;
  }
 }
 //Сделаем приложение видимым
 vVarApp.OlePropertySet("Visible",true);
 //Переменной vVarDoc присваивается значение Documents - свойство объекта Word.Application, содежащее набор рабочих документов
 vVarDoc=vVarApp.OlePropertyGet("Documents");
 //Загружаем в Word шаблон документа
 vVarDoc.OleProcedure("Open", "C:\\word\\документ.doc");
 //Работать будем с последним нами созданным документом (Item = 1)
 vVarDoc=vVarDoc.OleFunction("Item",1);
 //Смотреть будем тоже на последний созданный документ т.е активируем его.
 vVarDoc.OleProcedure("Activate");

Ща подумаю над таблицей

@starkiller · 06.04.2011, 10:31

У меня вот этот код тоже без ошибок открывает word, и даже первую строку заполняет, а как дальше не знаю!

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++;

Ошибка открытия была из-за этого

C++
1
vVarAppWord.OlePropertyGet("Selection").OleProcedure("InsertRowsBelow",1);

Добавлено через 21 час 43 минуты
Sasha, ну что, есть какие-нибудь идеи?!

@Zarthy · 30.05.2016, 12:18

Подскажите пожалуйста, как мне быть.
Builder ругается на эту строчку кода:

C++
1
v=Word.OlePropertyGet("Selection").OlePropertyGet("Font");

Ошибка: E2108 Improper use of typedef 'Word'

@volvo · 30.05.2016, 14:20

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

как мне быть.

Поменять имя переменной. В примере выше, скажем, переменная называлась vVarApp, и никаких проблем подобного рода не было. Word - это typedef:

C++
1
    typedef unsigned short       Word;             // 0..65535

, отсюда и проблема. Не надо использовать идентификаторы, совпадающие с уже существующими.

Новые блоги и статьи Все статьи Все блоги /
сукцессия 33. открытые вопросы от клауде anaschu 19.07.2026 "Что накопилось за эту часть А — тринадцать правок, из которых шесть пришли из ваших вопросов и каждая оказалась реальной ошибкой, а не калибровкой: односторонний симбиоз, отсутствующий листопад,. . .	32 сукцессия anaschu 19.07.2026 сукцессия 28‑мерное ядро стабилизировано Коллеги, фиксирую разбор инженерных правок и их изоморфную проекцию на экономику, меметику и половой отбор. Модель теперь не «подкручивает» сходимость —. . .	сукцессия 31: модель микоризы - это модель ещё нескольких явлений, социальных и экономических anaschu 18.07.2026 Теория «Всего»: апдейт v1. 1. 2 — 28‑мерное ядро стабилизировано Коллеги, фиксирую разбор инженерных правок и их изоморфную проекцию на экономику, меметику и половой отбор. Модель теперь не. . .	сукцессия 30. Массив проверяющих друг друга моделей anaschu 18.07.2026 Архитектура сети взаимопроверяющих моделей микоризной сукцессии (v2. 0) Развитие тензорного ОДУ-ядра и создание кросс-платформенного калибровочного полигона Уважаемые коллеги! В продолжение. . .
Грибы - это женщины, деревья - это мужчины. Анти инь янь для союза мужчины и женщины. anaschu 18.07.2026 ГЛАВНЫЙ НАУЧНО-ФИЛОСОФСКИЙ ВЫВОД: Сексуально-Репродуктивный Капитализм против Государства Моногамии Коллеги, мы вышли на финишную прямую 20-мерного ОДУ-моделирования вековой сукцессии (ветка. . .	Текстовый слайдер с нумерацией страниц и кроссбраузерность. russiannick 18.07.2026 Один мой друг написал текстовый слайдер с нумерацией страниц. Сегодня я расскажу как он умудрился подружить его с кроссбраузерностью. Очевидно сложно угодить с шириной каждому браузеру. Один крадет. . .	Грибы - это мемы, дерево - это человек. Применение микоризной модели к теории меметики Докинза. anaschu 18.07.2026 Меметический изоморфизм теории «всего»: Грибная сукцессия как модель эволюции идей Докинза Базовый код системы ОДУ микоризной сукцессии описывает не просто биологию, а универсальную. . .	Грибы - это корпорации, деревья - это государства. Механизм массонского захвата власти anaschu 18.07.2026 Макроэкономический изоморфизм теории «всего»: Грибная сукцессия как модель транснационального капитализма Базовый код системы ОДУ микоризной сукцессии описывает не просто биологию, а. . .