Форум: "Основная";
Текущий архив: 2005.01.30;
Скачать: [xml.tar.bz2];

Вниз

Работа с 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 из винды а потом запустить прогу то все правильно работает

---

← →
asafr ©   (2005-01-14 14:37) [8]


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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.01.30;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.046 c