Ошибка при открытии Excel шаблона из под Delphi

← →
Kiminchua (2009-07-24 23:22) [0]

Здравствуйте.
Компиляцию нижеприведенный код проходит без проблем, а после открытия шаблона выдает ошибку.
XLApp.Workbooks.Add(ExtractFilePath(ParamStr(0))+"1.xlt",0); Workbooks[1].WorkSheets[1].Activate; while not EOF(f) do begin readln(f, s1);// прочитать строку из файла Index1:=Pos(#32"ID=",S1)+4; Index2:=PosEx(";",S1,Index1-1); sID:=Copy(S1,Index1,Index2-Index1+1); strNum:=""; index:=3; If sID="1ZG**011001;" Then //если в строке sID begin readln(f, buf); //добавляем еще одну строку for i:=pos("P48",buf)+4 to Length(buf) do //находим P48 begin if (buf[i]<>",") and (buf[i]<>";") then strnum:=strnum+buf[i] else begin XLApp.WorkBooks[1].WorkSheets[1].Cells[index,3]:=strnum; //добавляем strnum:=""; //в Excel inc(index); end; if buf[i]=";" then Break; end; end;
Ошибка: Project ... raised exception class EVariantInvalidOpError with message "Invalid variant operation".
Помогите пожалуйста.

← →
KilkennyCat © (2009-07-25 00:37) [1]

не при выполнении ли первых двух строчек вылазеит? и делфя-то какая?

← →
Игорь Шевченко © (2009-07-25 01:04) [2]

> Помогите пожалуйста.

научить пользоваться отладчиком ?

← →
Kiminchua (2009-07-25 13:27) [3]

> не при выполнении ли первых двух строчек вылазеит? и делфя-
> то какая?

Delphi7. Именно при выполнении первых двух строк.

← →
oldman © (2009-07-25 13:32) [4]

> Именно при выполнении первых двух строк.

Не бывает.
Либо дудочка, либо кувшинчик. Либо 1 либо 2.
Читай [2].

← →
Kiminchua (2009-07-25 14:28) [5]

> научить пользоваться отладчиком ?

Если можешь, учиться я люблю, тем более от профессионалов.

Встаем курсором на строчку с буквами
readln(f, s1);// прочитать строку из файла
Нажимаем F5
Фон строчки в IDE должен стать красным
Нажимаем F9
Совершаем действия приводящие к исполнению данного кода
Если действия совершены верно и привели куда нужно, то перед глазными яблоками должена возникнуть IDE с, выделеной синим фоном, строчкой
readln(f, s1);// прочитать строку из файла
Далее нажимаем F8 до посинения или до возникновения ошибки.
Если возникло посинение - вы наткнулись на бесконечный цикл.
Если возникла ошибка - приводим в этой ветеку конкретную строчку, на которой возникает ошибка.
Если ошибка не возникла - Вы всех нас жестоко обманули. Возмещаем моральный ущерб всем учавствующим.

← →
Kiminchua (2009-07-25 14:50) [7]

Друзья спасибо всем за помощь. Все получилось. Вы лучшие и я рад что вы всем помогаете и что не возмущаетесь за порой бесталковые вопросы.

Ошибка при открытии Excel шаблона из под Delphi Найти похожие ветки