У меня уже мозги поехали...
В прошлых версях исходника прога хотя бы открывала документы всегда
без исключения когда я открывал их кнопкой Открыть.
Потом оказалось что если вставить абсолютно одинаковый код в
speedbutton и в простой button то на второй раз speedbutton начинает
выдавать olevarianterror, в то время как button продолжает открывать
их нормально. С этим не стал заморачиваться, пожертвовал интерфейсом ради работоспособности.
Но сейчас вообще не пойму в чем дело.
Кнопка Открыть работает ровно через раз. Один раз нормально
открывает, другой получаем invalid variant operation. Потом опять нормально, потом опять...
Если сначала закрыть открытый документ кнопкой Закрыть. И потом
открыть новый то ошибки не возникает.
И вот то что меня сводит с ума - это факт что в кнопке Открыть
вызывается метод кнопки Закрыть! Почему она не хочет работать таким
образом? Почему ее обязательно надо нажать руками?
Код:
//кнопка открыть
procedure TFrameXLT.Button4Click(Sender: TObject);
Var
MyBitmap: TBitmap;
begin
if OpenDialog1.Execute then
try
FilePath := OpenDialog1.FileName;
Button1Click(self);
OleContainer1.CreateObjectFromFile(FilePath, false);
ReadExcelFile;
RefreshDocClick(self);
OleContainer1.SetFocus;
lSourceDocument.Caption := 'Открытый документ: ' + FilePath;
lSourceDocument.Visible := true;
CanSave := false;
CanSave:=true;
ChangeSaveIcon;
except
on E: exception do
begin
lExcelError.Caption := 'Ошибка открытия документа: '+E.message;
lExcelError.Visible := true;
Timer1.Enabled:=true;
end;
end;
end;
//кнопка закрыть
procedure TFrameXLT.Button1Click(Sender: TObject);
var
i: Integer;
begin
if (OleContainer1.State=osEmpty) or (OleContainer1.State=osLoaded) then exit;
AskSaveDocument;
//OleContainer1.OleObject.DisplayAlerts:=False;
OleContainer1.SetFocus;
ExApp.ActiveWorkbook.close;
if not VarIsEmpty(ExApp) then
begin
ExApp.Quit;
// FreeAndNil(ExApp);
end;
OleContainer1.Close;
OleContainer1.DestroyObject;
lSourceDocument.Visible := false;
ExApp := Unassigned;
ExBook := Unassigned;
ExSheet := Unassigned;
ExURng := Unassigned;
for i:=1 to SGRepeats.RowCount-1 do
SGRepeats.Rows[i].Clear;
for i:=1 to SGData.RowCount-1 do
SGData.Rows[i].Clear;
for i:=1 to SGAutoInc.RowCount-1 do
SGAutoInc.Rows[i].Clear;
EditCommonAdr.Text:='';
SetCommonAddress.Enabled:=false;
ChResume.Checked:=false;
end;
procedure TFrameXLT.ReadExcelFile;
begin
try
OleContainer1.SetFocus;
ExApp := GetActiveOleObject('excel.application');
ExBook := ExApp.ActiveWorkbook;
ExSheet := ExBook.ActiveSheet;
ExURng := ExSheet.UsedRange; // используемый диапазон ячеек
except
on E: exception do
begin
lExcelError.Caption := 'Ошибка чтения документа: '+E.message;
lExcelError.Visible := true;
Timer1.Enabled:=true;
end;
end;
end;
Ошибка invalid variant operation на строчке
ExApp := GetActiveOleObject('excel.application');
Как такое возможно?((
Подскажите что-нибудь.