Скачать: CL | DM;

Ошибка при открытии 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]

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

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

---

← →
Palladin ©   (2009-07-25 14:36) [6]

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

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.005 c