Delphi + Excel

  • Автор темы erkanat79
  • Дата начала
Статус
Закрыто для дальнейших ответов.
E

erkanat79

#1
Добрый день! у меня возникла такая проблема нужно переделать отчет, исходников нет, было решение при формирование отчета переделать форму отчета (отчет формируется в Excel). я делаю так
uses Excel2000.pas
procedure TForm1.Button1Click(Sender: TObject);
var LCID: integer;
Rows , Columns:integer; xlDown:eek:levariant;
begin
LCID := GetUserDefaultLCID;
myexcel.Visible[LCID] := true;
myexcel.ActiveWindow.OnWindow:='budr21.xls';
myexcel.Range['A1', 'A1'].Select;
myexcel.Rows.Insert(xlDown);
end;
пытаюсь найти открытый файл далее мне нужно в первой строке добавить ещё 2-е пустые строки, у меня это не получаеться. помогите!
Заранее огромное спасибо!
PS Delphi 7 +Excel
 
E

erkanat79

#2
Добрый день! Найдено решение, может кому ещё поможет:
xllist.ConnectTo(XL.ActiveSheet as _Worksheet);
xllist.Range['1:2',EmptyParam].EntireRow.Insert(xlDown);
xllist.Range['D1',EmptyParam].Select;
 

morpheus

скриптописец
07.08.2006
3 915
1
#3
решение решением, но я бы советовал при работе с экселем вопсринимать его как СОМ-обьект и работать с ним соответственно ( в нете полно примеров ). ф топку компоненты - зло, от лукавого
 
Статус
Закрыто для дальнейших ответов.