И снова 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 прав.

Т.к. у тебя ХР, то используй в качестве xlLCID значение константы LOCALE_USER_DEFAULT const xlLCID = LOCALE_USER_DEFAULT .............. .............. If Assigned(xlApp) then xlApp.Visible[xlLCID] := true;

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