Работа с отчетом
Пытался сделать запись в файл на основании Ваших примеров "Работа с объектом Excel. Примеры не работают
var
D,i:Integer;
OpenDialog1: TOpenDialog;
begin
OpenDialog1:=TOpenDialog.Create(nil);
try
OpenDialog1.Filter:='Excel\*.xlsx';
OpenDialog1.InitialDir:='C:\slProject';
if OpenDialog1.Execute then
begin
if Excel.OpenTemplate(OpenDialog1.FileName)=1 then
i:=1;
if Excel.OpenTemplate(OpenDialog1.FileName)= 2 then
i:=2;
if Excel.OpenTemplate(OpenDialog1.FileName)=3 then
i:=3;
if Excel.OpenTemplate(OpenDialog1.FileName)= 9 then
i:=9;
if Excel.OpenTemplate(OpenDialog1.FileName)= 0 then
i:=0;
if Excel.OpenTemplate(OpenDialog1.FileName)<>0 then
begin
i:=5;
Exit;
end;
Excel.Cell['A1']:=100;
D:=Excel.Cell['B2'];
Excel.Show;
Excel.Save('C:\slProject1\Report');
end;
OpenDialog1.Free;
finally
end;
end.
что я не так делаю????
var
D,i:Integer;
OpenDialog1: TOpenDialog;
begin
OpenDialog1:=TOpenDialog.Create(nil);
try
OpenDialog1.Filter:='Excel\*.xlsx';
OpenDialog1.InitialDir:='C:\slProject';
if OpenDialog1.Execute then
begin
if Excel.OpenTemplate(OpenDialog1.FileName)=1 then
i:=1;
if Excel.OpenTemplate(OpenDialog1.FileName)= 2 then
i:=2;
if Excel.OpenTemplate(OpenDialog1.FileName)=3 then
i:=3;
if Excel.OpenTemplate(OpenDialog1.FileName)= 9 then
i:=9;
if Excel.OpenTemplate(OpenDialog1.FileName)= 0 then
i:=0;
if Excel.OpenTemplate(OpenDialog1.FileName)<>0 then
begin
i:=5;
Exit;
end;
Excel.Cell['A1']:=100;
D:=Excel.Cell['B2'];
Excel.Show;
Excel.Save('C:\slProject1\Report');
end;
OpenDialog1.Free;
finally
end;
end.
что я не так делаю????
p.s. смените пароль
password rzd656
Вместо команды Excel.Show используйте Excel.Show(false);
Не работает как? Не открывает, не сохраняет, симптомы какие?
Т.е. вот такой пример у Вас не работает?
var OpenDialog1: TOpenDialog; begin OpenDialog1 := TOpenDialog.Create(nil); try OpenDialog1.Filter:='Excel|*.xlsx'; OpenDialog1.InitialDir:='C:\slProject'; if OpenDialog1.Execute then begin if Excel.OpenTemplate(OpenDialog1.FileName) = 0 then begin Excel.Cell['A1'] := 100; Excel.Cell['A2'] := 200; Excel.Cell['A3'] := 300; Excel.Cell['A4'] := 400; Excel.Save('C:\slProject1\Report.xls'); Excel.Show(false); end; end; finally OpenDialog1.Free; end; end.