OpenOffice

[MAcK]

Подскажите как выгрузить данные в формате таблиц (аналогу ехcеl)опенофис (под виндой) из стрингрида???

[MAcK]

Не укого не возникало вопроса?

[Virtson]

у меня нет OpenOffice, например

думаю, можно создать XML в совместимом формате..
а это уже идет работа с текстовыми файлами.

[MAcK]

Вот тут по подробней, токо на компе не стоит ехель

[Shuraken]

function ConvertStringGridToExcelTable: string;
var
  tmpStr: string;
  i, j: integer;
begin
for i := 0 to StringGrid1.ColCount - 1 do
begin
  for j := 0 to StringGrid1.RowCount - 1 do
  begin
    if tmpStr = ''
    then tmpStr := StringGrid1.Cells[i,j]
    else tmpStr := tmpStr + #9 + StringGrid1.Cells[i,j]
  end;
  if Result = ''
  then Result := tmpStr
  else Result := Result + #13#10 + tmpStr;
  tmpStr := ''
end;
Result := Result + #13#10;

Это и получится формат таблиц: соседние ячейки разделяются символами табуляции (#9), а строки символами переноса строки.

[pu4koff]

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

Вот тут по подробней, токо на компе не стоит ехель

Если мне не изменяет память, то эксель поддерживает анси таблицы, т.е. обычный текст, разделенный табуляцией

[Virtson]

вот и не понятно, какой формат и какого excel вы хотите получить ..
формат CSV еще есть, разделители - 'точка с запятой'

[mutabor]

OpenOffice открывает все майкрософтовские документы

[MAcK]

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

OpenOffice открывает все майкрософтовские документы

Мне надо создать ехеl документ не используя сервер ехеl-я, так как он не установлен

[Pitbull]

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

Мне надо создать ехеl документ не используя сервер ехеl-я, так как он не установлен

ole-объект

var
  XLApp,Sheet,Colum:Variant;
  index,i:Integer;
begin
 XLApp:= CreateOleObject('Excel.Application');
 XLApp.Visible:=true;
 XLApp.DisplayAlerts:=false;
 XLApp.Workbooks.Add(-4167);
 XLApp.Workbooks[1].WorkSheets[1].Name:='Отчёт';
 Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Columns;
 Colum.Columns[1].ColumnWidth:=5;
 Colum.Columns[2].ColumnWidth:=10;
 Colum.Columns[3].ColumnWidth:=10;
 Colum.Columns[4].ColumnWidth:=10;
 Colum.Columns[5].ColumnWidth:=10;
 Colum.Columns[6].ColumnWidth:=10;
 Colum.Columns[7].ColumnWidth:=10;
 Colum.Columns[8].ColumnWidth:=10;
 Colum.Columns[8].ColumnWidth:=10;

 Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Rows;
 Colum.Rows[3].Font.Bold:=true;
 Colum.Rows[1].Font.Bold:=true;
 Colum.Rows[1].Font.Color:=clBlue;
 Colum.Rows[1].Font.Size:=14;

 Sheet:=XLApp.Workbooks[1].WorkSheets['Отчёт'];
 Sheet.Cells[1,2]:='Учет перевозки грузов автомобильным транспортом';
 Sheet.Cells[3,1]:='№ проезда';
 Sheet.Cells[3,2]:='Марка авто';
 Sheet.Cells[3,3]:='Гос.номер';
 Sheet.Cells[3,4]:='Кто регистрировал';
 Sheet.Cells[3,5]:='Откуда';
 Sheet.Cells[3,6]:= 'Куда';
 Sheet.Cells[3,7]:= 'Дата';
 Sheet.Cells[3,8]:= 'Время';

 index:=4;
 DataModule1.proezd_main .First;

ну а дальше заливаешь данные

Извиняюсь, наверное, OLE не получится , если не установлен Excel.
По поводу OpenOffice - есть компоненты для работы с ним.... Скачайте в инете....
Вот тебе пример для опенОффиса, в котором реализованы основные процедуры для ОпенОффиса....Если возникнут вопросы - пиши:

unit uMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, StrUtils, SampleCode;

type
  TfrmOOSample = class(TForm)
    btnConnect: TButton;
    btnCreate: TButton;
    btnOpen: TButton;
    btnSave: TButton;
    OpenDialog: TOpenDialog;
    btnDisconnect: TButton;
    btnInsText: TButton;
    SaveDialog: TSaveDialog;
    procedure btnConnectClick(Sender: TObject);
    procedure btnCreateClick(Sender: TObject);
    procedure btnOpenClick(Sender: TObject);
    procedure btnDisconnectClick(Sender: TObject);
    procedure btnInsTextClick(Sender: TObject);
    procedure btnSaveClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmOOSample: TfrmOOSample;
  OpenOffice: TOpenOffice;

implementation

{$R *.dfm}

procedure TfrmOOSample.btnConnectClick(Sender: TObject);
begin
 OpenOffice := TOpenOffice.Create;
 if OpenOffice.Connect then
   begin
    btnCreate.Enabled := True;
    btnOpen.Enabled := True;
    btnConnect.Enabled := False;
    btnDisconnect.Enabled := True;
   end;
end;

//Создаем документ
procedure TfrmOOSample.btnCreateClick(Sender: TObject);
begin
 if not OpenOffice.CreateDocument then
   ShowMessage('Error')
 else
   begin
    btnSave.Enabled := True;
    btnInsText.Enabled := true;
   end;
end;


//открываем документ
procedure TfrmOOSample.btnOpenClick(Sender: TObject);
begin
  if OpenDialog.Execute then
   if not
    OpenOffice.OpenDocument('file:///'+AnsiReplaceText(OpenDialog.FileName,'\','/'))
    then
     ShowMessage('Error')
    else
     begin
      btnSave.Enabled := True;
      btnInsText.Enabled := true;
     end;

end;

//отсоединяемся
procedure TfrmOOSample.btnDisconnectClick(Sender: TObject);
begin
  btnCreate.Enabled := False;
  btnOpen.Enabled := False;
  btnSave.Enabled := False;
  btnInsText.Enabled := False;
  btnConnect.Enabled := True;
  btnDisconnect.Enabled := False;
  OpenOffice.Disconnect;
  OpenOffice.Free;
end;

//вставляем текст
procedure TfrmOOSample.btnInsTextClick(Sender: TObject);
begin
 OpenOffice.InsertText('Любой текст');
end;

//сохраняем док
procedure TfrmOOSample.btnSaveClick(Sender: TObject);
begin
 with SaveDialog do
    if Execute then
     OpenOffice.SaveDocument('file:///'+AnsiReplaceText(FileName,'\','/'));
end;

end.