Quantcast
Channel: Всички форуми
Viewing all articles
Browse latest Browse all 5785

Редактиране на Excel файл чрез Delphi 2011 XE

$
0
0
Написха следния код, но за мое съжаление нито дава грешка, нито променя Excel файла (значи нищо не прави):
  try
	XLS_Book := GetActiveOleObject('Excel.Application');
  except
	try
	  // ако няма инстанция, опит да се създаде нов Excel обект
	  XLS_Book := CreateOleObject('Excel.Application');
	except
	  ShowMessage('Не може да се стартира Ексел / Excel не е инсталиран ?');
	  Exit;
	end;
  end;
  S := '1.xls';
  XLS_Book.Workbooks.Open(S);
   IR := GetLastLine(1);
  Edit1.Text := IntToStr(IR);
  for I := 1 to IR do
  begin
	if (XLS_Book.Cells[I, 1].Value = Edit_A_.Text) then
	  XLS_Book.Cells[I, 2].Value := Variant(Edit_B_.Text);
  end;
  XLS_Book.Workbooks[1].Save;
  XLS_Book.Workbooks[1].Close;

Viewing all articles
Browse latest Browse all 5785


<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>