Сохранить excel файл

@kami · Регистрация: 30.11.2009

Author24 — интернет-сервис помощи студентам

надо как-то програмно сохранить excel файл

Delphi

  XL := CreateOleObject('Excel.Application');
  XL.DisplayAlerts := true;
  XL.WorkBooks.Add;
  XL.WorkBooks[1].WorkSheets[1].Name := 'Прайс';
  XL.WorkBooks[1].WorkSheets[1].Cells[1,1] := 'Кол-Во';
  XL.Visible := true;

XL: variant;
пробовал типа такого XL.WorkBooks.save(mydir+'\test.xls'); ругается что сохранение не может быть автоматическим объектом(или как-то так).
или подскажите может можно задать путь для сохранения, то есть я в excel'e нажму кнопку сохранить как а он уже покажет нужную для меня папку а не папку "Мои документы"

@harmless · 08.05.2010, 08:11

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  XL: OleVariant;
begin
  XL := CreateOleObject('Excel.Application');
  XL.DisplayAlerts := true;
  XL.WorkBooks.Add;
  XL.WorkBooks[1].WorkSheets[1].Name := 'Прайс';
  XL.WorkBooks[1].WorkSheets[1].Cells[1,1] := 'Кол-Во';
  XL.Visible := true;
  XL.WorkBooks[1].SaveAs('c:\temp\test.xls');
end;

@kami · 08.05.2010, 13:41 **[ТС]**

очень благодарен =)

@Буравлев Артем · 21.04.2012, 15:18

Delphi

1	XL.WorkBooks[1].SaveAs(ExtractFilePath(Application.ExeName)+'1.xls');

сохранит в папку где находится проект

deathNC · 21.04.2012, 18:25

Вместо Application.ExeName лучше использовать ParamStr(0)

@Буравлев Артем · 21.04.2012, 18:29

Сообщение от deathNC

Вместо Application.ExeName лучше использовать ParamStr(0)

я по другому сделал.

Delphi

try
 Excel:=CreateOleObject('Excel.Application');
 Excel.Visible:=false;
 Excel.WorkBooks.Add;
for i:=1 to StringGrid1.RowCount+1 do
  for j:=1 to StringGrid1.ColCount+1 do
  begin
    Excel.ActiveSheet.Cells(i,j):=StringGrid1.Cells[j-1,i-1];
  end;
  Sh := Excel.ActiveSheet;
  Chart:=Excel.Charts.Add;
  Chart.ChartType:=xl3DColumn;
  Cell1:=Sh.Cells.Item[1, 1]; // Именно на Листе, а не активном в данный момент Чарте
  Cell2:=Sh.Cells.Item[StringGrid1.RowCount, StringGrid1.ColCount];
  Chart.SetSourceData(Source:=Excel.ActiveWorkbook.Sheets.Item['Лист1'].Range[Cell1, Cell2],
      PlotBy:=xlColumns);
  Chart.Location(Where:=xlLocationAsObject, Name:='Лист1');
  Chart:=Excel.ActiveChart;
  if SaveDialog2.Execute
    then
      begin
      Excel.ActiveWorkbook.SaveAs(SaveDialog2.FileName);
      ShowMessage('Отчет сохранен'+#13+SaveDialog2.FileName+'.xls');
      end
    else
      Excel.DisplayAlerts := False;
finally
 Excel.ActiveWorkbook.Close;
 Excel.Application.Quit;
 end;

@Mawrat · 22.04.2012, 02:53

Только код предлагаю немного по-другому сформировать.
В начале:

Delphi

try
  Excel:=CreateOleObject('Excel.Application');
except
  ShowMessage('Не удалось запустить MS Excel. Действие отменено.');
  Exit;
end;

В конце:

Delphi

  if SaveDialog2.Execute then begin
    Excel.DisplayAlerts := False;
    Excel.ActiveWorkbook.SaveAs(SaveDialog2.FileName);
    Excel.DisplayAlerts := True;
    //Excel.ActiveWorkbook.Close;
    Excel.Application.Quit;
    ShowMessage('Отчет сохранён в файл:'#10+SaveDialog2.FileName);
  end else begin
    Excel.Visible := True;
    ShowMessage('Отчет не сохранён. Книга открыта в MS Excel.');
  end;

@kami 1 / 1 / 1 Регистрация: 30.11.2009 Сообщений: 41
	08.05.2010, 13:41 [ТС]	3
	очень благодарен =) 0

deathNC 1905 / 1016 / 123 Регистрация: 08.12.2009 Сообщений: 2,792 Записей в блоге: 2
	21.04.2012, 18:25	5
	Вместо Application.ExeName лучше использовать ParamStr(0) 0

	22.04.2012, 02:53