Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для Netscaper

Пользователь


Сообщения: 84
Благодарности: 0

Профиль | Отправить PM | Цитировать


Тогда ты делай по-другому:
Код: Выделить весь код
uses ... ComObj, Excel97, Word97...; 
const 
  xlLCID = LOCALE_USER_DEFAULT; 
 
procedure TForm1.Button1Click(Sender: TObject); 
var
Excel : Excel97._Application; 
Word : Word97._Application;
Workbook : _Workbook; 
begin 
  Excel := CreateComObject(CLASS_ExcelApplication) as Excel97._Application; 
  Word := CreateComObject(CLASS_WordApplication) as Word97._Application;
  Excel.Workbooks.Add(EmptyParam, xlLCID); 
  Word....

[s]Исправлено: Netscaper, 15:02 29-10-2004[/s]


[s]Исправлено: Netscaper, 15:04 29-10-2004[/s]

Отправлено: 15:00, 29-10-2004 | #10