Delphi + Excel

ADO jest fajne do przesyłania danych tabelarycznych. W tym typie połączenia nie musisz mieć zainstalowanego excela tylko fizyczny plik xls. Obiekty COM oferują wiele. Od przesyłania po formatowanie na makrach kończąc. W zasadzie można wszystko. Poniżej masz fragment mojej procedurki zapisującej plik

procedure TExportSpec.xlSaveFile();
begin
  {$I-}
    MkDir(ExtractFilePath(xlSpecName()));
  {$I+}
  if FileExists(xlSpecName()) then DeleteFile(xlSpecName());

    xlWB.SaveAs(xlSpecName(), xlNormal, '', Password,
      EmptyParam, EmptyParam, xlNoChange, EmptyParam, EmptyParam, EmptyParam,
      EmptyParam, EmptyParam, lcid);

  xlWB.Close();
end;

Jak nie chcesz komunikatów to poczytaj o:

  lcid := GetUserDefaultLCID();
  xlApp := TExcelApplication.Create(nil);
  xlWB := TExcelWorkbook.Create(nil);
  xlWS := TExcelWorksheet.Create(nil);
  
  // wyłącza komunikaty
  xlApp.DisplayAlerts[lcid] := false;

  // procedury

  xlApp.ScreenUpdating[lcid] := True;
  xlApp.Visible[lcid] := True;

  // po skończeniu pracy powinno się włączać
  xlApp.DisplayAlerts[lcid] := true;

  xlWS.Disconnect();
  xlWB.Disconnect();
  xlApp.Disconnect();

Oleksy_Adam napisał(a)

ADO jest fajne do przesyłania danych tabelarycznych. W tym typie połączenia nie musisz mieć zainstalowanego excela tylko fizyczny plik xls. Obiekty COM oferują wiele. Od przesyłania po formatowanie na makrach kończąc. W zasadzie można wszystko. Poniżej masz fragment mojej procedurki zapisującej plik
...
</delphi>

Super. Potem sprawdzę. Mógłbyś jeszcze zapodać jakieś procedury jeśli masz ? Zawsze może mi się coś przydać... Bo patrząc po różnych zrodlach trochę głupieję np:

ExcelApp.WorkBooks[1].WorkSheets[Sheet].Cells[1, 1]:=
ExcelApp.Cells[1, 1].Value:=

I jedno pytanie dodatkowo: czy podczas edycji, da rade nadpisac plik ? Bo widze ze go usuwasz tak na pierwszy rzut oka ;-)

maciejmt napisał(a)

... Bo patrząc po różnych zrodlach trochę głupieję np:

ExcelApp.WorkBooks[1].WorkSheets[Sheet].Cells[1, 1]:=
ExcelApp.Cells[1, 1].Value:=

http://msdn.microsoft.com/en-us/library/bb212512.aspx