Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Экспорт из Paradox в Word [D5, Paradox]

Fuelfire © (2003-06-03 16:16:00)
Доброго времени суток! Столкнулся с такой проблемой: есть главное меню. В нем пункт "Сохранить". В диалоговом окне надо выбрать расширение (xls или doc), указать имя файла и путь...
В эксель все сбрасывается нормально..С Вордом какая-то заморочка: не могу закрыть и сохранить файл программно.
В экселе, например, это делается так:
O.ActiveWorkbook.Close(true,String(SaveDialog1.FileName));
O:=null;
В ворде пытаюсь сделать по аналогии:
O.ActiveDocument.Close(true,String(SaveDialog1.FileName));
Но получаю ошибку....И еще: как различать, какое расширение выбрано для запуска соответствующей функции эскпортирования и на какое событие надо вешать? Может кто-то делал подобное? Заранее благодарен...

Соловьев (2003-06-03 16:33:00) [1]

> Fuelfire (03.06.03 16:29)

я когда что-то такое делаю, то запускаю Word(Excel) и там запускаю запись макроса. Потом делаю что надо. Останавливаю запись. И смотрю что мне там написал VB. И потом это переношу в Delphi. Правда есть нюансы и тут. Но в большенстве случаев прокатывает.

Fuelfire (2003-06-03 16:29:00) [2]
Мне надо перенести данные из таблицы Paradox в Word.
Ошибка: EOLEError with message "Method "ActiveDocuments" not supported by automation object".
У меня написаны две функции экспортирования, которые я вызываю при сохранении файла (в зависимости от расширения):
procedure TForm8.WordExp(Sender: TObject);
begin
O:=CreateOleObject("Word.Application");
O.DisplayAlerts:=false;
O.Visible:=False;
O.Documents.Add;
N:=1;
while not DataModule2.Table.eof do
begin
O.Selection.TypeParagraph;
O.Selection.TypeText(DataModule2.Games.FieldByName("Name").AsString);
DataModule2.Table.Next;
Inc(N);
end;
O.ActiveDocuments.Close(true,String(SaveDialog1.FileName));
O:=null;
end;

NickBat (2003-06-03 16:21:00) [3]
Какую ошибку? Зачем файл Парадокса (таблица) экспортировать в текстовый редактор Ворд? Какой функции экспортирования? Какой программы?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »