Главная страница
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.015 c
1-84372
X~Man
2003-06-13 20:29
2003.06.26
Сохранение


14-84609
race1
2003-06-09 13:11
2003.06.26
m->wm


9-83839
MRB_SPB
2003-01-16 12:49
2003.06.26
Геометрия


14-84539
kaif
2003-06-03 17:30
2003.06.26
Можно ли переименовывать таблицы?


7-84783
Serj
2003-04-14 20:26
2003.06.26
как общаться с LPT