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

Вниз

И снова Excel   Найти похожие ветки 

← →
edicon   (2003-05-19 23:29) [0]

Уважаемые мастера! Есть одна маленькая,
но существенная мелочь:

const
xlLCID = LOCALE_USER_DEFAULT;
var
OVStr,
xlApp:OleVariant;
begin
xlApp:=CreateOleObject("Excel.Application");
OVStr:=ExtractFilePath(Application.ExeName)+"1.xls";
xlApp.WorkBooks.Open(OVStr);
xlApp.Cells[6,2].value:=16.678;
OVStr:=ExtractFilePath(Application.ExeName)+"3.xls";
xlApp.ActiveWorkBook.SaveAs(OVStr);
До этого момента все хорошо, но хочется показать
пользователю, что кнопка в программе не просто
чтобы на нее жали...
Пишу так: XLApp.Visible[0] := True; // прога виснет...
как подсказали пишу:
xlApp.Visible[xlLCID] := true; // все равно виснет...

xlApp.Quit;

end;
Ошибка такая: Операции с семействами не поддерживаются


Спасите, помогите... чего ей еще надо???????????

---

← →
Babay   (2003-05-20 06:20) [1]

У меня всегда работало так
xlApp.Visible := true;
я так понимаю надо эксель показать?....

---

← →
AbrosimovA   (2003-05-28 15:28) [2]

Babay прав.

---

← →
asafr   (2003-05-28 16:01) [3]

Т.к. у тебя ХР, то используй в качестве xlLCID значение константы LOCALE_USER_DEFAULT

const xlLCID = LOCALE_USER_DEFAULT
..............
..............
If Assigned(xlApp) then
xlApp.Visible[xlLCID] := true;

---

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

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

Наверх

Память: 0.44 MB
Время: 0.009 c