Вниз
Скачать: CL | DM;

Экспорт из Paradox в Word   Найти похожие ветки 

← →
Fuelfire   (2003-06-03 16:16) [0]

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


← →
NickBat ©   (2003-06-03 16:21) [1]

Какую ошибку? Зачем файл Парадокса (таблица) экспортировать в текстовый редактор Ворд? Какой функции экспортирования? Какой программы?


← →
Fuelfire   (2003-06-03 16:29) [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;


← →
Соловьев ©   (2003-06-03 16:33) [3]


> Fuelfire (03.06.03 16:29)

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.018 c
3-83957
Man
2003-06-04 14:03
2003.06.26
как научить датасет правильно различать типы полей


8-84463
Salavat
2003-03-05 15:31
2003.06.26
И все-таки об использовании сканера


14-84729
McSimm
2003-06-05 16:41
2003.06.26
Внимание. Вирус - подделка на рассылку сайта !


3-83927
mrcat
2003-06-03 16:28
2003.06.26
Ошиби данных при записи через TBlobStream


6-84493
LOX
2003-04-20 19:49
2003.06.26
Код компонента TserverSocket




   Наверх