| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Ошибка при открытии Excel шаблона из под Delphi [D7, XP]

Kiminchua ©   (2009-07-24 23:22:00) 

Здравствуйте.
Компиляцию нижеприведенный код проходит без проблем, а после открытия шаблона выдает ошибку.

 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'.
Помогите пожалуйста.

---

Kiminchua   (2009-07-25 14:50:00) [1]

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

---

Palladin   (2009-07-25 14:36:00) [2]

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

---

Kiminchua   (2009-07-25 14:28:00) [3]

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

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

---

oldman   (2009-07-25 13:32:00) [4]

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


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

---

Kiminchua   (2009-07-25 13:27:00) [5]

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

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

---

Игорь Шевченко   (2009-07-25 01:04:00) [6]

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


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

---

KilkennyCat   (2009-07-25 00:37:00) [7]

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

---

Наверх