Закладки в word, открытие excel-файла

@prazdno · Регистрация: 05.06.2015

1. Пытаюсь заполнить вордовский файл, используя закладки( то есть в готовом файле, напротив возле "ФИО" написать ФИО, например), код написал вот такой, на выделенной строчке выдает ошибку. В чем может быть дело? Находил похожие решения на форумах, у всех, вроде, работало

C++

WordApp=CreateOleObject("Word.Application");
  Docs=WordApp.OlePropertyGet("Documents");
  Docs.OleProcedure("Add", "C:\\z.doc");
  Doc=Docs.OleFunction("Item",1);
  Doc.OleProcedure("Activate");
  WordApp.OlePropertySet("Visible",true);
  Bookmarks=Doc.OlePropertyGet("Bookmarks");
  Bookmark=vBookmarks.OleFunction("Item","ФИО");//вот на этой
  Bookmark.OlePropertyGet("Range").OlePropertySet("Text","текст");

2. Как можно открыть файл из текущей директории? Пробовал по-разному, типы String и AnsiString, не получается никак, на все варианты ругается.

C++

1 2	vVarBooks.OleProcedure("Open", curdir.c_str()); vVarBooks.OleProcedure("Open", StringToOleStr(curdir));

@D1973 · 18.06.2015, 11:38

C++

1 2	Bookmark=vBookmarks.OleFunction("Item",WideString("ФИО")); Bookmark.OlePropertyGet("Range").OlePropertySet("Text",WideString("текст"));

Добавлено через 4 минуты
По второму вопросу

C++

1 2	String currdir = ExtractFilePath(Application->ExeName) + "Имя твоего файла"; vVarBooks.OleProcedure("Open", WideString(currdir));

@volvo · 18.06.2015, 11:40

1)

C++

    WordApp = CreateOleObject("Word.Application");
    Docs = WordApp.OlePropertyGet("Documents");
    Docs.OleProcedure("Add", WideString("D:\\test\\01.doc"));
    Doc = Docs.OleFunction("Item", 1);
    Doc.OleProcedure("Activate");
    WordApp.OlePropertySet("Visible", true);
    vBookmarks = Doc.OlePropertyGet("Bookmarks");
    Bookmark = vBookmarks.OleFunction("Item", WideString(L"ФИО")); // вот на этой
    Bookmark.OlePropertyGet("Range").OlePropertySet("Text", WideString(L"текст"));

Никаких вылетов

2) Как заполняется curdir?

Добавлено через 59 секунд

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

WideString("текст")

Не привязывайся к русскому. Это НЕ ЕДИНСТВЕННЫЙ язык в мире, как бы вам этого не хотелось.

@D1973 · 18.06.2015, 11:47

Точно, я всегда про этот L забываю, пока компилятор не обругает...

@prazdno · 18.06.2015, 12:03 **[ТС]**

Никаких вылетов

Попробовал с WideString, ничего не изменилось. Ошибка "Project raised exception class EOleSysError with message "Ошибка"".

2) Как заполняется curdir?

Пробовал так:
String curdir = GetCurrentDir();
String curdir1=curdir + "z.doc";

И как D1973 посоветовал пробовал, тоже не получается.

@D1973 · 18.06.2015, 12:11

Показывай код. Если делал так, как показано - проблем быть не должно.

@prazdno · 18.06.2015, 12:13 **[ТС]**

Показывай код. Если делал так, как показано - проблем быть не должно.

Вот проект

@prazdno · 18.06.2015, 12:18 **[ТС]**

Там кое-где вместо WideString StringToOleStr, это я уже перебирал варианты

@D1973 · 18.06.2015, 13:21

Вот что у тебя в программе написано

C++

1	String currdir = ExtractFilePath(Application->ExeName) + "bd.xls";

Ты понимаешь, что эта запись делает? Берет путь к исполняемому файлу твоего проекта (project1.exe) и добавляет к этому пути имя екселевского файла. Все бы ничего, но
1. Где у тебя находится ехе-шник? Правильно, в папке Debug. А где екселевский файл? Да где угодно, но только не там. Положи их рядом с друг другом
2. Ты пробуешь открывать файл bd.xls. А какой файл у тебя реально? Правильно, bd.xlsх
Вот исправь эти 2 косяка, и твой обработчик будет выглядеть так

C++

if(!fStart)
 {
  try
  {
   vVarApp=CreateOleObject("Excel.Application");
   fStart=true;
  }
  catch(...)
  {
   MessageBox(0, "Ошибка при открытии сервера Excel", "Ошибка", MB_OK);
  return;
  }
 }
vVarApp.OlePropertySet("Visible",true);
vVarBooks = vVarApp.OlePropertyGet("Workbooks");
String currdir = ExtractFilePath(Application->ExeName) + "bd.xlsх";
vVarBooks.OleProcedure("Open", WideString(currdir));
vVarBook   = vVarBooks.OlePropertyGet("Item",1);
vVarSheets = vVarBook.OlePropertyGet("Worksheets");
vVarSheet  = vVarSheets.OlePropertyGet("Item",1);
vVarSheet.OleProcedure("Activate");
 
for(int i=0; i<50; i++)
{
vVarCell=vVarSheet.OlePropertyGet("Cells").OlePropertyGet("Item",10, 1+i);
vVarCell.OlePropertySet("Value",WideString(Edit1->Text));
}

Добавлено через 1 минуту
и да, зачем там у тебя объявлено Variant v, если эта v нигде не используется?

@prazdno · 18.06.2015, 13:46 **[ТС]**

Спасибо, заработало. Невнимательность меня убьет.

А что с другой проблемой?

и да, зачем там у тебя объявлено Variant v, если эта v нигде не используется?

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

@D1973 · 18.06.2015, 14:37

1. Как и в предыдущем случае, документ должен лежать рядом с ехе-шником
2. В самом документе у тебя нет никаких закладок. Я добавил в него закладку с именем z1 (имена закладок лучше делать английскими - проблем меньше будет) рядом с текстом ФИО. Текст закладки берется из Едит1
Вот такой вот код

C++

WordApp=CreateOleObject("Word.Application");
Document=WordApp.OlePropertyGet("Documents");
String currdir = ExtractFilePath(Application->ExeName) + "z.doc";
Document.OleProcedure("Add", WideString(currdir));
Doc=Document.OleFunction("Item",1);
Doc.OleProcedure("Activate");
WordApp.OlePropertySet("Visible",true);
vBookmarks=Doc.OlePropertyGet("Bookmarks");
Bookmark = vBookmarks.OleFunction("Item", WideString(L"z1"));
Bookmark.OlePropertyGet("Range").OlePropertySet("Text", WideString(Edit1->Text));

@D1973 Модератор 6566 / 4204 / 1817 Регистрация: 21.01.2014 Сообщений: 17,628 Записей в блоге: 3
	18.06.2015, 11:47	4
	Точно, я всегда про этот L забываю, пока компилятор не обругает... 0

@prazdno 0 / 0 / 0 Регистрация: 05.06.2015 Сообщений: 9
	18.06.2015, 12:03 [ТС]	5
	Никаких вылетов Попробовал с WideString, ничего не изменилось. Ошибка "Project raised exception class EOleSysError with message "Ошибка"". 2) Как заполняется curdir? Пробовал так: String curdir = GetCurrentDir(); String curdir1=curdir + "z.doc"; И как D1973 посоветовал пробовал, тоже не получается. 0

@D1973 Модератор 6566 / 4204 / 1817 Регистрация: 21.01.2014 Сообщений: 17,628 Записей в блоге: 3
	18.06.2015, 12:11	6
	Показывай код. Если делал так, как показано - проблем быть не должно. 0

@prazdno 0 / 0 / 0 Регистрация: 05.06.2015 Сообщений: 9
	18.06.2015, 12:18 [ТС]	8
	Там кое-где вместо WideString StringToOleStr, это я уже перебирал варианты 0

@prazdno 0 / 0 / 0 Регистрация: 05.06.2015 Сообщений: 9
	18.06.2015, 13:46 [ТС]	10
	Спасибо, заработало. Невнимательность меня убьет. А что с другой проблемой? и да, зачем там у тебя объявлено Variant v, если эта v нигде не используется? Использовалась, но потом убрал. Проект для отлаживания некоторых вещей просто. 0