Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.26;
Скачать: 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 вся ветка

Текущий архив: 2003.06.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.044 c
11-84048
Друмлин
2002-10-07 18:33
2003.06.26
Иконку в ListView


3-83903
RazorbladE
2003-06-03 11:52
2003.06.26
Отображение данных из SQL запроса dbExpress MySQL.


3-84006
abc
2003-05-30 16:05
2003.06.26
как вернуть TQuery в нормальный режим, после режима Edit??


14-84634
$Hak@L
2003-06-10 07:52
2003.06.26
Как работать с проксями???


4-84846
sucer
2003-04-17 17:12
2003.06.26
Проблема с HOOK