Хорошо, попробую на работе.
А вот как раз сейчас столкнулся ещё с одной проблемой того же рода.
Простой код - надо было копинуть данные с одного листа Excel'я в новую книгу.
| Код |
type
TForm1 = class(TForm)
Button1: TButton;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
Excel:variant;
end;
.....
if not VarIsEmpty(Excel) then
Excel:=null;
try
Excel:=CreateOleObject('Excel.Application');
Excel.Visible:=False;
Excel.ScreenUpdating := FALSE;
except
Exit;
end;
OpenDialog1.Execute;
if OpenDialog1.FileName='' then
exit;
Excel.Workbooks.Open(OpenDialog1.FileName);
Excel.Workbooks.Add;
........
Excel.Workbooks[1].Close;
Excel.Visible:=true;
Excel:=unassigned; // разные комбинации всех вариантов
Excel.Quit;// разные комбинации всех вариантов
Excel:=0;// разные комбинации всех вариантов
|
посдение 3 строчки хоть по отдельности, хоть все вместе ставь, но итог один - после работы программы Excel становтися видимым....точнее ПОЛУвидимым, видна только шапка, остального нет. Некое полуподвиснутое состояние Excel'я. Можно сохранить файл и заново открыть. Будет норм.
Но сам программно Excel не отображается нормально ((. Этот глюк и на моём компьютере, про работу молчу даже  .
почему так?
P.S. Хотя у меня стоит Vista SP2 x64,....
|
