XL.ConnectKind := ckRunningInstance;
XL.Connect;
XL.AutoQuit := False;
XL.Interactive[lcid] := true;
XL.UserControl := True;
XL.ScreenUpdating[lcid] := False;
for i:=1 to XL.Workbooks.Count do
begin
if XL.Workbooks.Item.Name=oSettings.BookName then
begin
str:='yes';
break;
end
else str:='fail!'
end;
Delphi 7 + TExcelApplication
Необходимо выбрать книгу по имени книги.
Код:
oSettings.BookName - строка.
XL.Workbooks.Count почему-то все время равен 0.
Под отладчиком XL.Workbooks.Item.Name все время "Expression illegal in evaluator". Открыты две книги Excel.
Подскажите, что не так?
Код:
Код:
oSettings.BookName - строка.
XL.Workbooks.Count почему-то все время равен 0.
Под отладчиком XL.Workbooks.Item.Name все время "Expression illegal in evaluator". Открыты две книги Excel.
Подскажите, что не так?
Если .Count = 0 без других ошибок, значит так оно и есть. Проверяйте к какому экземпляру коннектится XL. И Item[] вроде с 0 индексируются.