Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Excel и ошибка invalid variant operation

Автор: offline 21.2.2017, 14:05

Добрый день! Перешел с Delphi 7 на Delphi XE4-
Открыл свой старый проект по работе с Excel файлом.
В Delphi 7 все работало, а вот в Delphi XE4 при работе с файлом выдает ошибку - invalid variant operation

Уже битый час сижу извращаюсь над котом, а все в пустую. подскажите, как быть.
Нужно подключит файл Экселя, прочитать значение из ячейки В2 если оно не занято, то вставить туда текст, если оно занято, то проверить В3 и т.д.
Код нажимаешь на кнопку 1 раз, программа находит пустую ячейку и вставляет туда текст, а вот когда нажимаешь на кнопку второй раз выдает ошибку.
подскажите, что не так или в Delphi XE4 нужно по другому работать?

Код


var
  excelFail:Variant;
  line : string;
begin
if PaneExcel.Tag=0
then begin
  excelFail := CreateOleObject('Excel.Application');
  excelFail.Workbooks.Open(MainPath + 'kniga.xls');
  excelFail.Visible := True;
  PaneExcel.Tag:=1;
end;
line:='2';
While (trim(excelFail.Range['B'+line])<>'') do
    line := IntToStr(StrToInt(line)+1);
excelFail.Range['B'+line]:='kykyky';

ВСЕМ СПАСИБО!!! ВОПРОС СНЯТ, ПОТЕРЯЛ ГЛОБАЛЬНУЮ ПЕРЕМЕННУЮ smile