|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Как прочитать данные из ячейки таблицы Excel
Столкнулся с проблемой, при написании программы, пытаюсь считать данный из ячеек Excell табл. выводит ошибку
"Project Projecto.exe raised exception class EVariantInvalidOpError with nessage "Invalid variant operation". Process stopped. Use Step or Run to continue" Вот текст процедуры Код:
procedure TFm1.btn1Click(Sender: TObject); var i,j,k,n,m: integer; s: string; begin Tab:=CreateOleObject('Excel.Application'); {Запуск приложения Excel} Tab.Visible:=true; GetDir(0,dir); Tab.Workbooks.Open(dir+'\Graph.xls',0,True); s:=Tab.WorkSheets[1].Name; memo1.text:=s[1]; for i:=1 to Tab.Sheets.count do //*перебор по листам*// begin s:=Tab.WorkSheets[i].Name; memo1.text:=memo1.text+s; n:=StrToInt(s[1]); memo1.text:=memo1.text+inttostr(n); n:=i; k:=7; j:=2; {while Tab.WorkSheets.Item[i].Cells[k,j]<>'' do //*перебор по строкам*// begin m:=1; Pred[n,m].Name:=Tab.WorkSheets.Item[i].Cells[k,2]; Pred[n,m].Prp:=Tab.WorkSheets.Item[i].Cells[k+1,2]; if Tab.WorkSheets.Item[i].Cells[k,3]='лекции'then Pred[n,m].Urok:=2; if Tab.WorkSheets.Item[i].Cells[k,3]='п/з'then Pred[n,m].Urok:=1; if Tab.WorkSheets.Item[i].Cells[k,3]='лаб.' then Pred[n,m].Urok:=0; Pred[n,m].Plan:=StrToInt(Tab.WorkSheets.Item[i].Cells[k,4]); j:=7; while (s<>'экзамен')and(s<>'зачет')and(s<>'нет') do //*перебор по столбцам *// begin s:=Tab.WorkSheets.Item[i].Cells[k,j]; Pred[n,m].God[j]:=StrToInt(s); memo1.lines.add(s); j:=j+1; m:=m+1; end; if not odd(k) then inc(k) else k:=k+2; j:=2; end;} end; Tab.Application.Quit; Tab.DisplayAlerts:=False; Tab:= UnAssigned; end; Именно в тексте, который заключен в фигурные скобки и находиться ошибка. Установлен Borland Delphi 7 и Office 2010 Хотел также поинтересоваться, а как узнать о том что ячейка является последней заполненной |