Работа с Excel с помощью ExcelApplication

← →
thvfrjd (2005-01-14 12:55) [0]

ExcelApplication1.Connect;
Excelapplication1.Workbooks.Open("D:\pr2005\nas.xlt", EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, True, 0)

Подскажите пожалуйста как сделать приложение Excel видимым
ExcelApplication1.Application.Visible:=true; - не работает

← →
thvfrjd (2005-01-14 13:16) [1]

ну может ответит кто нить все таки

← →
asafr © (2005-01-14 13:21) [2]

ExcelApplication.AutoConnect:=True; ExcelApplication.Workbooks.Open(ShablonFile, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, xILCID); {Связываем комплненту с существующим интерфейсом } ExcelApplication.ConnectKind:=ckAttachToInterface; ExcelApplication.AutoQuit:=False; ExcelWorkBook.ConnectTo(ExcelApplication.ActiveWorkbook); ExcelApplication.EnableEvents:=False; //Отключение Excel от реакции на события ExcelWorkBook.Activate; {Результат функции:} Result:=ShablonFile;

← →
asafr © (2005-01-14 13:22) [3]

{Результат функции:}
Result:=ShablonFile - на это не обращай внимания.
Просто тупо скопировал кусок работающего кода

← →
asafr © (2005-01-14 13:25) [4]

Кстати
ShablonFile : OleVariant;
ShablonFile соответствует твоему "D:\pr2005\nas.xlt"

Да и к тому же у тебя расширение *.xlt вместо *.xls...
Потому так и получается, скорее всего

← →
thvfrjd (2005-01-14 13:35) [5]

что то не работает само приложение запускается но оно не видимо, а как вообще свойство ExcelApplication1.Application.Visible надо устанавливать такм какой то тип не совсем понятный

← →
asafr © (2005-01-14 13:43) [6]

Запусти nas.xlt не из Дельфи, а из Виндов и посмотри, что оно делает....

← →
thvfrjd (2005-01-14 13:48) [7]

да ничего не делает просто пустой файл без макросов без всего просто я сохранил его в качестве шаблона, мне именно шаблон открыть надо. Ксати если перед этим открыть сам excel из винды а потом запустить прогу то все правильно работает

procedure TForm1.Button1Click(Sender: TObject); const xILCID=LOCAlE_USER_DEFAULT; begin ExcelApplication1.AutoConnect:=True; Excelapplication1.Workbooks.Open("D:\pr2005\nas.xlt", EmptyParam, EmptyParam,EmptyParam, EmptyParam, EmptyParam, EmptyParam,EmptyParam, EmptyParam, EmptyParam, EmptyParam,EmptyParam, True, xILCID); ExcelApplication1.AutoQuit:=False; ExcelApplication1.ConnectKind :=ckAttachToInterface; ExcelApplication1.Application.Visible[xILCID]:=true end;CODE>

← →
Igor_thief (2005-01-14 16:20) [9]

thvfrjd (14.01.05 12:55)
ExcelApplication1.Application.Visible:=true; - не работает
Надо так ExcelApplication1.Application.Visible[0]:=true;

← →
Igor_thief (2005-01-14 16:21) [10]

thvfrjd (14.01.05 12:55)
Вместо WorkBooks.Open можно воспользоваться WorkBooks.Add

Работа с Excel с помощью ExcelApplication Найти похожие ветки