| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Работа с Excel с помощью ExcelApplication [D5, WinXP]

thvfrjd ©   (2005-01-14 12:55:00) 

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; - не работает

---

Igor_thief   (2005-01-14 16:21:00) [1]

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

---

Igor_thief   (2005-01-14 16:20:00) [2]

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

---

asafr   (2005-01-14 14:37:00) [3]


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>

---

thvfrjd   (2005-01-14 13:48:00) [4]

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

---

asafr   (2005-01-14 13:43:00) [5]

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

---

thvfrjd   (2005-01-14 13:35:00) [6]

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

---

asafr   (2005-01-14 13:25:00) [7]

Кстати

ShablonFile      : OleVariant;
ShablonFile  соответствует твоему 'D:\pr2005\nas.xlt'

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

---

asafr   (2005-01-14 13:22:00) [8]

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

---

asafr   (2005-01-14 13:21:00) [9]


  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;

---

thvfrjd   (2005-01-14 13:16:00) [10]

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

---

Наверх